Strings Definieren

ImbaPanda · Verfasst: Mo 24.09.07 16:25

Also ich habe folgendes Problem
Ich möchte eine Variable deklarieren die diese Strings enthält: '+','-','*','/'
Sozusagen alle Rechenzeichen, denn ich will einen String nach genau dieser Variable durchsuchen, also nach allen Rechnenzeichen.
So ginge das meiner Meingung nach:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

//Plus
PosA:=Pos('+',Rechnung);
//Minus
PosB:=Pos('-',Rechnung);
If PosB<PosA
  Then PosA:=PosB;
//Mal
PosB:=Pos('*',Rechnung);
If PosB<PosA
  Then PosA:=PosB;
//Geteilt
PosB:=Pos('/',Rechnung);
If PosB<PosA
  Then PosA:=PosB;

Ich find es aber ziemlich lästig nach jedem Zeichen einzeln zu suchen und dann zu gucken, ob es das erste Zeichen ist.
Gibt es eine schnellere/kompaktere Möglichkeit nach dem nächsten Rechenzeichen in einem String zu suchen?

Vielen Dank für alle Ideen und Vorschläge

Moderiert von Narses: Delphi-Tags hinzugefügt

elundril · Verfasst: Mo 24.09.07 16:33

mit posex kannst du ab einer bestimmten stelle suchen falls du das meinst.

lg elundril

PS: es gibt Delphi-Tags nun auch als Freeware. Jeder darf sie nutzen. Auch du!
und ich glaube dieses thema hätte man auch mit der suche finden können.

Wonko · Beiträge: 69

Mit

markieren

Delphi-Quelltext

1:
2:
3:
4:

if Key in [',', '.'] then
  for i:=1 to Length(Edit2.Text) do
    if Edit2.Text[i] in [',', '.'] then
      Key:=#0;

als OnKeyPress-Event schaue ich immer nach, ob schon ein Komma gesetzt wurde. Sollte so ähnlich also auch für Dich taugen.

_________________
"Read the directions, even if you don't follow them.", Mary Schmich

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme