Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Сохранение в файле массива

Следующий код может помочь вам начать.


 type
   TCharArray = array[500] of Char;
 
 procedure WriteToFile(var aArray: TCharArray; sFileName: string); {Примечание:
 Объявление массива как параметр Var позволяет передавать только ссылку на массив,
 а не копировать его целиком в стек, если же вам нужна безопасная работа с массивом,
 то вам не следует передавать его как var-параметр. }
 var
   nArrayIndex: Word;
   fFileHandle: TextFile;
 begin
   AssignFile(fFileHandle, sFileName);
   Rewrite(fFileHandle);
 
   for nArrayIndex := 1 to 500 do
   begin
     Write(fFileHandle, aArray[nArrayIndex]);
   end;
 
   CloseFile(fFileHandle);
 end; {end Procedure, WriteToFile()}
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS