Überprüfen ob String in Array of String drinne ist.

[Die Muhkuh]

Hoi? :stupid:,

Also ich hab ein Array[0..9] of String:

Delphi-Quellcode:

Zahlen : Array [0..9] of String = ('1', '2', '3', '4', '5', '6', '7', '8', '9', '0');

und zwei Variablen:

Delphi-Quellcode:

Temp1, Temp2: String

und dass an Code:

Delphi-Quellcode:

if (not Zahlen in Temp1) or (not Zahlen in Temp2) then
      begin
        Exit;
      end;

Leider meint der Compiler das der Operaor nicht anwendendbar ist.

[Sharky]

Hai Spider,

ungetestet:

Delphi-Quellcode:

begin
  if (not (Temp1 in Zahlen)) or (not (Temp2 in Zahlen)) then
  begin
  end;
end;

[Die Muhkuh]

@Sharky

ne das geht auch nicht. Immernoch gleiches Problem.-

[Sharky]

Uff...

ich bin ja auch doof ;-)

Delphi-Quellcode:

var
  Zahlen : set of '0'..'9';
  Temp1, Temp2: Char;

procedure TForm1.Button1Click(Sender: TObject);
begin
  temp1 := 'A';
  temp2 := 'b';
  if (not (Temp1 in Zahlen)) or (not(Temp2 in Zahlen)) then
  begin
    exit;
  end
end;

in geht nur bein einem set of von Ordinalentypen (Char)

[Ratte]

Hi,

probier mal (ungetestet):

Delphi-Quellcode:

VAR a,b:boolean;
i:integer;
begin
for i:=0 to 9 do IF Temp1=zahlen[i] THEN a:=true;
i:=0;
for i:=0 to 9 do IF Temp2=zahlen[i] THEN b:=true;
IF not (a AND b) THEN exit;

Ratte

[Die Muhkuh]

Hmm,

ja ich hab auch grad an Set gedacht, aber ich hol das Temp1 und Temp2 aus nem String raus (Copy). Und deswegen kann kein Char sein.

[Sharky]

Wenn ich das richtig sehe ist doch Temp1 und Temp2 immer zu ein Zeichen lang?!
Dann muss es doch gehen (natürlich nicht mit dem Copy-Befehl).

[Die Muhkuh]

@Ratte

ne geht auch net.


@Sharky

ne Temp1, Temp2 können mehr als ein Zeichen haben, auch 4 oder so.

[Sharky]

Zitat:

Zitat von Spider

...ne Temp1, Temp2 können mehr als ein Zeichen haben, auch 4 oder so.

Dann geht es so eh nicht.
Was möchtest Du denn machen? Einfach nür prüfen ob Temp1 oder Temp2 etwas anderes als eine "Zahl" enthält?

[Die Muhkuh]

[quote="Sharky"]

Zitat:

Zitat von Spider

Was möchtest Du denn machen? Einfach nür prüfen ob Temp1 oder Temp2 etwas anderes als eine "Zahl" enthält?

:thumb: Genau, aber ich stell mich echt doof an :stupid: :nerd: