Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

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


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

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011