Zitat von
Hansa:
Zitat von
IngoD7:
Wozu braucht er eine Quelle? ... "Nein, ein Free reicht nicht." Und das stimmt
Weil es eben nicht stimmt.
Delphi-Quellcode:
Im folgenden Beispiel werden die Konfigurationsinformationen mit dem Ereignis OnCreate eines Formulars aus einer INI-Datei gelesen und in der Ereignisbehandlungsroutine für OnClose zurückgeschrieben.
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
Top := Ini.ReadInteger( 'Form', 'Top', 100 );
Left := Ini.ReadInteger( 'Form', 'Left', 100 );
Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );
if Ini.ReadBool( 'Form', 'InitMax', false ) then
WindowState = wsMaximized
else
WindowState = wsNormal;
finally
TIniFile.Free;
end;
end;
Quelle :
OH.
Wo ist jetzt da was außer free zu sehen ?
Du willst uns jetzt provozieren, oder?
Das, was dafür ausschlaggebend ist, dass das Ding zurückgeschrieben wird, steht -
wie du selber aus der Hilfe zitiert hast - im
OnClose. Es sind die ganzen Ini.Write...-Befehle.
Zitat von
Aus der Online-Hilfe:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action TCloseAction)
var
**Ini: TIniFile;
begin
**Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
****Ini.WriteInteger( 'Form', 'Top', Top);
****Ini.WriteInteger( 'Form', 'Top', Top);
*Ini.WriteString( 'Form', 'Caption', Caption );
****Ini.WriteBool( 'Form', 'InitMax', WindowState = wsMaximized );
finally
****TIniFile.Free;
*end;
*end;
Und um dich selbst zu zitieren: Probiere das alles doch einfach mal aus.