Советы по Delphi

         

Чтение и запись данных в/из файлов


    {
В следующем примере показано как можно осуществить чтение и запись данных в/из файла. Данный пример предполагается в первую очередь использовать тем, кто делает первые шаги в вопросах чтения/записи. Для получения дополнительной информации о каждом объекте, обратитесь к электронной справке. В коде присутствует минимальная обработка исключительных ситуаций, но она никоим образом не является законченным решением.
Для оформления программы необходимо установить на форме компонент TMemo с заголовком Запись, и кнопку с заголовком

Чтение. Запустите программу, поместите несколько строк в "memo", после чего нажмите на кнопку Запись. Очистите "memo", и нажмите Чтение. }
procedure TForm1.BtnWriteClick(Sender: TObject); { автор: Michael Vincze } var FileStream: TFileStream; Writer    : TWriter; I         : Integer; begin FileStream := TFileStream.Create ('c:\delphi\projects\delta40\fileio\stream.txt', fmCreate or fmOpenWrite or fmShareDenyNone); Writer := TWriter.Create (FileStream, $ff); Writer.WriteListBegin; for I := 0 to Memo1.Lines.Count - 1 do Writer.WriteString (Memo1.Lines[I]); Writer.WriteListEnd; Writer.Destroy; FileStream.Destroy; end;
procedure TForm1.BtnReadClick(Sender: TObject); { автор:  Michael Vincze } var FileStream: TFileStream; Reader    : TReader; begin { пробуем открыть несуществующий файл } try FileStream := TFileStream.Create ('c:\delphi\projects\delta40\fileio\bogus.txt', fmOpenRead); except ; { Destroy не нужен, поскольку Create потерпела неудачу  } end;
FileStream := TFileStream.Create ('c:\delphi\projects\delta40\fileio\stream.txt', fmOpenRead); Reader := TReader.Create (FileStream, $ff); Reader.ReadListBegin; Memo1.Lines.Clear; while not Reader.EndOfList do Memo1.Lines.Add (Reader.ReadString); Reader.ReadListEnd; Reader.Destroy; FileStream.Destroy; end;

[001698]



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