Buchstaben und andere Zeichen erkennen

[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