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