Teile eines Strings auslesen

[sirius]

Ich weis nicht genau, wie die Norm aussieht, aber so kommst du erstmal weiter:

Delphi-Quellcode:

procedure getvalues(zeile:string; var X,Y:Integer);
var sZahlx,sZahly:String;
    posX,posY:integer;
begin
  posX:=pos('X',zeile);
  posY:=pos('Y',zeile);
  sZahlx:=copy(zeile,         //Ursprungsstring
               posX+1,        //Anfang des Teils zum rauskopieren
               posY-posX-1);  //Länge des Teilstrings
  sZahly:=copy(zeile,
               posY+1,        //Ab der Stelle "Y"+1 kopieren
               length(zeile));//bis zum Ende
  
  trystrtoint(szahlx,x); //trystrtoint liefert als Ergebnis noch zurück, ob überhaupt eine Zahl in szahlx steht..
  trystrtoint(szahly,y); //..das könnte man noch auswerten
end;
//ungetestet