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

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