Сохранение в файле пятисот символов из массива

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

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()}

[001707]

Содержание раздела