Zitat von
Maja:
Hallo liebe Delphi-Freunde!
Ich möchte ein Programm erstellen, bei dem ich einen wert n eingebe und in einer listbox die ersten n ungeraden zahlen herausbekomme. ich weiß nich, wie ich die listbox programmieren soll, bitte helft mir!
lg
Hallo Maja,
Was hältst du von dieser Version ?
Objekte
Eine Editbox (Edit1), OnChange=Edit1Change setzen
Eine Listbox (Listbox1), Style=lbVirtual setzen, OnData=Listbox1Data setzen
Delphi-Quellcode:
procedure TMain.Edit1Change(Sender: TObject);
var n,vc:integer;
begin
val(Edit1.Text,n,vc);
if (vc<>0) or (n<1) then n:=0;
ListBox1.Count:=n;
end;
procedure TMain.ListBox1Data(Control: TWinControl; Index: Integer;
var Data: string);
begin
Data:=IntToStr(Cardinal(index) shl 1+1);
end;
Bei nicht virtuellen Listboxen wirst du bei großen Zahlen schnell ein OutOfMemory kriegen.