function TForm1.SearchChar(const Char: string; index; integer): integer;
var
i: integer;
s: string;
begin
s := Memo1.Lines[index - 1];
result := 0;
for i := 1 to Length(s) do
if s[i] = Char
inc(result);
end;
var
i: integer;
s: string;
begin
s := Memo1.Lines[index - 1];
result := 0;
for i := 1 to Length(s) do
if s[i] = Char
inc(result);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货