Listbox

[Amateurprofi]

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.