Funktionsaufruf ??

**Vader**

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

markieren

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

Funktionsaufruf ??

Funktionsaufruf ??

Forumregeln