Zitat von
RWarnecke:
Zitat von
mkinzler:
Zudem würde ich die Größe einmal setzen und nicht bei jedem Schritt vergrößern
Ich kann aber die Größe nicht vorher setzen, da ich die Größe vorher ja nicht weiß.
Gibt es denn eine maximal erreichbare Größe? Dann benutz diese und verkleiner dann das Array am Ende entsprechend der wirklich gebrauchten Größe.
Wenn es keine maximal erreichbare Größe geben sollte (oder diese bei MAXINT liegen sollte [solch ein Riesenarry anzulegen um im schlimmsten Fall nur einen Eintrag einzufügen ist definitiv sub-optimal]) dann machst Du es halt folgendermassen
Delphi-Quellcode:
const
Delta = 500;
var
myArray: array of string;
myArraySize: integer;
myItemConter: integer;
i: integer;
begin
myItemCounter := 0;
myArraySize := Delta;
SetLength(myArray, myArraySize);
for i:= 0 to WasWeißIch do
begin
Inc(myItemCounter);
myArray[i]:= "Foo"+i;
if myItemCounter = myArraySize then
begin
Inc(myArraySize, Delta);
SetLength(myArray, myArraySize);
end;
end;
SetLength(myArray, myItemCounter);
Ist wesentlich schneller und ressourcenschonender als bei jedem Durchlauf das Array um 1 zu vergrößern.
Es ist zu wahr um schön zu sein...