чтение запись строки из файла

← →
валя © (2016-09-07 13:40) [0]

Как правильно?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
fs: TFileStream;
str: String;
Val: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
fs := TFileStream.Create("1.dat", fmCreate);
str := "hello";
Val := Length(str)*sizeof(Char);
fs.Write(Val, 4);
fs.Write(str[1], Val);
fs.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
fs := TFileStream.Create("1.dat", fmOpenRead);
fs.Read(Val, 4);
fs.Read(str[1], val);
fs.Free;

ShowMessage(str);
end;

end.

← →
RWolf © (2016-09-07 14:53) [1]

... fs.Read(Val, 4); SetLength(str, Val); if Val<>0 then fs.Read(str[1], val)

> Как правильно?

Как в справке

чтение запись строки из файла Найти похожие ветки