Einzelnen Beitrag anzeigen

Benutzerbild von Dunkel
Dunkel

Registriert seit: 26. Mär 2007
Ort: Klingenstadt
541 Beiträge
 
Delphi 2007 Enterprise
 
#7

Re: Ein Array in einer Klasse als private-Deklaration

  Alt 18. Aug 2008, 20:23
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...
  Mit Zitat antworten Zitat