文本文件以指定的字符串分割

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;

Button2: TButton;

ListBox1: TListBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(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;

SetLength(str, 255);

while Pos(dot, s) > 0 do     //Pos返回子串在父串中第一次出现的位置.

begin

str[j]:=copy(s,i,pos(dot,s)-i);

i:=pos(dot,s)+1;

s[i-1] := chr(ord(dot)+1);

j:=j+1;

end;

str[j]:=copy(s,i,strlen(pchar(s))-i+1);

result:=str;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

ur:userarray;

i:Integer;

begin

memo1.Clear ;

ur:=split(Edit1.Text,',');

for i :=0 to 255 do

begin

if length(ur[i])=0 then Exit;

listbox1.Items.Add(ur[i]);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.