Главная страница
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.02 c
3-6378
Ded Moroz
2003-03-14 17:42
2003.04.03
Объединение таблиц в БД


14-6779
Greenering
2003-03-13 18:14
2003.04.03
SysUtils


14-6746
Николай Быков
2003-03-16 17:27
2003.04.03
---|Ветка была без названия|---


4-6852
}{enon
2003-02-01 19:05
2003.04.03
Хук на перерисовку окна


3-6338
sniknik
2003-03-11 11:48
2003.04.03
RDS нужен пример, на Delphi