Zitat von
arne99:
Oder:
Delphi-Quellcode:
//OnChange deines Edits
...
const bereich = ['0'..'9']; // Nur Zahlen
var i: integer;
begin
if length(DeinEdit.text) > 0 then
begin
for i:= 1 to length(DeinEdit.text) do
begin
if not (DeinEdit.text[i] in zahlen) then
begin
//Ausgabe über unzulässige Werte
exit;
end;
end;
//Hier sind alles Daten OK -> Verarbeitung
end;
end;
Zum einen wird das so nicht funktionieren
und zum anderen ist eine Reaktion im OnKeyPress deutlich besser. Es ist nämlich äußerst nervig, ständig ne Fehlermeldung wegen Falscheingabe zu bekommen. Dann doch besser einfach nur Eingaben erlauben, die auch tatsächlich Sinn machen
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not key in ['0'..'9',',',#8]) or
(key = ',' and pos(key, Edit1.text) > 0) then
key := #0;
if (key = ',') and (length(Edit1.Text) = 0) then
Edit1.Text := '0';
end;
Beim letzen Part bin ich mir nicht ganz sicher, ob das so funktioniert, aber ohne installiertes Delphi kann ich es auch schlecht nachprüfen
Sinn dieser 2 Zeilen ist, bei Eingabe eines Kommas als erstes Zeichen eine 0 zu ergänzen, so dass nach der Eingabe '0,' im Feld steht. Könnte sein, dass dadurch die Eingabe hinfällig wird, oder der Text des Editfeldes markiert ist und durch die Eingabe gelöscht wird (in dem Fall dann einfach SelStart und SelBegin setzen
)
Praktisch wäre es jetzt natürlich noch, wenn statt dem hardgecodeten Komma der eigentliche DecimalSeparator abgefragt wird