关于MEMO里数据的转换,现在出100分,,,,在线.

Question

memo1里有这样的字符串:
2343778  张生
8843778  王生
7766543  陈生
如何用程序来把memo1里左边的数字导出到memo2,右边的联系人导出到memo3?

Answer 1

一行一行扫描，将每行的字符串进行分解，再进行添加到相应的Memo中

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i,p:integer;
begin
  for i:=0 to memo1.Lines.Count-1 do
    begin
      p:=pos(' ',memo1.Lines[i]);
      memo2.Lines.Add(copy(memo1.Lines[i],0,p));
      memo3.Lines.Add(copy(memo1.Lines[i],p,length(memo1.Lines[i])-p));
    end;
end;
这样可以

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s1:string;
  i,j:integer;
begin
  for j:=0 to memo1.Lines.Count-1 do
  begin
    s1 := memo1.Lines.Strings[j];
    for i:=0 to length(s1) do
    begin
      if s1[i]=' ' then
        begin
          memo2.Lines.add(Copy(s1,1,i));
          memo3.Lines.Add(Copy(s1,i,length(s1)-i+1));
          break;
        end;
    end;
  end;
end;