array mir Textdatei füllen

[Marco Haffner]

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.