Ⅰ 在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;