Hoi? ,

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

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

Temp1, Temp2: String
und dass an Code:

markieren

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.

Hai Spider,

ungetestet:

markieren

Delphi-Quellcode:

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

@Sharky

ne das geht auch nicht. Immernoch gleiches Problem.-

Uff...

ich bin ja auch doof

zusammenfalten · markieren

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)

Hi,

probier mal (ungetestet):

markieren

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

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.

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).

@Ratte

ne geht auch net.


@Sharky

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

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?

[quote="Sharky"]

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?

Genau, aber ich stell mich echt doof an