Das wird wohl ohne Parser nicht gehen, weil du ja auch auf das prüfen mußt:
X100X80 // hier Fehler melden
BTW:
Was ist hier denn falsch??
X96Y151 // hier Fehler melden
Du mußt auch zuerst den Kommentar entfernen und dann erst den Trim machen, da zwischen Code und Kommentar ein Leerzeichen sein kann (also so, wie es K.-H. gemacht hat).
MFG
Thomas
BTW:
Was ist hier denn falsch??
X96Y151 // hier Fehler melden
Gute Frage.Glaube ist korrekt so.
X100X80 // hier Fehler melden
Wie überprüf ich das?
Denk ich jetzt zu kompliziert oder geht das auch einfacher??
Delphi-Quellcode:
procedure berechne_absolutwerte(deltax,deltay:double);
// berechnet die Absolutwerte mit Hilfe der incrementellen
var x,y: integer;
begin
Position_X:=pos('X',s); // Stelle vom Zeichen 'X' im String
Position_Y:=pos('Y',s); // Stelle vom Zeichen 'Y' im String
x:=Position_X + strtoint(Position_X+1); // X-Koordinaten, ist Zahl nach dem Zeichen 'X'
y:=Position_Y + strtoint(Position_Y+1); // Y-Koordinaten, ist Zahl nach dem Zeichen 'Y'
Position_deltax:=pos('DELTAX',s); // Stelle von 'DELTAX' im String
Position_deltay:=pos('DELTAY',s); // Stelle von 'DELTAY' im String
deltax:= Position_deltax + strtoint(Position_deltax+1); // Deltax-Zahlenwert nach 'DELTAX'
deltay:= Position_deltay + strtoint(Position_deltay+1); // Deltay-Zahlenwert nach 'DELTAY'
x:=x+deltax;
y:=y+deltay;
end;