Fehler bei ulam folge

Zlatan · Beiträge: 175

Könnte jemand diesen Quelltext korrigieren?
Man soll keine Kommazahlen eingeben dürfen.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.BitBtn1Click(Sender: TObject);
var U : integer;
begin
U := Strtoint(EingabeEdit.Text);
if EingabeEdit.Text:Single (StrToInt) then showmessage('Ungültige Eingabe!')
else
Memo1.text:= Inttostr (u);
while u<>1  do
begin
 if U mod 2=0
then  u := u div 2
else u:=u*3+1;

Memo1.text:= Memo1.Text+ ', ' + Inttostr(u);

     end;

jaenicke · Verfasst: Do 17.03.11 13:26

Zlatan hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	if EingabeEdit.Text:Single (StrToInt) then showmessage('Ungültige Eingabe!')

Wie es richtig geht steht doch in deinem anderen Thread zu dem Thema verlinkt... Wo ist denn jetzt das TryStrToInt? Und das was du da schreibst hat mit Delphi-Syntax nichts zu tun.

Schaffst du es nicht einmal den Link zu Google anzuklicken und dort z.B. den ersten Fund? :roll:

Ich schreibe zu dem Thema nichts mehr. Dir fehlen offensichtlich immer noch jegliche Grundlagen, bist aber zu faul diese zu lernen, dazu gehört eben auch lesen. Wenn dir trotzdem jemand anders noch helfen möchte, bitte, ich nicht.

glotzer · Beiträge: 393 Erhaltene Danke: 49 Win 7 Lazarus

www.delphi-treff.de/tutorials/grundlagen/

Gausi · Verfasst: Do 17.03.11 14:01

Ein Topic zu dem Thema reicht. Geschlossen.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme