Momentan hab ich eine Funktion die es mir ermöglicht eine bestimmte Zeile einer Textdatei auszulesen.
Delphi-Quellcode:
// Funktion zum auslesen einer bestimmten Zeile.
function GetXLine(FileName:String;Line:integer):String;
var f:Textfile;
i:Integer;
s:String;
begin
result:='';
assignfile(f,FileName);
reset(f);
i := 0;
while(not eof(f)) and (i<=Line) do begin
inc(i);
readln(f,s);
if i = Line then
result := s;
end;
closefile(f);
end;
Aufrufen tu ich sie mir
ZW:= GetXLine(Path + LBZWDateipfad.Items.Strings[i], 2);
Path = Pfad in der die Dateien liegen
LBZWDateipfad.Items.Strings[i] = Alle Dateien aus dem Ordner die nach und nach abgegangen werden
und die 2 ist halt die Zeile die ausgelesen wird.
nur würd ich gern dann:
if ZW = suche* then // Fehlerhafte code
machen nur so gehts ja nicht.
kannst du mir da ein bespiel geben mit der Pos oder gehts anderst?