Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - OnExit - Problem mit Edit


Delete - Di 23.12.08 23:12
Titel: OnExit - Problem mit Edit
- Nachträglich durch die Entwickler-Ecke gelöscht -


Delete - Di 23.12.08 23:19
Du willst Zahlen vergleichen, machst aber einen Stringvergleich.

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
procedure TForm1.Edit13Exit(Sender: TObject);
var Zahl: integer;
begin
  Zahl := StrToIntDef(Edit3.Text,-1);
  if (Zahl < 0) or (Zahl > 100) then
  ShowMessage('hmm');
end;


Delete - Di 23.12.08 23:28
- Nachträglich durch die Entwickler-Ecke gelöscht -


Delete - Di 23.12.08 23:32
Du hast aber einmal '101' oder '-10' eingegeben?

*Oops* Ich seh schon, das muss Edit13 heißen.

Delphi-Quelltext 
1:
 
Zahl := StrToIntDef(Edit13.Text,-1);


Yogu - Di 23.12.08 23:33
Seltsam...

füge mal folgende Debug-Zeile ein:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
procedure TForm1.Edit13Exit(Sender: TObject);
var Zahl: integer;
begin
  Zahl := StrToIntDef(Edit3.Text,-1);

  ShowMessage('Zahl = ' + IntToStr(Zahl));

  if (Zahl < 0) or (Zahl > 100) then
  ShowMessage('hmm');
end;


Delete - Di 23.12.08 23:34
- Nachträglich durch die Entwickler-Ecke gelöscht -


Delete - Di 23.12.08 23:35
Eine gescheite Namensgebung hat schon ihre Berechtigung, sieht man hier mal wieder.


Delete - Di 23.12.08 23:36
- Nachträglich durch die Entwickler-Ecke gelöscht -


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!