Budgetplaner v1.0

[leddl]

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