Delphi-PRAXiS - Delphi Teile eines Strings auslesen

Hi tAxel,
das Problem kann man leicht lösen.

Mithilfe von Pos() bekommst du die Position eines Zeichens im String zurück.
Wichtig ist, dass der String mit 1 beginnt ;)

Um nun zu überprüfen, wo das X steht:

Delphi-Quellcode:

			var

  start : Integer;

begin

  start := Pos('X', str);

In "str" steht ein String (z.B. "DELTAX10DELTAY20").
In Start würde nun der Wert 6 stehen, da das erste X in dem String an der Position 6.

Ich würde jetzt überprüfen, wo die Zahl zu Ende ist.
Das heißt, wir müssen gucken, wo das nächste "D" oder "Y" auftaucht.
Das könnte man jetzt wieder mit "Pos" machen, aber nur bei Y.

Pos liefert nämlich nur das erste Vorkommen zurück. Und in unseren String wäre das die Position "1", wir wollen aber "9" herausbekommen. Also "+ 8"? Nein! Weil es kann ja sein, dass die Zahl einstellig oder mehrstellig ist!
Deshalb gibt es eine erweiterte Funktion:
PosEx() Erwartet den zu suchenden String ('D'), den zu durchsuchenden String (s.o.) und ein so genanntes Offset, in der steht, ab welchen Zeichen wir suchen sollen.
Das wäre in unseren Beispiel irgendwo nach dem ersten Zeichen. Wir könnten also "2" einsetzen, aber es geht eleganter. Und zwar muss das Zeichen ja hinter dem "X" stehen. Also können wir "start" verwenden.

Also erweitern wir den Code:

Delphi-Quellcode:

			var

  start : Integer;

  endY, endD : Integer;

begin

  str := 'DELTAX10DELTAY20';

  start := Pos('X', str);

  endY := Pos('Y', str);  // Erstes Vorkommen von Y (mögliches Ende)

  endD := PosEx('D', str, start);  // Erstes Vorkommen von D. Ausgehend von der Position des "X" (anderes mögliche Ende)

Wir haben also jetzt 3 Zahlen, aber welche sind die richtigen?

Das ist relativ einfach, weil wenn das D vor dem Y steht, müssen wir D nehmen, außer wenn D null ist (also nicht vor kommt).
Das können wir dann in eine If-Bedingung gießen. Wir speichern die Endposition in "endY" ab.

Delphi-Quellcode:

			if (endD > 0) and (endD < endY) then

  endY := endD;

Wenn es gefunden wurde (endD > 0) und das D vor dem Y steht (endD < endY) ist D das erste Zeichen, nach der Zahl, ansonsten Y.
Da in endY schon die Position des Y steht, müssen wir das nicht reinschreiben.

Davon ausgehend, können wir den Teilstring herauskopieren:

Delphi-Quellcode:

substr := Copy(str, start + 1, endY - start - 1);

Der erste Parameter möchte den String wissen, aus dem er den Teilstring haben möchte.
Der zweite Parameter möchte die Position des ersten Zeichens, des Teilstrings, wissen.
Der dritte Parameter möchte dann die Länge des Teilstrings wissen.

In substr sollte nun "10" stehen. Das dann in einen Integer umwandeln und fertig.
Für die Y-Koordinate kannst du dir das dann selber überlegen wie man das macht.

Übrigens kann man ganz einfach herausfinden, ob ein Delta vor dem X oder vor dem Y steht.
Wenn du nicht drauf kommst, denke doch mal nach wo der Unterschied im string ist.
Man sollte übrigens den Code dann oben etwas abändern, um doppelte Abfragen zu vermeiden :)

MfG
xZise