вот делаю так
Код:
var
FS : TFileStream;
ST : TStream;
buf : array[0..255] of integer;
begin
FS := TFileStream.Create('data.txt',fmCreate);
ST := TMemoryStream.Create;
Memo1.Lines.SaveToStream(ST);
ST.Write(buf,ST.Size * 3);
FS.Write(ST,ST.Size);
FS.Free;
ST.Free;
end;
Admin: Пользуемся тегами!
все ок, но а прочитать как ?
