Listbix1 eintragungen in Listbox2 Übertragen per Array

[DeddyH]

Welchen Wert hat denn i zu dem Zeitpunkt? Ich möchte wetten, dass das 0 ist und somit gar nicht in Deinem Array verfügbar. Eine eingeschaltete Bereichsprüfung sollte einem das auch mitteilen.

[Blueser]

wenn ich eien forschleife vor den arrays setze.. also in etwa so:

for i = 1 to 5 do

--> kommt ne fehlermeldung bei der übertragung

[Klaus01]

wieviele Elemente (Items) hat denn Deine Listbox2?

Versuche mal:

for i:=0 to listbox2.items.count -1 do Grüße
KLaus

[Blueser]

hi!

die elemente der jeweiligen listboxen habe ich gar nicht festgelegt!

weiß auch gar nicht wo ich da einen anhaltspunkt hätte.

eine listbox zunem array zu machen habe ich auch shcon dran gedacht aber ich wüsste halt nicht wie.

--> ausgabe erfolgt mit deiner schleife immer noch mit 'pE'

[Blueser]

das wäre meine nächste idee....

Arr[1]:=listbox1.items[z];

[Zacherl]

Zitat von Blueser:

das wäre meine nächste idee....

Arr[1]:=listbox1.items[z];

Sofern du immer nur das 1. (2.) Element deines Array befüllen willst, ist die Idee gut Nein, mal ganz ehrlich, wer stellt dir diese absurden Aufgaben? Auch hinsichtlich deines Bubble Sort Threads. Deinem Verständnis nach, gehe ich mal nicht davon aus, dass du dir diese Aufgaben selbst zu Lernzwecken stellst ..

Ich gebe dir mal eine allgemeine Hilfestellung, bei der eigentlich nur noch 2 Zeilen Code fehlen. Damit solltest du eigentlich auf die Lösung kommen:

Delphi-Quellcode:

var
  A: array of Integer;
  I: Integer;
begin
  // Schritt 1: Größe des Arrays der Länge der ListBox1 anpassen
  SetLength(A, ListBox1.Items.Count);
  // Schritt 2: Alle Elemente der ListBox1 ins Array kopieren
  for I := 0 to ListBox1.Items.Count - 1 do
  begin
    // TODO: 
  end;
  // Schritt 3: Alle Elemente des Arrays in ListBox2 kopieren
  for I := Low(A) to High(A) do
  begin
    // TODO: 
  end;
end;

Wenn du die entsprechenden Zeilen dann eingefügt hast, wirst du auch selbst feststellen, dass die Aufgabenstellung absolut schwachsinnig ist. Man konvertiert einen String in einen Integer, nur um den Wert direkt danach wieder in einen String umzuwandeln :O

[DeddyH]

Ich würde auch gern einmal den genauen Wortlaut der Aufgabe kennen. Mir scheint, hier herrscht ein Missverständnis vor, ansonsten wäre das doch ziemlicher Stuss

[Blueser]

hi!

das verlangt alles mein lehrer!

finde ich ehrlich gesagt auch sehr gut, weil man die basics verstehen muss.

es ist ja nicht so, dass ich nicht programmieren könne.
in java stehe ich immerhin auf ner 1...
aber da ich dieses schuljahr wdh. und dieses das letzte schuljahr ist, und ich vorher noch kein delphi hatte, muss ich mal ordenlicht in die tasten hauen!

p.s.: es geht um mein abi ^^

[Zacherl]

Jetzt hast du aber nicht deine Aufgabenstellung beachtet (Integer Array verwenden). Dein "Arr" ist doch ein Array of String. Die Lösung, die ich angedacht hatte ist folgende:

Delphi-Quellcode:

var
  A: array of Integer;
  I: Integer;
begin
  // Schritt 1: Größe des Arrays der Länge der ListBox1 anpassen
  SetLength(A, ListBox1.Items.Count);
  // Schritt 2: Alle Elemente der ListBox1 ins Array kopieren
  for I := 0 to ListBox1.Items.Count - 1 do
  begin
    A[I] := StrToInt(ListBox1.Items[I]);
  end;
  // Schritt 3: Alle Elemente des Arrays in ListBox2 kopieren
  for I := Low(A) to High(A) do
  begin
    ListBox2.Items.Add(IntToStr(A[I]));
  end;
end;

Ich gehe mal davon aus, dass der Lehrer euch den Umgang mit StrToInt() und IntToStr() näherbringen wollte. Alles andere würde bei der Aufgabenstellung für mich keinen Sinn ergeben.

[DeddyH]