Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

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

 
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();



Страницы: 1 вся ветка

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
1-6522
mikeevteev
2003-03-20 23:27
2003.04.03
Буферизованый Stream


14-6695
NetBreaker666
2003-03-17 23:12
2003.04.03
2Создатель форума


14-6703
GUI
2003-03-15 12:59
2003.04.03
Сеть...


14-6715
Palladin
2003-03-16 02:45
2003.04.03
Crtl + click на панели задач


3-6378
Ded Moroz
2003-03-14 17:42
2003.04.03
Объединение таблиц в БД