Thema: Delphi in ini speichern

Einzelnen Beitrag anzeigen

eleonora

Registriert seit: 24. Jan 2003
80 Beiträge
 
#8
  Alt 13. Jun 2003, 11:25
Ich mache nach jeder Form ein ini.Free; aber er bringt mir trotzdem diese Zugriffsverletzung!

Ich poste mal eine Teil von dem jeweiligen Code!

Im Menüpunkt Englisch welches sich im Hauptformular befindet:

Code:
procedure language_englishClick(Sender: TObject);
begin
     ini := TiniFile.Create(C:/...);
     //Übersetzung des Hauptformulares
     file_file.Caption := 'File';
     file_exit.Caption := 'Exit';
     file_language.Caption := 'Language';
     language_german.Caption := 'German';
     language_english.Caption := 'English';
     
     //Übersetzung des Konfig-Fensters
     path.path_file.Caption := 'File';
     path.path_exit.Caption := 'Exit';
     path.path_language.Caption := 'Language';

     //Übersetzt das Browser-Fenster
     engage.engage_delete.Caption := 'Which Browser would you like to delete?';
     engage.engage_d.Caption := 'Delete';
   
     with ini do
     begin
          writestring('language', 'type', 'english');
     end;
     ini.Free;
end; //procedur
Das gleiche befindet sich auch im Deutschen menü.
Anschliessend mache ich diese in FormCreate des Hauptformulares

Code:
procedure TFormCreate(Sender: TObject);
begin
     ini := TiniFile.Create(C:/.....);

     with ini do
     begin
           
       language := readstring('language', 'type', '');

       if language = 'german'
       then
           language_german.Click
       else
           language_english.Click;

     end;//with...
     ini.Free;
end;
Sorry für so viel Code und Danke für die Hilfe!

Eleonora
  Mit Zitat antworten Zitat