Visielle Position speichern

[ichbins]

Was meinst du mit der Frage?

Wie man eine INI-Datei benutzt?

Delphi-Quellcode:

procedure form1.tform1create(sender:tobject);
var
  f:tinifile;
begin
  f:=tinifile.create(changefileext(paramstr(0),'.ini'));  //Dateiname der Anwendung + .INI
  form1.left:=f.readinteger('FormPos','Left');
end;

sonst könntetst du noch so schreiben:

Delphi-Quellcode:

//Speichern
var
  f:file of integer;
begin
  assignfile(f,'DATeINAME');
  rewrite(f);
  write(f,form1.left);
  write(f,form1.top);
  write(f,form1.right);
  write(f,form1.bottom);
  closefile(f);
end;

//Laden
var
  f:file of integer;
begin
  try begin
  assignfile(f,'DATeINAME');
  reset(f);
  read(f,form1.left);
  read(f,form1.top);
  read(f,form1.right);
  read(f,form1.bottom);
  closefile(f);
  end except end;
end;