Hallo,
da ich nicht genau weiss was Du möchtest schlage ich folgendes vor.
Delphi-Quellcode:
procedure LoadFromTextFileExt(TextFilename : TFilename; L : TStrings; Ident : String; FromPos, Count : Integer);
var
_File : System.Textfile;
_Line : String;
begin
L.Clear;
AssignFile(_File,TextFilename);
Reset(_File);
Try
While Not EOF(_File) do
begin
Readln(_File,_Line);
If Pos(Ident,_Line)>0 then
L.Add(Copy(_Line,FromPos,Count));
end;
Finally
CloseFile(_File);
end;
end;
Die procedure liest die Textdatei zeilenweise. Befindet sich in einer Zeile der Inhalt von Ident werden aus dieser Zeile ab der Position FromPos Count Zeichen kopiert und an L gehängt.