Чтение и запись данных в/из файлов
|
{ В следующем примере показано как можно осуществить чтение и запись данных в/из файла. Данный пример предполагается в первую очередь использовать тем, кто делает первые шаги в вопросах чтения/записи. Для получения дополнительной информации о каждом объекте, обратитесь к электронной справке. В коде присутствует минимальная обработка исключительных ситуаций, но она никоим образом не является законченным решением. Для оформления программы необходимо установить на форме компонент 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]
