Delphi 拆分字符串的方法-源代码

FOOLCODE

已于 2024-02-19 09:38:03 修改

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏：基于Delphi 语言开发应用文章标签： delphi integer string function windows 测试

于 2008-01-09 22:34:00 首次发布

本文链接：https://blog.youkuaiyun.com/FOOLCODE/article/details/2032709

基于Delphi 语言开发应用专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个用于将输入字符串按指定定界符进行分割的程序。该程序能够返回分割后的子串数量，并将各子串存储于数组中。适用于Windows多种操作系统环境。

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

{
本程序段说明:  将字符串按定界符分成若干子串，并将子串-->Sx[](全程变量)，返回子串个数;
               Sx[0]-->第零个字符串，Sx[1]-->第二个字符串，以此类推...
程序段功能：   字符串分割程序
编制日期：     2008/01/09-2008/01/09
版本号：       Ver: 1.0.0.0.0
运行条件：
运行软件环境： WINDOWS NT,2000,XP,98,ME&95
运行硬件环境： PC AT&T COMPATIBLE
编制人员：     FOOLCODE
修正人员：     FOOLCODE
修正日期：     2008/01/09
故障点：
修正故障点：
测试时间：
}
Function splitstring(delimiter:string; inputstring:string; Var Sx : array[0..100] of string):integer;
var
        tempstring:string;
        i,j,total_sub:integer;
        stringlong:longint;
begin
        { 清控Sx[]中的字符串；}
        for j:=0 to 100 do
        begin
            Application.ProcessMessages;
            Sx[j]:='';
        end;
        { 初始化相关变量；}
        total_sub:=0;
        tempstring:='';
        { 取得字符串的长度；}
        stringlong:=length(trim(inputstring));
        { 获取子串 并将子串--> Sx[], 返回子串个数 0-->没有子串；}
        for i:=1 to stringlong do
        begin
              Application.ProcessMessages;
              tempstring:=copy(trim(inputstring),i,1);
              if tempstring <> delimiter then
              begin
                        Sx[total_sub]:=Sx[total_sub]+tempstring;
              end
              else
              begin
                        if copy(trim(inputstring),i+1,1)= delimiter then
                        begin
                                total_sub:=total_sub;
                        end
                        else
                        begin
                                total_sub:=total_sub+1;
                        end;
              end;
        end;
        result:=Total_sub;
end;