Einzelnen Beitrag anzeigen

Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#4

Re: Wertebereich prüfen und fehler abfangen

  Alt 10. Aug 2006, 15:27
Hallo DJAYS,

bei Edit-Feldern,
die nur Integer-Zahlen in einem bestimmten Wertebereich enthalten sollen,
verwende ich immer folgendes:

Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var temp: integer;
begin
     temp := StrToIntDef(Edit1.text, 1{Standartwert});
     if temp > 9999 {max} then temp := 9999;
     if temp < 1 {min} then temp := 1;
     Edit1.text := IntToStr(temp);
end;
Ist vielleicht nicht ganz perfekt und sauber,
aber es funzt und schreckt die Benutzer nicht mit Fehlermeldungen ab.

Zu den Radio-Boxen (siehe Screenshot):
- suche die Eigenschaft "Items"
- klicke dort auf "..."
- im folgenden Kasten kannst du die Auswahlmöglichkeiten festlegen
- die Eigenschaft "ItemIndex" zeigt das angewählte an
( -1 = nichts, 0 = erstes, 1 = zweites, ...)
Miniaturansicht angehängter Grafiken
radio_117.jpg  
Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
  Mit Zitat antworten Zitat