dlephi的字符串操作函数有那些？

Question

if Pos('197911',str)>0 then
  SHowMessage('找到')

Answer 1

然后提取的，就要COPY函数就搞定了

Answer 2

if Pos('197911', 'jueduilingdu197911对')>0 then
   ShowMessage('have 197911');

Answer 3

都说完了，来晚了
还有Delete和Insert函数可以用
看一下帮助就明白了

Answer 4

http://61.129.81.122/yuleibo/bbs/dispbbs.asp?boardID=2&RootID=1545&ID=1545这个地方有我编写的关于字符串的五个函数的用法源程序。肯定是可以帮你。str2 := copy (str,1,2);
showmessage ('前面的2个字符为' + str2);

Answer 5

i:=length(str)
str1:=''
if i>5 then
begin
for i:=6 to i do
begin
str1:=str1+str[i];
end;
showmessage(str1);
end;

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
var str : string;begin
     str:='jueduilingdu197911';
     edit1.text:=copy(str,5,8);
end;  //看看吧，你會明白的...

Answer 7

http://61.129.81.122/yuleibo/bbs/dispbbs.asp?boardID=2&RootID=1545&ID=1545
怎么进不去啊！

Answer 8

现在服务器出了问题上不去了。可以发EMAIL给我。[email protected]  我到时候给我寄个。

Answer 9

谢谢楼上的兄弟了，[email protected]

Answer 10

//字符串命令
edit1.text:=ansiLowerCase('I Love this Game');
ansiUpperCase;
compareStr 区分大小写
compareText 不区分大小写