mam dwie procedurki
var
f : file;
stream : Tmemorystream;
odczyt
memo1.lines.clear;
assignfile(f,'opek.dto');
reset(f,1);
stream.Position := 0;
blockread(f,stream,1);
memo1.lines.LoadFromStream(stream);
closefile(f);
zapis
assignfile(f,'opek.dto');
Rewrite(F,1);
memo1.lines.SaveToStream(stream);
blockwrite(f,stream,1);
closefile(f);
form1oncreate
stream := tmemorystream.create;
form1onclose
stream.free;
teraz pytanie - co w tym jest źle??
Nie chce mi odczytać tekstu.... a moze nawet źle zapisuje
wiem ze lepiej by było napisac stream.savetofile ale ja wole tak :)