Listbix1 eintragungen in Listbox2 Übertragen per Array

[Blueser]

Code:

var
  Form1: TForm1;

  Arr: Array [1..5] of string;
  z,i: integer;
  Liste: tstringlist;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin

Liste.add(Edit1.Text);
Listbox1.items:=liste;

end;

procedure TForm1.FormCreate(Sender: TObject);


begin
Liste:= tstringlist.create;

Arr[1]:=edit1.text;
Arr[2]:=edit1.text;
Arr[3]:= edit1.text;
Arr[4]:= edit1.text;
Arr[5]:= edit1.text;



end;


procedure TForm1.Button1Click(Sender: TObject);


begin

     listbox2.items.add(Arr[i])

end;

end.

so sieht mein listing nun aus.

aber wenn ich den button1 klicke kommt in der listbox nur pE (???)
bitte um hilfe!

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