Цитата:
Сообщение от nikotan
и ещё проблема выявилась, вот в edit1 ввёл цифру "9", потом изменил на 7 (например), закрыл программу, на следующий день открыл и по идее должно быть "7", как сделать чтоб эта цифра оставалась всегда в памяти где-то?
|
Это как раз не проблема, трабла в том, что вы, увж. топикстартер ни фига не читали ПФ, а там есть такое правило "вылитое в граните": один вопрос - одна тема, пжлст, прочитайте.
Ну так уж и быть, в порядке последнего исключения приведу пример схорона содержимого едита на диске
Код:
const fn: string = 'Edit1.wrc';
...
procedure TForm1.FormCreate(Sender: TObject);
var
FStr: TFileStream;
MemStr: TMemoryStream;
begin
if FileExists(fn) then
begin
FStr:= TFileStream.Create(fn, fmOpenRead);
MemStr:= TMemoryStream.Create;
ObjectTextToBinary(FStr, MemStr);
MemStr.Position:= 0;
MemStr.ReadComponent(Edit1);
MemStr.Free;
FStr.Free;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
FStr: TFileStream;
MemStr: TMemoryStream;
begin
FStr:= TFileStream.Create(fn, fmCreate);
MemStr:= TMemoryStream.Create;
MemStr.WriteComponent(Edit1);
MemStr.Position:= 0;
ObjectBinaryToText(MemStr, FStr);
MemStr.Free;
FStr.Free;
end;