inifile beschreiben

[Sir Rufo]

Delphi-Quellcode:

function MyGetInifileValue(myIniFile, mysection, myentry, mydefault:string):string;
var
 myIni:TInifile;
 strtemp:string;
 inipath:string;
begin

 inipath := ExtractFilePath(Application.ExeName);
  // Das kann man sich komplett schenken, denn ExtractFilePath liefert den Pfad
  // und der ist immer mit abschliessendem PathDelimiter definiert
  // ExtractFilePath( Application.ExeName ) => '<Verzeichnisse>\'
  // ExtractFileDir( Application.ExeName ) => '<Verzeichnisse>'
 if Copy(inipath,Length(inipath),1) <> '\' then
  inipath := inipath +'\';

 myini := TInifile.Create(inipath+myIniFile+'.ini');
 strtemp := myini.ReadString(mysection,myentry,mydefault);

 myGetInifileValue := strtemp;
 myini.Free;

end;