Mit einer Stringlist sollte das funken
Delphi-Quellcode:
MeineString_List : TStringlist;
Procedure xxxx
begin
MeineString_List:=TStringlist.Create;
try
MeineString_List.LoadFromFile(Pfad);
except
begin
ShowMessage('Fehler beim Laden der Datei');
MeineString_List.free;
exit;
end;
end;
function vergleiche(x:Integer):String; //x Ist der aktuelle String (count)
var temp: string;
begin
temp:= trim(copy(MeineString_List.Strings[x],41,30));
Hier dann noch die Stringlist nach temp durchsuchen und vergleichen.
usw.
end;