deliphi 字符串分割_Delphi中的字符串分割

今天偶尔要做的Delphi程序,其中涉及到了字符串处理,里面有一个功能类似于VB里的split()函数的功能,于是查了很久才查到些资料,现将这些资料整理一下,方便大家.

首先是一个网友自己编的函数.实现了和split()函数的功能.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type userarray=array of string;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

function split(s: string; dot: char): userarray;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses StrUtils;

{$R *.dfm}

//按所给字符将字符串分隔成数组

function TForm1.split(s:string;dot:char):userarray;

var

str:userarray;

i,j:integer;

begin

i:=1;

j:=0;