Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
22. Aug 2006
Also wenn StrToInt fehlschlägt, dann müsste EdText gar nicht initialisiert worden sein, somit steht nachher wahrscheninlich nicht viel im Edit (wobei ich sagen muss, ich weiß grad gar nicht, ob ein String immer leer ist, wenn er nicht initialisiert ist, ich setze generell einen Wert).
Also der Code ist irgendwie wirklich nichts. :stupid:
Ich würde TryStrToInt oder Val nehmen, da kann...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
21. Aug 2006
Hi,
dann würde ich aber nicht direkt StrToInt auf das Edit anwenden, sondern sicherheitshalber überprüfen, ob es sich auch wirklich um einen Integer-Wert handelt. Möglichkeiten wären u.a. Val(), try - except oder TryStrToInt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
20. Aug 2006
Huch stimmt, das überprüft mein Code nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
20. Aug 2006
Das du das im OnKEyPress-Ereignis? Dann kann das eigentlich nicht sein. :?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
20. Aug 2006
@Erazer: Fast das gleiche habe ich doch gerade gepostet. :gruebel:
Bei dir wird jedoch das Minus mit gesperrt und die Entf-Taste muss man nicht mit einschließen, die geht so oder so.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
20. Aug 2006
Wie wäre es einfach damit?
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if not (key in ) then
key := #0;
end;