hallo,
hab da eine funktion aufgeschnappt, aber ich weiß nicht wie ich sie aufrufen soll
Code:
function GetFolders( path : string ) : string;
var
searchRec : TSearchRec;
begin
result := '';
if ( FindFirst( path, $00000010, searchRec ) = 0 ) then begin
while FindNext( searchRec ) = 0 do begin
if ( ( searchRec.Attr and $00000010 ) = searchRec.Attr ) then
result := result + searchRec.Name + '|';
end;
FindClose( searchRec );
end;
Delete( result, length( result ), 1 );
end;
mein versuch zum aufrufen in ein memofeld
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines:= GetFolders;
end;
end.
aber das funzt nicht er schreit zu wenig parameter oder sowas.
diese funktion gibt einen string zurück oder ??
wie müßte ich die aufrufen.
mfg vader