Sprache ändern mit INI

Ehemaliges Mitglied Erhaltene Danke: 1

Wie kann ich mit INI Dateien die Sprache Ändern?

Dieser Code erzeugt eine Fehlermeldung

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin

    Ini:=TIniFile.Create('C:\Test.ini');
    if Ini.ReadString('test',
                     'Sprache','English')
then
                      Sprache:=English
end;

Ich hab schon im Delphi Forum gesucht und nichts gefunden :cry:

Ich bitte um Hilfe :?:

Gausi · Verfasst: Sa 25.03.06 16:09

Ini.readString liefert keinen Bool zurück, sondern einen String.
Das sollte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormCreate(Sender: TObject);   
var   
  Ini: TIniFile;   
begin   
    Ini := TIniFile.Create('C:\Test.ini');   
    Sprache := Ini.ReadString('test','Sprache','English');

    Ini.free;
end;

_________________
We are, we were and will not be.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Schau mal hier.
www.dsdt.info/tutorials/ini/

Ehemaliges Mitglied Erhaltene Danke: 1

Ich habe es versucht, aber diese anweißung erzeugt eine Zugriffsverletzung auf kernel32.dll

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);   
var   
  Ini: TIniFile;
  Sprache: String;
begin   
    Ini := TIniFile.Create('C:\Test.ini');   
    Sprache := Ini.ReadString('test','Sprache','');
    Ini.free;
    if Sprache = Ini.ReadString('test','Sprache','English')
    then
    ShowMessage('Hallo')
end;

wie könnte das machen?

Danke für die Hilfe

Gausi · Verfasst: Sa 25.03.06 16:29

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);   
var   
  Ini: TIniFile;
  Sprache: String;
begin   
    Ini := TIniFile.Create('C:\Test.ini');   
    Sprache := Ini.ReadString('test','Sprache','');
    Ini.free;

    if Sprache = 'English' then
      ShowMessage('Hallo')
end;

_________________
We are, we were and will not be.

Ehemaliges Mitglied Erhaltene Danke: 1

Danke, das Problem ist gelöst

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme