Da Damn Cam
Grünschnabel
hi,
also ich progge zurzit an einem kleineren prog habe aber ziemliche probleme damit..also ich habe sogut wie alles hin bekommen..aba nun bleiben ich hänge hier ne bissle code :
procedure TForm1.Ed_Seite_AKeyPress(Sender: TObject; var Key: Char);
begin
// ABFRAGEN OB KEY KORREKT EINGEGEBEN!
if not (IstCharOkay(Key)) then
Key := #0;
Seite_A := StrToFloat(Ed_Seite_A.text);
(*if (IstWertOkay(Seite_A)) then
Berechnung
else
Statusbar.Panels[1].Text := ' DER WERT IST ZU GROSS MAX. 100000';*)
end;
also es wird in der Function "IstCharOkay" geguckt ob die eingegebene Taste die Symbole hat die ich haben will..wenn nicht macht er aus dem Falschen KeyCode ne #0..gar nix...nun weiter..ich habe nun eine Funktion die den Werte Bereichtesten soll...nun der Code..
Seite_A := StrToFloat(Ed_Seite_A.text); irgendwie nicht..also gibt Fehler aus..habe nämlich bis dahin getracen..also befehl für befehl..ah!
egal...also wenn ich was in das edit feld eingeben worauf auch die Funtkion zugreif kommt ne Fenster das sagt :
Project Project1.exe raised exepetion classEConvertError with message "" is not a valid Floating Point value...
mhh zuerst habe ich gedacht wegen diesen code :
Key := #0;
es nicht..weil ich will ja dann
StrToFloat(Ed_Seite_A.text);
string umwandel..aba daran liegt es net..hehe
also woran könnte es den liegen das es nicht ?...btw hat jemand ne vorschlag wie ich am besten den Werte Bereich von einen Real Typ auf 100000 setze..also das kein höherer Wert als dieser in die Editbox kommen kann... ?
danke!
also ich progge zurzit an einem kleineren prog habe aber ziemliche probleme damit..also ich habe sogut wie alles hin bekommen..aba nun bleiben ich hänge hier ne bissle code :
procedure TForm1.Ed_Seite_AKeyPress(Sender: TObject; var Key: Char);
begin
// ABFRAGEN OB KEY KORREKT EINGEGEBEN!
if not (IstCharOkay(Key)) then
Key := #0;
Seite_A := StrToFloat(Ed_Seite_A.text);
(*if (IstWertOkay(Seite_A)) then
Berechnung
else
Statusbar.Panels[1].Text := ' DER WERT IST ZU GROSS MAX. 100000';*)
end;
also es wird in der Function "IstCharOkay" geguckt ob die eingegebene Taste die Symbole hat die ich haben will..wenn nicht macht er aus dem Falschen KeyCode ne #0..gar nix...nun weiter..ich habe nun eine Funktion die den Werte Bereichtesten soll...nun der Code..
Seite_A := StrToFloat(Ed_Seite_A.text); irgendwie nicht..also gibt Fehler aus..habe nämlich bis dahin getracen..also befehl für befehl..ah!
egal...also wenn ich was in das edit feld eingeben worauf auch die Funtkion zugreif kommt ne Fenster das sagt :
Project Project1.exe raised exepetion classEConvertError with message "" is not a valid Floating Point value...
mhh zuerst habe ich gedacht wegen diesen code :
Key := #0;
es nicht..weil ich will ja dann
StrToFloat(Ed_Seite_A.text);
string umwandel..aba daran liegt es net..hehe
also woran könnte es den liegen das es nicht ?...btw hat jemand ne vorschlag wie ich am besten den Werte Bereich von einen Real Typ auf 100000 setze..also das kein höherer Wert als dieser in die Editbox kommen kann... ?
danke!