Teile eines Strings auslesen

[xZise]

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:
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

[tAxel]

HAHAHAAH!

Sowas hab ich mir erhofft! - Einfach und sinnvoll!

Danke Fabian! Echt genial!

[tAxel]

Hm da ist nun nen kleiner Dämpfer in der Euphorie aufgetreten:

PosEx wird nicht erkannt! Er gibt mir die Fehlermeldung:

Undefinierter Bezeichner: 'PosEx'

Woran kanns liegen?

[DeddyH]

Du musst die Unit StrUtils oben in der uses-Klausel hinzufügen.

[tAxel]

Alles klar!
Das wars dann auch schon!

Nochmals vielen Dank an alle!

Gruß
Axel