在Delphi中,怎么查找字符串?
发布网友
发布时间：2022-05-12 22:42
我来回答
共4个回答
热心网友
时间：2023-10-27 13:51
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中查找"<"
if j<>0 then //得到的j是字符串中出现的位置，是整型
showmessage('<'+'在第'+inttostr(j)+'个位置'); //第十个位置
end;
热心网友
时间：2023-10-27 13:52
使用pos函数来查找字符第一次出现的位置
pos(要查找的字符串,在字符串中查找)
var
str1:string;
i,j:integer;
begin
str1:='dsf4654f6<ds>ad' ;
j:=pos('<',str1);//在字符串str1中查找"<"
if j<>0 then //得到的j是字符串中出现的位置，是整型
showmessage('<'+'在第'+inttostr(j)+'个位置');
end;
热心网友
时间：2023-10-27 13:52
另外，一个简单的办法，就是用findDialog对话框，它提供这种机制。
热心网友
时间：2023-10-27 13:53
用函数可以完成，如果在数据库中可以用到LIKE
在Delphi中,怎么查找字符串?
使用pos函数来查找字符第一次出现的位置pos(要查找的字符串,在字符串中查找)varstr1:string;i,j:integer;begin str1:='dsf4654f6<ds>ad' ; j:=pos('<',str1);//在字符串str1中查找"<" if j<>0 then //得到的j是字符串中出现的位置,是整型 showmessage('<'+'在第'+inttostr(j)+'个位置')...
在Delphi中,怎么查找字符串?
解析:使用pos函数来查找字符第一次出现的位置 pos(要查找的字符串,在字符串中查找)var str1:string;i,j:integer;begin str1:='dsf4654f6<ds>ad' ;j:=pos('<',str1);在字符串str1中查找"<"if j<>0 then 得到的j是字符串中出现的位置，是整型 showmessage('<'+'在第'+inttostr(j)+...
delphi的memo控件,如何查找到某个字符(字符串),并提取该行的内容?
要全文查找某个字符串的第一个位置，用pos('',memo.text),该函数返回的值是一个整数；也就是字符串第一个字符在全文中的序号。要查找某个字符串在已知行的位置用：pos('要查的字符串',memo.lines.strings[行号];行号是一个从零开始的正整数。授之以渔,比授之以鱼要好 ...
在delphi7中,如何在一个字符串中查找某一地位处的字符是什么?
1、添加TEDIT及TBUTTON控件各一个；2、在TBUTTON控件的单击事件中，写入代码：ShowMessage(Copy(Trim(ed2.Text),Pos('.',Trim(ed2.Text))-6,5));3、在TEDIT中随便输入一串字符，点击TBUTTON控件，效果如下图：
在delphi中如何查找并截取字符串(我的分完了,不知道你们愿不愿意帮我...
如果用字符串截取 var SS, S:String;begin SS := '您好!天天开心！';S := copy(SS, pos('<img src="', SS), Length(SS) - pos(SS, '', S) + 2);ShowMessage(S);end;
delphi 怎样在memo查找某个字符?
很简单啊！procedure TForm1.btnSearchClick(Sender: TObject);var SearchText:string;k:integer;begin SearchText:=edit1.Text; //查找edit1中输入的文本 k:=pos(SearchText,memo1.Text); //求出首次出现SearchText的位置 if k=0 then showmessage('找不到')else begin memo1.SelStart:=k;m...
delphi提取字符串
1.读入文本 2.先按行提取！！！3.逐字检索，行中寻找特殊标记“是”4.发现标记后，打开开始记录开关 5.开始记录开关打开后，一直添加记录检索过的字，并且行中寻找特殊标记“人”6.发现标记后，打开结束记录开关 7.结束记录开关打开后，对记录的字符进行处理，添加到文本框中，且跳出当前行！。。
在delphi7中,怎样在一个字符串中查找某一位置处的字符是什么?
一个字符串就是一个数组 var str: String;begin str := 'hello';caption := str[2]; //显示e end;
delphi 判断是否有字符串
1、在edit1的onkeypress事件中输入如下代码 if not ( Key in ['0'..'9',#13,#16,#8]) then begin Key := #0 ;Exit ;end;2、调用delphi本身自带的函数TryStrToInt来执行判断,例如在edit1的onExit事件中输入：var i: Integer ;begin if not TryStrToInt(Trim(edit1.Text),i) then...
DELPHI中怎么取两个相同的字符中的字符串 如:string sString="1245"789...
语 法： Pos ( string1, string2 {, start } ) 参 数： string1：string类型，指定要在string2中查找的字符串（子串）； string2：string类型， 指定要从中查找子串string1的字符串（母串）； start：long类型，可选项，指定从string2的第几个字符开始查找。缺省值为1。 返回值：Long。函数执行...
