Buchstaben und andere Zeichen erkennen

[emsländer]

Moin,

in einem String dürfen NUR Zahlen stehen. Wenn dort Buchstaben eingegeben worden sind, muss ich das erkennen.

also in der Form:

if found('abcdef....öäl/bla') dann ROTLICHT!

wie kann man das auf die Schnelle bewerkstelligen?


Nein - ich kann keine num. Var nehmen, da die Daten aus einer DB kommen

Gruss

EL

[Aphton]

Überprüf doch alle einzelnen Charakter eines Strings.
Schau, ob ein Char. sich im set ( '0'..'9' ) nicht befindet!?

MfG

[BrunoT]

Hallo emsländer

Delphi-Quellcode:

s:string;
i:Integer;

Begin

for i:=1 to Length(s) do
Begin
  if s[i] NOT in ['0'..'9'] then
   fehler;
end;

oder

Delphi-Quellcode:

if StrToIntDef(s,0)=0 then
fehler;

Da war einer schneller


mfg

Holger

[emsländer]

Zitat von BrunoT:

Hallo emsländer

Delphi-Quellcode:

s:string;
i:Integer;

Begin

for i:=1 to Length(s) do
Begin
  if s[i] NOT in ['0'..'9'] then
   fehler;
end;

oder

Delphi-Quellcode:

if StrToIntDef(s,0)=0 then
fehler;

Da war einer schneller


mfg

Holger

Danke!

[Aphton]

BrunoT - so ( S[i] NOT in .. ) wird das nicht funzen - Syntax Fehler.

Delphi-Quellcode:

function CharInStr( Str: String ): Cardinal;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(Str) do
    if not( Str[i] in ['0'..'9'] ) then
    begin
      Result := i;
      Exit;
    end;
end;

Diese Funktion liefert dir, falls sich ein Zeichen, das <> '0'..'9' ist, im Übergabeparameter befindet, ihren Index; ansonsten 0.

Konkret:

Code:

var x: Cardinal;

x := CharInStr( '12379A' );
x wäre 6

x := CharInStr( '123790' );
x wäre 0

[BrunoT]

Hallo Aphton,

du hast ja recht, das war quick 'n durty, sorry

Holger

[emsländer]

Zitat von BrunoT:

Hallo Aphton,

du hast ja recht, das war quick 'n durty, sorry

Holger

der hier

if StrToIntDef(s,0)=0 then
fehler;

reichte vollkommen!

Danke

Gruss

EL

[Namenloser]

Zitat von emsländer:

if StrToIntDef(s,0)=0 then
fehler;

reichte vollkommen!

Und was machst du, wenn in s '0' steht? Dann gibt dieser Code auch einen Fehler aus.

[Sharky]

Gab es in Pascal nicht den Befehl VAL?

[Muetze1]

TryStrToInt()