Liste mit Funktionen erstellen abarbeiten...

[DelphiManiac]

Hallo,


ich habe ein kleines Designproblem:

zurzeit lese ich aus einer Ini Datei Daten aus und schreibe diese dann an ein Gerät.
Für jeden Parameter gibt es eine Funktion:

Bsp:

Delphi-Quellcode:

function Ini_Set_Parameter_1 (Dateiname:string):Integer
begin
  //Liest den Parameter aus der Ini
  // Schreibt ihn ans Gerät
end;

In meiner Hauptfunktion steht nun eine Auflistung der Funktionen:

Delphi-Quellcode:

// sinngemäß
if (Ini_Set_Parameter_1(datei) <> OK) then exit;
if (Ini_Set_Parameter_2(datei) <> OK) then exit;
if (Ini_Set_Parameter_3(datei) <> OK) then exit;

Kommt es jetzt vor, dass ein Parameter nicht in der Ini nicht vorhanden dann beende ich die Funktion.
Jetzt will ich aber nicht rausspringen aus der Funktion sondern mir den Parameter merken und später am Ende die nicht vorhandenen Parameter dem User mitteilen.


Kann man sowetwas über Exceptions machen?
Wie gesagt ich will nicht, dass die Haupt-Funktion abbricht, nur dass der Parameter gemerkt wird.

Könnte man die Funktionen die den gleichen Aufbau haben irgendwie als Liste erstellen und die Liste abarbeiten?
(Sorry wenn der Delphi Code teilweise falsch ist, programmiere gerade 50 % Delphi 50 % C.... da kommt man schonmal durcheinander :-)
Irgendwie so?

Delphi-Quellcode:

for (I:=0; i<10; i++) 
begin
  FunktionsListe[I](datei);
end;

Danke euch!

[Blup]

z.B. so?

Delphi-Quellcode:

function Ini_Set_Parameter_1 (Dateiname: string; AErrorLog: TStrings): Integer 
begin 
  //Liest den Parameter aus der Ini 
  // Schreibt ihn ans Gerät 

  if Result <> OK then
    AErrorLog.Add(Format('Fehler Ini_Set_Parameter_1 (%s)', [Dateiname]));
end; 
 
ErrorList.Clear;
Error := 0;
if (Ini_Set_Parameter_1(datei, ErrorList) <> OK) then Inc(Error);
if (Ini_Set_Parameter_2(datei, ErrorList) <> OK) then Inc(Error);

[user0815]

oder mit dem default Wert arbeiten...

Delphi-Quellcode:

uses
  IniFiles;

function IniLesen(filename, section, value, default : String) : String;
var
  Ini : TIniFile;
begin
  try
    Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + filename + '.INI');
    Result := Ini.ReadString(section, value, default);
  finally
    FreeAndNil(Ini);
  end;
end;
//---------------------------------------------------------------------------
procedure IniSchreiben(filename, section, item, value : String);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + filename + '.INI');
  try
    Ini.WriteString(section, item, value);
  finally
    FreeAndNil(Ini);
  end;
end;
//---------------------------------------------------------------------------
procedure TFormMain.Button1Click(Sender: TObject);
begin
  Button1.Caption := IniLesen('Dateiname', 'Sektion', 'Wert', 'Parameter fehlt');
  IniSchreiben('Dateiname', 'Sektion', 'Wert', 'OK');
end;
//---------------------------------------------------------------------------