Ersten Teil eines Array (of string) löschen?

[Nicolai1234]

Kann ich bei einem Array of string, den ersten Array also MeinArray[1] löschen, sodass die andern nachrücken?
Also
2 --> 1
3 --> 2 usw.

Hoffe ihr versteht was ich meine
Danke im voraus
Nicolai

[Nicodius]

ich denke so gehts

Delphi-Quellcode:

delete(Arrayname[1],1,Length(arrayname([1]))

edit: aber denke doch nciht


edit2

aber so gehts logisch: du baust ne schleife von 0 bis length(Arrayname) -- ob -1 weß ich ejtzt net

dann verschiebst alle so: Arrayname[i-1] := Arrayname[i];

[Nicolai1234]

Gibt es keine einfachere bzw elegantere Lösung?

[Nicodius]

Bei delphisource gefunden

Zitat:

Soll ein Array-Element gelöscht werden, ohne dass an dieser Stelle eine Lücke verbleibt, müssen alle folgenden Elemente um eins nach vorne kopiert werden. Bei einem dnyamischen Array kann dann das letzte Element abgeschnitten werden; ansonsten wird sein Wert in einen Standardzustand versetzt.

Delphi-Quellcode:

type TIntArray: array of integer;

function DeleteArrayElement(var arr: TIntArray; const index: integer);
var i: integer;
begin
  if index<high(arr) then begin
    for i:=index to high(arr)-1 do
      // eins nach vorne kopieren
      arr[i]:=arr[i+1];
  end;
  // Länge kürzen (bei dyn. Arrays)
  SetLength(arr, length(arr)-1);
end;

viel spass ;)

[Nicodius]

eine function ohne rückgabe gibts nicht :mrgreen:

[roderich]

für sowas drängt sich eine TStringList geradezu auf....

Roderich