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.