Мусор

← →
PNP © (2003-03-23 19:59) [0]

//const F="C:\tempfile.tmp";
//сохраняем содержимое мемо:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.SaveToFile(f);
end;
//всё отлично, закрываем приложение, загружаем в мемо
//сохраненные данные:
procedure TForm1.Button2Click(Sender: TObject);
var
fs:tfilestream;
p:pchar;
begin
fs:=tfilestream.Create(f,fmOpenReadWrite);
GetMem(p,fs.Size);
fs.Read(p^,fs.Size);
memo1.lines.SetText(p);
FreeMem(p);
fs.Free;
end;
//- тоже всё нормально, не закрывая приложения
//сохраняем данные, потом загружаем.
//(сначала нажимаем button2, потом button1, потом опять button2) После этого
//получаем мусор. ПОЧЕМУ???

← →
Guerrillero © (2003-03-23 23:05) [1]

а не проще загружать
Memo1.Lines.LoadFromFile();

Мусор Найти похожие ветки