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

[Sharky]

Zitat:

Zitat von Spider

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

Nö, Du kennst nur nicht die "alten" Pascalfunktionen ;-)

Delphi-Quellcode:

var
  Temp1, Temp2: String;

procedure TForm1.Button1Click(Sender: TObject);
 var
  i_tmp,
  Code1,
  Code2 : Integer;
begin
  Temp1 := '123';
  Temp2 := 'jdjd';
  Val(Temp1, i_tmp, Code1);
  Val(Temp2, i_tmp, Code2);
  if (Code1 <> 0) or (Code2 <> 0) then
  begin
    ShowMessage ('Keine Zahl!');
  end;
end;

Einfach mal die Procedure VAL in der OH ansehen.

[Die Muhkuh]

Das ist es auch nicht ganz.

Also nochmal:

Wenn eine Meldung kommt z.B. !add -3 _4 Dann wird das ausgerechnet = 7. Wenn aber kommt !add -3g _4 dann soll eine Meldung kommen das ein Buchstabe da drinne ist.

[Lefko]

dann doch einfach so denke ich:

Delphi-Quellcode:

var i : integer;
    Buchst : boolean;
begin
Buchst := false;
for i := 0 to length(Temp1)-1 do
 if (Temp1[i] in ('a'..'z', 'A'..'Z', ...) then Buchst := true;
 
for i := 0 to length(Temp2)-1 do
 if (Temp2[i] in ('a'..'z', 'A'..'Z', ...) then Buchst := true;
 
if Buchst then Showmessage('Buchstaben drin!')
          else Showmessage('Keine Buchstaben gefunden!');
end;

ist jetzt ungetestet, aber ich glaube, das geht so, höchstens mit dem in könnte es des Syntax wegen noch haken ;)

MfG Lefko.