ersten n Elemente aus einem dynamischen Array ausschneiden

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