Hilfe Luftdruckrechner

[Y-Fritz]

Zitat:

Zitat von Nikolas

Ich habe mal den Code für ein Editfeld, dass nur korrekt eingegebene Zahlen zulässt in der Codelibrary veröffentlicht, den kannst du für deine Zwecke anpassen.

Hättest du vielleicht auch noch den Link,
hab zwar in der libary gesucht aber nicht gefunden.

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

[Y-Fritz]

Jo, danke klappt wunderbar! :thumb: