Buchstaben und andere Zeichen erkennen
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 |
Re: Buchstaben und andere Zeichen erkennen
Überprüf doch alle einzelnen Charakter eines Strings.
Schau, ob ein Char. sich im set ( '0'..'9' ) nicht befindet!? MfG |
Re: Buchstaben und andere Zeichen erkennen
Hallo emsländer
Delphi-Quellcode:
oder
s:string;
i:Integer; Begin for i:=1 to Length(s) do Begin if s[i] NOT in ['0'..'9'] then fehler; end;
Delphi-Quellcode:
Da war einer schneller :gruebel:
if StrToIntDef(s,0)=0 then
fehler; mfg Holger |
Re: Buchstaben und andere Zeichen erkennen
Zitat:
Danke! |
Re: Buchstaben und andere Zeichen erkennen
BrunoT - so ( S[i] NOT in .. ) wird das nicht funzen - Syntax Fehler.
Delphi-Quellcode:
Diese Funktion liefert dir, falls sich ein Zeichen, das <> '0'..'9' ist, im Übergabeparameter befindet, ihren Index; ansonsten 0.
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; Konkret:
Code:
var x: Cardinal;
x := CharInStr( '12379A' ); x wäre 6 x := CharInStr( '123790' ); x wäre 0 |
Re: Buchstaben und andere Zeichen erkennen
Hallo Aphton,
du hast ja recht, das war quick 'n durty, sorry Holger |
Re: Buchstaben und andere Zeichen erkennen
Zitat:
if StrToIntDef(s,0)=0 then fehler; reichte vollkommen! Danke Gruss EL |
Re: Buchstaben und andere Zeichen erkennen
Zitat:
|
Re: Buchstaben und andere Zeichen erkennen
Gab es in Pascal nicht den Befehl VAL? :stupid:
|
Re: Buchstaben und andere Zeichen erkennen
|
Re: Buchstaben und andere Zeichen erkennen
Hallo, habe jetzt nicht alles aus diesen Thread gelesen. Aber für dein Vorhaben scheinen doch die RegularExpressions geradezu prädestiniert zu sein.
Wirf mal einen Blick in die Hilfe/Syntax. Nach wenigen Minuten Einarbeitungszeit, dürften schon einfache Fälle recht schnell zu lösen sein :wink: Hoffe, ich konnte dir helfen. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz