求一字符串功能 ( 积分: 5 )

Z

zpselect

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-10

• #1

字符串：S:='11@126.com,22@126.com,33@126.com'
现将其分解为三个邮件地址即：11@126.com , 22@126.com ,33@126.com
并且显示在ListBox中，即：
11@126.com
22@126.com
33@126.com

 

F

FishEatsCats

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-10

• #2

Function Spilter(Var Ans:TStrings;S:String):Boolean;
Var i;Integer;
St:String;
Begin
Try
result:=True;
if Ans=nil then Ans:=TStringList.Create;
Ans.Clear;

St:='';
For i:=1 to Length(S) do
if S=',' then Begin
Ans.Append(St);
St:='';
end else
St:=St+S;
end;

if St<>'' then Ans.Append(St);
except
result:=False;
end;
end;


Spilter()传入 变参 TStrings,参数 String ,返回 Boolean 判断操作成功或者失败

ListBox1.Items.Assign(Ans); 即可

 

A

angellover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-10

• #3

SplitString

 

F

FishEatsCats

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-10

• #4

刚才直接写的，有个地方错了'

Function Spilter(Var Ans:TStrings;S:String):Boolean;
Var i:Integer;
St:String;
Begin
Try
result:=True;
if Ans=nil then Ans:=TStringList.Create;
Ans.Clear;

St:='';
For i:=1 to Length(S) do
if S=',' then Begin
Ans.Append(St);
St:='';
end else Begin
St:=St+S;
end;

if St<>'' then Ans.Append(St);
except
result:=False;
end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var Str:TStrings;
begin
Str:=TStringList.Create ;
Spilter(Str,Edit1.Text );
ListBox1.Items.Assign(Str);

Str.Free ;
end;

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-10

• #5

procedure TForm1.Button1Click(Sender: TObject);
const
S = '11@126.com,22@126.com,33@126.com';
begin
ListBox1.Items.CommaText := S;
end;

 

Z

zpselect

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #6

多人接受答案了。