试试这样行不行:
procedure TForm1.Button1Click(Sender: TObject);
var
myStrList:TStringlist;
i,p:integer;
begin
myStrList:=TStringlist.Create;
try
for i:=0 to 20 do
begin
myStrList.Add(intToStr(i));
end; // 增加下面这行
myStrList.Sort;
myStrList.Find('4',p);
showMessage(intTostr(p));
finally
FreeAndNil(myStrList);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
myStrList:TStringlist;
i,p:integer;
begin
myStrList:=TStringlist.Create;
try
for i:=0 to 20 do
begin
myStrList.Add(intToStr(i));
end; // 增加下面这行
myStrList.Sort;
myStrList.Find('4',p);
showMessage(intTostr(p));
finally
FreeAndNil(myStrList);
end;
end;
解决方案 »
- 请教各位高手DELPHI还行吗?
- delphi程序运行老是要登陆的问题,会的请进
- Tstream,难了3天的简单问题,高手快来顶顶
- 微软的阴谋---> .NET
- 说个情 hehe^^ 支持一下menggirl做版主 -- 95927
- 咨询一下现在程序员是否都还像以前一样忙???
- enter快捷键设置
- 怎样做自己的窗口标题栏,高手请帮忙,分会加的?!
- 原来贴过,无人能解决,网络程序高手请进,如何监测局域网中他人的网卡的工作模式,如何发现局域网中的监听器??
- 周一发薪:gzmhero(hihihi)接分
- 有关信息管理系统的问题请指教
- 谁有indy写pop的例子?听说自带的例子对163/263不支持。
myStrList:TStringlist;
i,p:integer;
begin
p := 0; try
myStrList:=TStringlist.Create;
for i := 0 to 20 do
begin
myStrList.Add(intToStr(i));
end;
myStrList.Sort;
myStrList.Find('11',p);
showMessage(intTostr(p));
except
myStrList.Free;
end;排序规则是以字符排序为规则,即 '0', '1', '11','12'....'2'...