Sierpinski-Teppich

[101nero]

Also den Sierpinksi-Teppich hab ich jetzt fertig.
Aber die Koordinaten sind noch nicht variabel sondern vorgegeben.
Um die richtigen Koordinaten in der *.svg-Datei zu finden (die Koordinaten sind beliebig, da die svg.-Dateien sich unterscheiden können.) verwende ich folgenden Code:

Code:

  s := '<line x1="100" y1="400" x2="500" y2="400" stroke="black" stroke-width="1" />';
  p1 := Pos('"', s); // Lese Position der ersten anführnugszeichen
  p2 := Pos('"', s); // Lese Position der letzten anführnugszeichen
  // was steht dazwischen:
  aNeu := Copy(s, (p1+1), (p2-1));
  Memo1.Lines.Add(aNeu);

Das Problem ist, dass die Anführungszeichen nicht richtig erkannt werden.
Der Inhalt der Variablen s, befindet sich eine eingelesene Zeile aus der *.svg-Datei.
Gesucht wird das erste " und das darauffolgende ".
Finden möchte ich also die "100" nach x=".
Gefunden wird: 100" y1="

Gibt es hier eine andere Möglichkeit?
(Davon abgesehen brauche ich nicht die x1, y1 Werte, sondern die height, und width werte.