返回某个字符串中某个字符串中出现的次数

yuwenshen

于 2006-09-21 09:15:00 发布

阅读量2.4k

点赞数

文章标签： integer function string

本文链接：https://blog.youkuaiyun.com/yuwenshen/article/details/1258585

版权

本文介绍了一种在Delphi中实现字符串查找次数的方法，并提供了一个输入框编辑器的字符验证功能，确保用户只能输入数字及特定符号。适用于Delphi开发者进行字符串处理和用户输入控制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

// 返回某个字符串中某个字符串中出现的次数}
function TForm1.StrNum(ShortStr:string;LongString:string):Integer;
var
   i:Integer;
begin
   i:=0;
   while pos(ShortStr,LongString)>0 do
      begin
         i:=i+1;
         LongString:=copy(LongString,(pos(ShortStr,LongString))+1,Length(LongString)-pos(ShortStr,LongString))
      end;
   Result:=i;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if length(Edit1.Text)=0 then
begin
if not (Key in['0'..'9','-','.',#27{ESC},#8{退格},#13{回车}]) then
begin
    key:=#0;
end;
if StrNum('.',Edit1.Text)>0 then
begin
    if not (Key in['0'..'9',#27{ESC},#8{退格},#13{回车}]) then
    begin
      key:=#0;
    end;
end;
end
else
begin
if not (Key in['0'..'9','.',#27{ESC},#8{退格},#13{回车}]) then
begin
    key:=#0;
end;
if StrNum('.',Edit1.Text)>0 then
begin
    if not (Key in['0'..'9',#27{ESC},#8{退格},#13{回车}]) then
    begin
      key:=#0;
    end;
end;
end;
end;