dynamisches Array referenzieren

[Mayday171]

Hallo,
Habe eine Funktion geschrieben die Dateinamen aus einen Ordner ausließt und diese eigentlich mit Hilfe von einer Referenz zurückgeben soll. Leider funktioniert das setlength(...) bei typisierten Arrays nicht. Kann man das irgendwie anders regeln?
Wie funktioniert das?=??

Delphi-Quellcode:

//////////////////////////////////////////////////////////////////////////
///
/// FIND FILES FUNTION
///
//////////////////////////////////////////////////////////////////////////
function TForm1.findfiles(var datei:array of TSearchRec):integer;
var i:integer;
    a:integer;
     Rec:TSearchRec;
 begin
   i:=0;
   a:=0;
   while getconfig('checkboxen',inttostr(i))<>'error' do
    begin
      if findfirst(getconfig('Allgemein','root')+getconfig('checkboxen',inttostr(i))+'\*.txt',faAnyFile,Rec)<>0 then
       begin
         i:=i+1;
         continue;
       end;
       //setlength(datei,a+1);
       datei[a]:=rec;
       a:=a+1;
      while findnext(rec)=0 do
        begin
         //setlength(datei,a+1);
         datei[a]:=rec;
         a:=a+1;
        end;

      i:=i+1;
    end;
    result:=0;
 end;
//////////////////////////////////////////////////////////////////////////
///
/// FIND FILES FUNTION ENDE
///
//////////////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);
var dateien:array of TSearchRec;
    i:integer;
begin
findfiles(dateien);
for i:=0 to high(dateien) do
 listbox1.Items.Add(dateien[i].Name);
end;

MfG

[Der_Unwissende]

Hi,
imho ist dein Weg wenig optimal.
Einerseits solltest du nicht mit setLength(deinArray, alteLänge + 1) (mal etwas lapidar gesagt) die Größe verändern, dass ist alles andere als Effizient und manche Speichermanager tun sich damit auch schwer (z.B. der von Delphi).
Das andere ist dein Array als var zu übergeben, d.h. natürlich auch, dass du dich drum kümmern solltest, dass du evtl. schon allozierten Speicher freigibst bevor du eine neue Länge dem Array zuweist.

Ein viel schönerer und einfacherer Weg ist es, wenn du mit einer TList arbeitest. Diese speichert Zeiger und nun ja, wie man einen Zeiger auf einen Datentypen erzeugt weißt du sicher. Mittels New kannst du dir für jedes deiner SearchResults einen eigenen Zeiger besorgen und den einfach in deiner TList (die kannst du dann auch const. übergeben) hinzufügen.
Da es sich um eine Liste handelt, brauchst du dich auch nicht mehr um die Speicherreservierung kümmern, beim Freigeben solltest du aber schauen, ob du ein Dispose für alle Zeiger aufrufen musst (benutzte meistens TObjectList und da gibt es dann ja einen eindeutigen Destruktor)

Gruß Der Unwissende

[Hawkeye219]

Hallo,

du mußt für die Arraydefinition einen Namen einführen:

Delphi-Quellcode:

type
  TSearchRecArray = array of TSearchRec;

function TForm1.findfiles(var datei: TSearchRecArray):integer;

Gruß Hawkeye