Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Cöster,
22. Aug 2006
1. nein, man kann keinen Text einfügen.
2. Wenn StrToInt einen Fehler meldet, wird der Text des Edit-Feldes wieder auf den Zustand von vor dem Change-Event gesetzt. Wenn im Edit-Feld also '234' steht und man dann ein 'b' eingeben will, bleibt '234' stehen.
3a)Das Problem kann man relativ leicht umgehen:procedure TForm1.Edit1Change(Sender: TObject);
var temp: integer;
begin
If (Edit1.Text =...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Cöster,
22. Aug 2006
Warum nicht? Sicherlich ist der Code noch nicht perfekt (man sollte vor's Try noch If not (Edit1.Text = '') then setzen, aber er funzt. Am Anfang sollte das Edit-Feld natürlich leer sein. Dann kann man was eingeben. Es kann zu keinem Zeitpunkt etwas im Edit-Feld stehen, was kein Integer-Wert ist (wie es ja auch verlangt wurde).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Cöster,
21. Aug 2006
Ich würd's so machen:
var EdText: String;
procedure TForm1.Edit1Change(Sender: TObject);
var temp: integer;
begin
Try
temp := StrToInt(Edit1.Text);
EdText := Edit1.Text;