Главная страница
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.031 c
1-6451
Sliski Slimak
2003-03-21 16:45
2003.04.03
Плагины


1-6506
msoftware
2003-03-24 06:03
2003.04.03
Способы вызова Dll


3-6334
lightix
2003-03-13 11:55
2003.04.03
Проблемы с кодировкой в DBF


14-6662
Егорычев Михаил
2003-03-17 18:39
2003.04.03
Browser на API - окне


1-6513
Dimitry
2003-03-24 20:35
2003.04.03
file of record