字符串分割函数

最新推荐文章于 2022-10-16 01:03:40 发布

vriuswgq

最新推荐文章于 2022-10-16 01:03:40 发布

阅读量359

点赞数

分类专栏： delphi 文章标签： integer constructor delete forms function windows

本文链接：https://blog.csdn.net/vriuswgq/article/details/2537595

版权

delphi 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

unit TMyTool;



interface

uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls;



type



    TPMMS=Class(TObject)

    private

    public

           constructor Create(); overload;

           procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);

           function matching(id:integer):integer;

    end;



implementation



     constructor TPMMS.Create();

     begin

         inherited Create;

     end;



     //分割字符串过程

    procedure TPMMS.SeparateTerms(s : string;Separator : char;Terms : TStringList);

    var

         hs : string;

         p : integer;

   begin

         Terms.Clear; // 清除字符串中的内容

         if Length(s)=0 then    // 长度为0

         Exit;

         p:=Pos(Separator,s);

         while P<>0 do

         begin

               if p<>1 then

               begin

                     hs:=Copy(s,1,p-1);    // 复制字符

                     Terms.Add(hs);        // 添加到列表

                     Delete(s,1,p);        // 删除字符和分割符

                     p:=Pos(Separator,s); // 查找分割符

               end

               else

               begin

                     Delete(s,1,p);

                     p:=Pos(Separator,s);

               end;

       end;

       if Length(s)>0 then

        Terms.Add(s);         // 添加剩下的条目

end;