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

Delphi-Quellcode:

ListBox.Items.Add('Wert');

fügt man Einträge in die ListBox ein und mittels Clear kannst du die ListBox leeren.

Grüße

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Object-Pascal / Delphi-Language" nach "VCL / WinForms / Controls" verschoben.
TListBox -> VCL

[DeddyH]

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

[mkinzler]

Aber nur bei sortierter Liste

[DeddyH]

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

[edit] Rechtschreibfehler [/edit]

[Amateurprofi]

Zitat:

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:

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

[Deep-Sea]

Ich möchte am Rande erwähnen, dass sich auch hier ein TSpinEdit evtl. besser macht, als ein TEdit ... sowohl für Benutzer, als auch für Programmierer ... :wink:


PS @ Amateurprofi: Schöne Lösung x)

[mimi]

wie währe es hiermit:

Delphi-Quellcode:

procedure FillListbox(lb:TListbox);
var
  i:Integer;
begin
  for i:=0 to 400 do lb.items.add(intTostr(i));
end;

// Gibt den ersten Gefunden Eintrag, der Ungerade ist
// Vor sollte FillListbox aufgerufen werden.
// Gibt es keine Ungerade Zahlen wird  -1 zurück geben.
// ich meine odd gibt True zurück wenn die Zahl ungerade ist
// und False wenn sie Gerade ist
function findOdd(lb:TListbox):Integer;
var
  i,k,z:Integer;
begin
  z:=-1;
  for i:=0 to 400 do begin
    k:=StrToint(lb.items[i]);
    if odd(k) then begin z:=i; break;
  end;
  result:=z;
end;

Ich habe die Frage so verstanden der Erste Eintrag der einen ungeraden Wert Enthält das davon der Index gebraucht wird.

[Deep-Sea]

Zitat:

Zitat von mimi

Ich habe die Frage so verstanden der Erste Eintrag der einen ungeraden Wert Enthält das davon der Index gebraucht wird.

Wenn man es so sieht, dann braucht man aber die ersten n Index-Werte und nicht nur den ersten. :P

Zitat:

Zitat von mimi

Delphi-Quellcode:

function findOdd(lb:TListbox):Integer;
var
  i,k,z:Integer;
begin
  z:=-1;
  for i:=0 to 400 do begin
    k:=StrToint(lb.items[i]);
    if odd(k) then begin z:=i; break;
  end;
  result:=z;
end;

Fix 400? Wofür gibt es Items.Count :wink: (Und k und z kann man sich auch sparen [jaja, da kommt wieder das Microcontroller-Programmier-Verhalten durch :mrgreen:])
Außerdem hast du ein begin geschrieben, aber kein end dazu :P

Mal etwas optimiert:

Delphi-Quellcode:

function FindFirstOdd(AList: TListBox): Integer;
begin
  For Result := 0 to AList.Items.Count - 1 do
    If Odd(StrToIntDef(AList.Items[Result], 0)) then Exit;
  Result := -1;
end;

Allerdings, will man wirklich die ersten n Ungraden aus der Liste, müsste man entweder einen Startwert übergeben und die Funktion in einer Schleife aufrufen, oder die Funktion komplett umschreiben ... je nach gewünschter Verwendung ^^

[mimi]

Zitat:

[jaja, da kommt wieder das Microcontroller-Programmier-Verhalten durch Mr. Green])

habe ich nie gemacht.... bis jetzt *G*

Ja kann sein, das der Code Fehler enthält das mit dem Count hatte ich wohl vergessen.... es war ja auch nur als Vorschlag gedacht gewesen.

Zitat:

Allerdings, will man wirklich die ersten n Ungraden aus der Liste,

achso es geht um mehrer nicht nur um den Ersten Eintrag der Ungerade ist, naja da könnte man die Funktionen ja anpassen, das sie ein Array oder sowas zurück geben.... das währe nicht das Problem...

k und z habe ich genommen, weil es so übersichtlicher ist.... und ich das so immer bei solchen Funktionen mache..... naja z habe ich bei den Meisten auf jeden Fall...

[Deep-Sea]

Zitat:

Zitat von mimi

Zitat:

[jaja, da kommt wieder das Microcontroller-Programmier-Verhalten durch Mr. Green])

habe ich nie gemacht.... bis jetzt *G*

Es hat Vor- und Nachteile :-D ... das man so ein wenig "lernt" sparsam zu sein ist vlt. ein Vorteil ^^

Zitat:

Zitat von mimi

achso es geht um mehrer nicht nur um den Ersten Eintrag der Ungerade ist, naja da könnte man die Funktionen ja anpassen, das sie ein Array oder sowas zurück geben.... das währe nicht das Problem...

Wenn, dann ja ^^
Natürlich kann man das dann so machen ... je nachdem wie man es braucht :wink: