Liste mit Funktionen erstellen abarbeiten...

[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);