procedure TForm1.sauve1;
var t:TstringList;
begin
t := Tstringlist.create;
t.Add(inttostr(Panel1.left));
t.Add(inttostr(Panel1.top));
t.SaveToFile('xx.txt');
t.free;
end;
procedure TForm1.charge1;
var t:TstringList;
begin
t := Tstringlist.create;
t.LoadFromFile('xx.txt');
Panel1.Left := strtoint(t[0]);
Panel1.top := strtoint(t[1]);
t.free;
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question