怎么办string型转成Tcaption型?

您好： The type of the Caption property. Unit Controls type TCaption = type string; Description TCaption is the string that represents the caption of a control. 所以應不需要轉吧！！ 引述Delphi.Ktop風紀小隊---[ 發問前請先找找舊文章 ]---

引言: 您好： The type of the Caption property. Unit Controls type TCaption = type string; Description TCaption is the string that represents the caption of a control. 所以應不需要轉吧！！ 引述Delphi.Ktop風紀小隊---[ 發問前請先找找舊文章 ]---

不传不行呀，我做了一个函数是列出某个目录下的所有子目录，这个函数接收string参数，如果有ShellTreeView1.Path告诉这个函数，只列出一级子目录，如果用edit1.text告诉这个函数，就能列出所有子目录，但是我必须要用ShellTreeView1这个控件，我的函数如下： procedure FindSubDirs(Path:string); var FindSubStr:tSearchrec; begin Memo1.Lines.add(path); if FindFirst(path '\' '*.*',faAnyFile,FindSubStr)=0 then begin repeat if (Trim(FindSubStr.Name)<>'.') and (Trim(FindSubStr.Name)<>'..') and (FindSubStr.Attr=faDirectory) then //若找到子目录就调用自身 FindSubDirs(Path FindSubStr.name '\'); //将下一层子目录名传入自身函数 until FindNext(FindSubStr)<>0; //找下一个目录名 FindClose(FindSubStr); end; end; 应该怎么转？

//搜尋檔案列表（含子目錄搜尋） 網路資料之修正版

uses Masks;
...
procedure SearchInDir(Mask, Dir: string; Subdir: Boolean; var List: TStringList);
var
  r: integer;
  f: TSearchRec;
begin
  if Dir = '' then Exit;
  if Dir[Length(Dir)] <> '\' then Dir := Dir   '\';
{$I-}
  ChDir(Dir);
{$I }
  if IOResult <> 0 then Exit;
  r := FindFirst('*.*', faAnyFile, f);
  while r = 0 do
  begin
    if MatchesMask(f.Name, Mask) then
      if (f.Name <> '.') and (f.Name <> '..') then
        List.Add(ExpandFileName(f.Name));
    if (f.Attr and faDirectory) = faDirectory then
      if SubDir = True then
      begin
        if (f.Name <> '.') and (f.Name <> '..') then
        begin
          SearchInDir(Mask, ExpandFileName(f.Name), SubDir, List);
          ChDir(Dir);
        end;
      end;
    r := FindNext(f);
  end;
  FindClose(f);
end;    //Memo1使用方式：
procedure TForm1.Button1Click(Sender: TObject);
var
   Qoo:TStringList;
   i:integer;
begin
 Qoo:=TStringList.Create;
 SearchInDir('*.*','C:\' ,True , Qoo);
 for i:=0 to Qoo.Count-1 do
   Memo1.Lines.Add(Qoo[i]);
 Qoo.Free;
end;     

網海無涯，學無止境! 發表人 - qoo1234 於 2004/01/15 00:48:47

您好: 還是不太懂您的意思,可否在說明白一點 引述Delphi.Ktop風紀小隊---[ 發問前請先找找舊文章 ]---

TCaption(str)

是我大意了，我知道错在那里了，谢谢个位了。