简单问题,顶者有分!~~

Question

先定义一个字符串string:a='123;321;345;657;124;';然后再定义一个strings:b.
现在就是把a 中的字符串放到b中,而且以a中的";"为分界符,b的输出形式就是
b='123
   321
   345
   657
   124'
哪位能不能写个例子实现下!

Answer 1

var
  s: TStringList;
  i: integer;
  ss: array of string;
begin
  s:= TStringList.Create;
  s.DelimitedText:= '123;321;345;657;124';
  s.Delimiter:= ';';
  setlength(ss,s.Count);
  for i:= 0 to s.Count-1 do
  begin
    ss[i]:= s[i];
    showmessage(ss[i]);
  end;
  s.Free;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  a : string;
begin
  a := '123;321;345;657;124;';
  while pos(';', a) > 0 do
    a[pos(';', a)] := #13;
  showmessage(a);
end;

Answer 3

function mergstring(astr:string;asplit:char):string;
var
  s: tstringlist;
  i: integer;
begin
  result:='';
  s:= tstringlist.create;
  try
     s.delimitedtext:= astr;
     s.delimiter:= asplit;
     if s.count > 0 then
     for i:= 0 to s.count-1 do
  result:=result+#13#10+s[i];
  finally
    s.free;
  end;
end;example:
   mergstring('123;321;345;657;124',',');

Answer 4

uses StrUtils
var a,b:string;
a:='123;321;345;657;124;';
b:=AnsiReplaceStr(a,';',#13);
showmessage(b);

Answer 5

b := WrapText('123;321;345;657;124;',#13#10,[';'],0);

Answer 6

支持 hellolongbin(一个人[终不似 少年游]) ！~！

Answer 7

呵呵``很不错的程序~`
前段时间做了也个C#的程序~`
是用的是
string ss
ss.Split(';');
我想这样就可以自动将SS分离

Answer 8

string类型支持多行的..在显示的时候,回车和换行的效果就出来了..

Answer 9

我就知道用
var
  s: TStringList;
begin
  s:= TStringList.Create;
  s.DelimitedText和 s.Delimiter
可是人家已经写了。
帮楼主顶一下。