Delphi-Quellcode:
function ReadIniValue(const IniFileName: string; const Index: integer; const ValueName: string): string;
var
Sl: TStrings;
begin
Sl := TSTrings.Create;
with Sl do
try
LoadFromFileName(IniFileName);
// Gibt den Namen an Position x zurück
Result := Names[Index];
{oder}
// Lieftert den Wert an Position x
Result := ValueFromIndex[Index];
{oder}
// Gibt den Wert der Eigenschaft x zurück
Result := Values[ValueName];
finally
Free;
end;
end;
Welchen der 3 möglichkeiten Du verwendst bleibt Dir überlassen.
Kannst dann
const Index: integer oder
const ValueName: string weglassen, jenachdem welchen Du nicht benötigst.