eine bestimmte position in text dateien auslesen

[chrisw]

Oder Du nimmst diese Funktion !

Delphi-Quellcode:

function GetString (Zeile,StartIndex,Anzahl : Integer; filename : String) : String;
var list : TstringList;
begin
  Result := '';
  list := TStringList.Create;
  try
    list.LoadFromFile(filename);
  except
  end;
  Result := copy(list[zeile-1],StartIndex,Anzahl);
  list.Free;
end;
//Aufruf mit z.Bsp: 
Label1.Caption := GetString(2,12,10,'c:\meintext.txt');
//für die 2 Zeile ab 12 Zeichen 10 Zeichen lang aus der Datei 'c:\meintext.txt