CNC Parsen (PChar ?)

[Kedariodakon]

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