Einzelnen Beitrag anzeigen

Dax
(Gast)

n/a Beiträge
 
#7

Re: Text in Listbox einfügen

  Alt 12. Sep 2004, 14:42
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, ..)
  Mit Zitat antworten Zitat