Listbox

[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

[Matze]

Hallo,

mittels

ListBox.Items.Add('Wert'); fügt man Einträge in die ListBox ein und mittels Clear kannst du die ListBox leeren.

Grüße

[DeddyH]

Und für das n erhöhst Du Wert in einer Schleife immer um 2.

[mkinzler]

Aber nur bei sortierter Liste

[DeddyH]

nicht richtig gelesen, die ListBox soll ja bereits befüllt sein.

[edit] Rechtschreibfehler [/edit]

[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.

[marabu]

Mit dem "professionellen" Ansatz von Klaus kann man einen schulischen Informatik-Lehrer in tiefe Depressionen stürzen - oder der bringt einen in gewaltige Erklärungsnot - also: Be careful with that axe, Maja!

Freundliche Grüße vom marabu

[Amateurprofi]

Zitat von marabu:

Mit dem "professionellen" Ansatz von Klaus kann man einen schulischen Informatik-Lehrer in tiefe Depressionen stürzen - oder der bringt einen in gewaltige Erklärungsnot - also: Be careful with that axe, Maja!

Freundliche Grüße vom marabu

Ja, marabu, das ist wohl wahr.
Aber ich finde den Lösungsweg, die ungeraden Zahlen im OnData zu erzeugen ganz witzig.
Vor allem ist er extrem performant und extrem fehlerunanfällig.

[DeddyH]

Mal ein (hoffentlich nachvollziehbarer) Ansatz in PseudoCode:

Delphi-Quellcode:

laufvariable = 0
zaehlvariable = 0
solange (laufvariable < Anzahl der ListBoxItems) und (zaehlvariable < Anzahl der gewünschten Treffer)
  Anfang Block 1
    gehe zum ListBoxItem mit Index laufvariable
    wenn Eintrag ungerade
      Anfang Block 2
        Eintrag zum Ergebnis hinzufügen
        zaehlvariable um 1 erhöhen
      Ende Block 2
    laufvariable um 1 erhöhen
  Ende Block 1