ersten n Elemente aus einem dynamischen Array ausschneiden

[Sveno2]

Wie geht das?

Gruss Sven

[Khabarakh]

Indem du jedes einzelne Element um n Indizes vorschiebst und dann dann SetLength mit Length(...) - n aufrufst. Wenn du dir das ersparen willst, solltest du dir die Klasse TList (bzw. für Instanzen TObjectList und für Strings TStringList) anschauen.

[Martin K]

Also mit einer TStringList:var Liste: TStringList; geht das ganz einfach so:

Delphi-Quellcode:

For i:=1 to n do
begin
  If Liste.Count=0 then
    Exit;
  Liste.Delete(0);
end;

Da bei einem Array die Anzahl der Zeilen vordefiniert ist,
kannst du nicht nachträglich im Quellcode die Anzahl der Zeilen verändern.

z.B.:var Liste: Array[1..20] of Strings; Dann hast du 20 Zeilen, da kannste keine einfach so rausnehmen.

Höchstens so:

Delphi-Quellcode:

For i:=1 to n do
begin
  Liste[i]:='';
  If i=20 then 
    Exit;
end;

Aber dann hast du immer noch 20 Zeilen, bloß die ersten n Zeilen sind halt einfach leer.

[Khabarakh]

Zitat von Martin K:

Also mit einer TStringList geht das ganz einfach:

Delphi-Quellcode:

var
  StringList: TStringList;

...

For i:=0 to n do
  StringList.Delete(n);

Jupp, es geht wirklich einfach. Aber nicht so . Da sofort nach dem Löschen die Indizes der verbliebenen Items angepasst werden, würdest du mit deinem Code den 0., 2., 4., 6. usw. String löschen.
[add] Außerdem muss die Schleife natürlich bis n - 1 laufen. [/add]

Delphi-Quellcode:

for i := 0 to n - 1 do
  Strings.Delete(0);

oder

Delphi-Quellcode:

for i := n - 1 downto 0 do
  Strings.Delete(i);

[Martin K]

So, hab meinen Beitrag oben geändert.
Jetzt müsste es so funzen.

[marabu]

Hi.

Zitat von Martin K:

Da bei einem Array die Anzahl der Zeilen vordefiniert ist,
kannst du nicht nachträglich im Quellcode die Anzahl der Zeilen verändern.

Bei dynamischen Arrays - siehe Titel - geht das:

Delphi-Quellcode:

type
  TBaseType = integer;
  TIntegerArray = array of TBaseType;

procedure DeleteElements(var da: TIntegerArray; start, count: cardinal);
var
  i: integer;
begin
  if count > (length(da) - start)
    then count := Length(da) - start
    else Move(da[start + count], da[start], SizeOf(TBaseType) * (Length(da) - start - count));
  SetLength(da, Length(da) - count);
end;

Grüße vom marabu

[jbg]

Schon von Copy() und Slice() gehört? Markieren und F1 drücken. Borland hat für dyn. Arrays schon vorgesorgt.

[marabu]

Hallo Andreas,

vielen Dank für diese Information. Da ich in noch keinem Projekt dynamische Arrays eingesetzt habe, ist mir das völlig entgangen.

Freundliche Grüße vom marabu

[Der_Unwissende]

Ansonsten auch unbedingt setLength zum ändern der Größe vermeiden. Wurde bestimmt schon in einigen Threads behandelt, kann zu tierischen Speicherlecks führen. Am besten dafür vorgesehene Funktionen (die ja schon von jpg gepostet wurden) verwenden. Bei häufigem setLength ist der Speicher schnell sinnlos weg.

Gruß Der Unwissende

[Flocke]

@marabu: Move darf man aber nur bei Elementtypen verwenden, die keine Initialisierung oder Finalisierung benötigen, also insbesondere keine Strings sind oder beinhalten.

Ansonsten sollte man den Bereich, den man überschreiben will, vorher mit Finalize finalisieren und den hinten überstehenden Quellbereich mit FillChar leeren - oder in einer Schleife von Hand die Einträge kopieren.

@Der_Unwissende: SetLength hat mit den Speicherlecks eigentlich nichts zu tun...

@jbg: slice kenn' ich nicht