Delphi5 ... es gab da mal (test auf ziffern)

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo. In meinem Delphi Kochbuch 4 ist noch eine Funktion beschrieben, die heisst >if isDigit

#2

Hallole Jens,

mach doch bei einem Event (OnExit oder OnChange) eine überprüfung mit val(). Lass in einer For-To-Do alle Zeichen einzeln überprüfen, dann findest du schnell die Zahlen heraus.

Ich habe das Kochbuch 4 nicht, aber könnte es nicht sein, dass die Funktion die du suchst von den Autoren geschrieben wurde??

Wolfgang

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi Jens,

so eine Funktion sollte aber eigentlich jeder Programmierer ganz fix selbst schreiben können (auch ohne Kochbuch). Außerdem: Wenn die im Buch abgedruckt ist, was ist dann Dein Problem – schreib sie doch ab!?

Ohne jetzt in’s Kochbuch – ich hab das auch (und find’s teilweise ziemlich dämlich) – geschaut zu haben, würde ich die Funktion wie folgt implementieren:

FUNCTION IsDigit (c: CHAR): BOOLEAN;
begin
 Result := (c\>='0') AND (c
Mit freundlichem Gruß
Martin
#4

.

Hi Jens,

Hai Martin

so eine Funktion sollte aber eigentlich jeder Programmierer
ganz fix selbst chreiben können (auch ohne Kochbuch).

Das problem: ich bin leider kein Programmierer. Ich habe mir was selbst gebastelt, aber das ist leider ziemlich gross und ich find’s umständlich. Deine Verion gefällt mir besser und funktioniert auch.

Danke, Gruss Jens.

Außerdem: Wenn die im Buch abgedruckt ist, was ist dann Dein
Problem – schreib sie doch ab!?

Sie funktioniert in Version 4, nicht in 5.

Ohne jetzt in’s Kochbuch – ich hab das auch (und find’s
teilweise ziemlich dämlich) – geschaut zu haben, würde ich die
Funktion wie folgt implementieren:

FUNCTION IsDigit (c: CHAR): BOOLEAN;
begin
Result := (c>=‚0‘) AND (c
Mit freundlichem Gruß
Martin