[Delphi] Frage wegen eines rechners

Uncle Sam · 10. Oktober 2006

Frage wegen eines rechners

Hi,

Habe nun seit einigen stunden info und wir arbeiten mit Delphi. Wir haben ein Rechner gebastelt. Dieser ist so aufgebaut:

2 editfelder wo jeweils eine (komma)zahl eingefügt werden kann.
6 buttons ( +,-,*,/, mwst ausrechnen, bmi ausrechnen)
mehrere labels die dann das ergebnis anzeigen.

in die editfelder kann man nur Zahlen und kommas eingeben und es kommen keine fehlermeldeungen wenn man zb keine zahl oder versucht durch 0 zu teilen, sonder lediglich ein messagedlg. Das Problem ist nur das man mehr als ein komma einfügen kann und somit das programm einen fehler entdeckt.
Meine Frage ist nun, wie man es schafft, dass man nur ein komma schreiben kann.

thx 4 hlp,
Uncle Sam

Anzeige

didda · 11. Oktober 2006

AW: Frage wegen eines rechners

einfach dashier als prozedur zu deinen beiden edits anfügen:

Code:

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;

ich hoffe dass die kommentare ausreichen ^^

Uncle Sam · 12. Oktober 2006

AW: Frage wegen eines rechners

jo thx hast mir sehr geholfen funzt jetzt alles

bewertung hast nu bekommen

thx 4 hlp,
Uncle Samy

-close-

Nützliche Suchen

[Delphi] Frage wegen eines rechners

Videos zum Themenbereich