Na einfach den String nach dem Werkzeug durchsuchen:
Delphi-Quellcode:
...
Var W: String; //Werkzeug
Z: String; //Zu durchsuchende Zeile
i: Integer;
Begin
W := 'T01';
Z := 'T01D2005'
...
i := POS( W, Z );
If i <> 0 Then MessageDlg('Werkzeug is da ^^', mtInformation, [mbOK], 0)
Else MessageDlg('Werkzeug is nicht da ^^', mtInformation, [mbOK], 0);
...
End;
...
Machst dir eine Liste Mit allen Werkzeugen und durchsuchst dann halt jede Zeile mit der Werkzeugliste durch...
Bye