Einzelnen Beitrag anzeigen

DJAYS

Registriert seit: 13. Sep 2005
Ort: Nürnberg
28 Beiträge
 
Delphi 5 Standard
 
#1

Wertebereich prüfen und fehler abfangen

  Alt 10. Aug 2006, 10:09
hallo,
ich schreibe so ein klein testprogram.ich möchte die Zahlwerteingabe kontrollieren,damit die falsche Eingaben und Bereichüberschreitung vermieden wird,z.B für Hex([0..9,a..f,A..F]),Integer,Floating point und Real48(Double).die Eingabe mache ich über Edit feld mit Ereignis OnKeyPress,damit wenn ich Entertaste drücke,ein fehler soll kommen falls falsche Zahlwert oder bereich überschritten wurde.
für Hex habe ich so was geschrieben,weiß auch net viel

Delphi-Quellcode:
function TFrm_ZahlwertEingabe.Hex(s:String):Boolean;
 var c : integer;
 begin
  Result := true;
 for c := 1 to Length(s) do
  if not (s[c] in ['0'..'9', 'A'..'F', 'a'..'f']) then
   Result := false;
end;
ich eigentlich nicht fit in delphi und auch programmieren(also anfänger)
könnte jemand mir helfen
danke

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]
I like Programing, but it hates me!wat am I gonna do?
  Mit Zitat antworten Zitat