Addition von Zahlen !!!

[Wolfgang Mix]

Erst einmal herzlich willkommen hier im Forum

Sowas?

Delphi-Quellcode:

zahl:=1;
while zahl < endzahl do
begin
  if zahl div 2 = 0 then zahl := zahl1 + 1;
end;
Edit1.Text:=IntToStr(zahl);