Autor Beitrag
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 23.12.08 23:12 
- Nachträglich durch die Entwickler-Ecke gelöscht -
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 23.12.08 23:19 
Du willst Zahlen vergleichen, machst aber einen Stringvergleich.
ausblenden 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 < 0or (Zahl > 100then
  ShowMessage('hmm');
end;
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 23.12.08 23:28 
- Nachträglich durch die Entwickler-Ecke gelöscht -
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1



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

*Oops* Ich seh schon, das muss Edit13 heißen.
ausblenden Delphi-Quelltext
1:
Zahl := StrToIntDef(Edit13.Text,-1);					


Zuletzt bearbeitet von DeddyH am Mi 24.12.08 12:42, insgesamt 1-mal bearbeitet
Yogu
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2598
Erhaltene Danke: 156

Ubuntu 13.04, Win 7
C# (VS 2013)
BeitragVerfasst: Di 23.12.08 23:33 
Seltsam...

füge mal folgende Debug-Zeile ein:

ausblenden 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 < 0or (Zahl > 100then
  ShowMessage('hmm');
end;
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 23.12.08 23:34 
- Nachträglich durch die Entwickler-Ecke gelöscht -
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 23.12.08 23:35 
Eine gescheite Namensgebung hat schon ihre Berechtigung, sieht man hier mal wieder.
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



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