2 Werte von 2 Ini-File gleichzeitig auslesen

[Delphiturbo]

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?

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;

[s-off]

Schreibe Dir eine Funktion, der Du Section und Ident übergibst.
In dieser Funktion liest Du dann den Wert aus und gibst ihn zurück.

Die Funktion kannst Du dann halt mehrfach überladen, je nach Typ, den Du abfragen willst.

[SirThornberry]

ich würde dir auch empfehlen einfach eine Funktion zu schreiben. Der übergibst du dann den Dateinamen und der Rest ist ja laut deinen Aussagen gleich. Zudem würde ich das aus dem OnShow raus nehmen sonst wird es immer ausgeführt wenn Form.Show aufgerufen wird bzw. Form.visible gesetzt wird.