delphi查找字符相同

发布网友发布时间：2023-01-31 00:57

共3个回答

热心网友时间：2023-05-01 22:28

procere TForm1.Button1Click(Sender: TObject);
var
s1: string;
i,j: integer;
begin
s1:='asd123';
j:=0;
for i:=0 to memo1.Lines.Count-1 do
if memo1.Lines.Strings[i] = s1 then
j:=j+1;
edit1.Text:=inttostr(j); //j=3;
end;

热心网友时间：2023-05-01 22:29

可以到Delphibbs论坛里去找，有很多的。

热心网友时间：2023-05-01 22:29

你最起码得定义一个搜索的字符串内容吧,按你的标题:这里面有6个a,也是相同的字符了.
function GetCharNum(const Ch:Char; const Str: string):Integer;
var
S:PChar;
begin
S:=PChar(Str);
Result:=0;
while S^<>#0 do
begin
if S^=Ch then
Inc(Result);
Inc(S);
end;
end;

var i:Integer;
i:=GetCharNum('asd123',memo1.Text)
这样就得到你的结果了

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com