[eXeC0D3]

вот делаю так

Код:

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

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