2 Werte von 2 Ini-File gleichzeitig auslesen

Hallo,

mein Programm liest und holt 2 Werte von 2 Ini-Files
MyIniFile1.ini
MyIniFile2.ini

Ich habe den gleichen Code : Einmal OnCreate (liest von MyIniFile1.ini)
und einmal in OnShow (liest von MyIniFile2.ini)

Ich finde das ist zuviel
wie kann ich mit einem Code die 2 Werte auslesen?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormShow(Sender: TObject);

var

  MyIniFile: TInifile;

  FName: String;

begin

  FName := ExtractFilePath(ParamStr(0)) + 'MyIniFile1.ini';

  if FileExists(FName) then

  begin

    MyIniFile := TIniFile.Create(FName);

    try

      S4 := MyIniFile.ReadString('Section1', 'text1', 'nicht gefunden')

    finally

      MyIniFile.Free;

    end;

  end

  else

  begin

    ShowMessage('nicht gefunden ');    

  end;

end;

2 Werte von 2 Ini-File gleichzeitig auslesen

2 Werte von 2 Ini-File gleichzeitig auslesen

Forumregeln