[eXeC0D3]

вот делаю так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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: Пользуемся тегами!

все ок, но а прочитать как ?