Ⅰ 在delphi中如何選擇文件夾
usesFileCtrl；
functionSelectDirectory(varDirectory:string;//英文對話框
Options:TSelectDirOpts;HelpCtx:Longint):Boolean;overload;
functionSelectDirectory(constCaption:string;//中文對話框
constRoot:WideString;
varDirectory:string):Boolean;overload;
//以下是Delphi幫助的Demo:
usesFileCtrl;
const
SELDIRHELP=1000;
procereTForm1.Button1Click(Sender:TObject);
var
Dir:string;
begin
Dir:='C:/MYDIR';//預設為C:/MYDIR
ifSelectDirectory(Dir,[sdAllowCreate,sdPerformCreate,sdPrompt],SELDIRHELP)then
Label1.Caption:=Dir;//Dir返回選擇的文件夾
end;
Ⅱ 在Delphi中，怎麼查找字元串
Delphi提供的字元串函數里有一個Pos函數，它的定義是：
function Pos(Substr: string; S: string): Integer;
它的作用是在字元串S中查找字元串Substr，返回值是Substr在S中第一次出現的位置，如果沒有找到，返回值為0。
使用pos函數來查找字元第一次出現的位置
var
str1:string;
i,j:integer;
begin
str1:='dsf4654f6<ds>ad';
j:=pos('<',str1);//在字元串str1中查找"<"
ifj<>0then//得到的j是字元串中出現的位置，是整型
showmessage('<'+'在第'+inttostr(j)+'個位置');//第十個位置
end;