Hi Leute!
Ich wollte ein kleines Programm schreiben, mit dem ich ganz einfach die Teiler einer eingegebenen Zahl in eine Listbox schreiben lasse.
Hierzu habe ich forgenden Quellcode:
Delphi-Quellcode:
procedure TForm1.BTeilerClick(Sender: TObject);
var ergebnis, i, o : integer;
begin
o:= StrToInt(E1.Text) ;
for i:=1 to o do begin
ergebnis:= o div i;
LB1.Items.add(IntToStr(ergebnis))
end;
end;
Allerdings sollen nur ganze Zahlen eingetragen werden...
Das Programm rundet jedoch die Zahlen, wenn sie keine Ganzzahlen sind.
Dies soll verhindert werden, damit in der ListBox(LB1) nur die ganzahligen Teiler zu sehen sind.
Wie mache ich das?