Hilfe Luftdruckrechner

[Nikolas]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
var 
string1: string; 
begin 
string1:=edit1.text; 

//allgemeine Sperrung von allen Zeichen ausser 
//backspace, (-) , (,) und Zahlen 
if not (key in[#8{,#44,#45,}#48..#57]) then key:=#0; 

{// das Minus darf nur am Anfang benutzt werden 
if (edit1.selstart <> 0) and( key=#45) then key:=#0; 

// nur ein Komma 
if (pos(#44,string1)>0) and (key=#44) then key:=#0; 

// kein Komma am Anfang 
if (edit1.SelStart=0) and (key= #44) then key:=#0; 

// Kein -,xxx 
if      (edit1.selstart=1) and 
        (string1[1]='-')   and 
        (key=#44)          then 
         key:=#0; }
end;

Hilft nicht gegen c&p, aber sonst bei jeder Eingabe.