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

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

[Markus K.]

Hi Vader,
du hast oben die Funktion mit einer String-Variablen deklariert, also musst du beim Aufruf auch eine übergeben.
memo1.lines:= GetFolders({path}); Tschüß Markus

[Vader]

hallo markus,

hast du die funktion ausprobiert, denn erschreit noch immer nicht
genügend parameter,wenn ich sie so aufrufe.

memo1.lines:= GetFolders({path});


mfg vader

[CalganX]

Hi,
{path} ist ein Kommentar...

Du musst da schon den richtigen Pfad als String bzw. als Stringvariable übergeben...

Chris

[Vader]

hallo chris,

versteh nur bahnhof !!!
du sagst:

Du musst da schon den richtigen Pfad als String bzw. als Stringvariable übergeben...

in der funktion oder im aufruf bitte kannst du mir den richtigen
aufruf für die funktion posten.

mfg vader

[CalganX]

Hi Vader,
GetFolders('C:\Dein\Verzeichnis\das\du\auslesen\willst\'); Chris

[Vader]

hallo chris,


hab den aufruf jetzt so gemacht:

memo1.lines:=GetFolders('C:\Windows');
dann kommt die fehlermeldung :

[Fehler] Unit1.pas(46): Inkompatible Typen: 'TStrings' und 'String'

frage: in der funktionsdeklaration bleibt das path od. muß das auch ersetzt werden durch den richtigen pfad ??

function GetFolders( path : string ) : string;


mfg vader

[braingrenade]

Moin!

probier mal

memo1.lines.add(GetFolders('C:\Windows'));

[Vader]

thanks brain,

der aufruf funzt, aber dafür funzt die funktion nicht,glaub die ist
nicht ganz rein.
es wird im memo nicht angezeigt nach start des progs.

mfg vader

[Sharky]

Hai Vader,

FindFirst möchte im Pfad auch eine Dateimaske haben. Du must die Funktion also so aufrufen:

Delphi-Quellcode:

begin
  Memeo1.Lines.Add (GetFolders ('c:\windows\*.*'));
end;

Oder, noch einfacher, das "*.*" in der Funktion an path dranhängen:

Delphi-Quellcode:

function GetFolders( path : string ) : string; 
var
  searchRec : TSearchRec;
begin
  path := path + '*.*';
  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;


procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.Lines.add (GetFolders ('c:\Windows\'));
end;