Text in Listbox einfügen

[0815]

Hallo,

wie kann ich Text in eine bestimmte Zeile einer Listbox einfügen, sodass die danach folgenden Werte nach unten verschoben werden?

[Alexander]

Hi,
schau dir mal ListBox1.Items.Insert(); an.

//Edit : Erster :tongue: :mrgreen:

[mytar]

Schau dir dazu TListView.Add und TListView.Insert in der OH an!

[Dax]

Versuch mal folgendes:

Delphi-Quellcode:

ListBox1.Items.Insert(2, 'New String');

Das fügt den string 'New String' in die dritte Zeile von oben ein, der Rest wird nach unten verschoben.

[0815]

Danke!

Aber wie sieht es bei Arrays aus? Da gibt es mehr Parameter.

[Alexander]

Also es gibt die Methode AddStrings, mit der man TStrings hinzufügen kann, z.b. auch Stringlists. Aber Methoden für richtige Arrays gibt es glaube ich gar nicht. Das musst du dir mit Insert der Listbox selber basteln.
Prinzip ist ja folgendes: Du gehst alle Indeces des Array durch (for-Schleife!) und fügst dann mit Insert in die Listbox ein...

[Dax]

Bei Array ist das nicht so einfach. Dort brauchst du 2 Arrays:

Delphi-Quellcode:

var TArray, TArray2 = array of ...;
begin
  TArray := Copy(DeinArray, 0, Index-1);
  SetLength(TArray, Length(TArray)+1);
  TArray2 := Copy(DeinArray, Index, Length(DeinArray)-Index);
  SetLength(DeinArray, Length(DeinArray)+Length(InsertItemArray));
  Move(DeinArray[0], TArray[0], Index);
  Move(DeinArray[Length(TArray)], InsertItemArray[0], Length(InsterItemArray));
  Move(DeinArray[Length(TArray)+Length(InsertItemArray)], TArray2[0], Length(TArray2));
end;

Dieser Code fügt das Array InsertItemArray in das Array DeinArray an der Position Index ein, wobei die Anderen Items nach hinten verschoben werden.

BtW: Alle Arrays müssen vom gleichen Typ sein (String, Integer, Byte, ..)