Budgetplaner v1.0

[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;

Quelle