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