Format问题

Question

Format问题
我在memo1中放了些字符 字符格式是  
1922,88
2222,333
中间有,
如何把 memo1中的每一行字符 分类到 edit1 和 edit2中 
edit1.text:= 1922
edit2.text := 88 如何写？？

Answer 1

  sl: TstringList;
begin
  sl := TStringList.Create;
  Sl.CommaText := Memo1.lines[0];
  edit1.Text := Sl[0];
  edit2.Text := sl[1];
  sl.Free;
end;

Answer 2

copy结合pos，找逗号的位置再有就是，可以用TStringList，根据‘，’号分隔成两个item

Answer 3

LeftStr(Mystr,Pos(',',Memo1.lines[i])-1);
rightStr(Mystr,Pos(',',Memo1.lines[i])-1);