Procedure Overload

[WizoHulk]

bis jetzt blos eine
da ich die andere ja noch nicht Deklarieren konnte

Delphi-Quellcode:

function  ReadStringIniFile(AIniFileName, ASection, AIdent, ADefault: String): String;
var
  LIni: TIniFile;
  LString: String;
begin
  LIni:= TIniFile.Create(ExtractFilePath(ParamStr(0))+ AIniFileName);
  try
    LString := LIni.ReadString(ASection,AIdent,ADefault);
    Result:= LString;
  finally
    LIni.Free;
  end;

end;