Strings in Delphi vergleichen???

Hi

Wie kann ich in Delphi überprüfen ob eine Zeichenkette einem bestimmten Muster entspricht?
Wenn z.B. in ein Edit-Feld pc09 oder PC10 oder pC20 usw. eingeben wurde, soll diese Muster erkannt werden. Also müsste ein Filter der folgenden Art erstellt werden: die Buchstaben "p" und c" groß oder klein geschrieben, und dann zwei Ziffern.

Wie lässt sich so ein Filter erzeugen, denn ich habe keine Lust für jede Eingabe-Variation eine eigene if-Abfrage zu schreiben

D.S.

Es gibt eine Komponente "TMaskEdit" (Registerkarte Additional/Zusätzlich), bei der Du in der Property "EditMask" Eingabefilter angeben kannst. Schau es Dir mal an, vielleicht ist das schon das, was Du haben willst...

O Love

------------------
"I will not abide disobedience!"

Also es sollte schon ein Edit-feld sein, in das dann auch noch etwas anderes als nach dem muster pc10 eingegeben werden kann.

D.S.

Also da gibt es viele Möglichkeiten. Um z.B. zu überprüfen ob die ersten beiden Buchstaben "pc" sind, dann geht das so (egal ob Groß- oder Kleinschreibung:

IF upcase(copy(edid1.text, 1, 2)) = 'PC' THEN ...

cion

------------------
Webmaster @www.neobrothers.de .: 3D Spiele mit Delphi programmieren :.

ok, wie kann man jetzt noch überprüfen, ob dahinter zwei Ziffern wie 09 od. 19 ... eingegeben wurden?

D.S.

Ok also zunächst die 2 vermutlichen zahlen kopieren:

s := copy(edit1.text, 3, 2);
zahl := StrToIntDef(s, -1);

Ja das dürfte es sein. Also in der ersten zeile kopiert man sich die zwei Zahlen heraus (man beginnt bei 3, da ja die ersten beiden Zeichen "pc" sind). Jetzt konvertiert man diesen String zu einem Integer mit StrToIntDef. Doch dieser Befehl erhebt keinen Fehler (wie es bei StrToInt wäre), sondern gibt -1 (einstellbar wie man will) zurück, falls der String nicht zu einer Zahl konvertiert werden kann (dann wäre es keine Zahl).

Ok probiers aus...

cion

------------------
Webmaster @www.neobrothers.de .: 3D Spiele mit Delphi programmieren :.

[Dieser Beitrag wurde von cion am 20. November 2000 editiert.]

Nachtrag:

Unter Delphi 5 gibt es jetzt eine Funktion, die sich SameText nennt. So fällt das UpperCase weg, man schreibt einfach:

O Love

------------------
"I will not abide disobedience!"