関数で得た動的配列を戻り値にするには？ (ID:700)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

なんちゅうか、Delphiに不慣れなあんさんやな〜
関数の書式が分かっとらんチャウか。
関数より変数パラメータがエエがな。

//----------------------------------------------
//最初に array of string型を定義しといて使いなはれ。
type
  TArrayOfString = array of string;

//-------------------------------------------
procedure TForm1.MaeShori(const strFolderPath: string; var strOldName: TArrayOfString);
var
  intValFile: Integer;
  SearchRec : TSearchRec;
begin
  intValFIle := 0;
  if 0 = FindFirst(strFolderPath+'*.*', faAnyFile, SearchRec) then begin
    repeat
      if (SearchRec.Attr and faDirectory = 0) and
          (SearchRec.Attr and faHidden = 0) then begin
        SetLength(strOldName, intValFile + 1);
        strOldName[intValFile] := SearchRec.Name;
        intValFile := intValFile + 1;
      end;
    until 0 <> FindNext(SearchRec);
    FindClose(SearchRec);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  strOldName   : TArrayOfString;
  strFolderPath: string; //対象フォルダパス
  i : Integer;
begin
  strFolderPath := 'C:\Windows\Temp\';
  MaeShori(strFolderPath, strOldName); //上の手続き呼び出し
  with ListBox1 do begin
    Clear;
    for i:=0 to High(strOldName) do begin
      Items.Add(strOldName[i]);
    end;
  end;
end;
//--------------------------------------------

←解決時は質問者本人がここをチェックしてください。

戻る