如何把一个串“123456789.12”分割为‘123456789’和‘.12’？

Question

如何把一个串“123456789.12”分割为‘123456789’和‘.12’？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  S:String;
begin
  S:='123456789.12';
  Edit1.Text:=copy(s,1,pos('.',s)-1);
  Edit2.Text:=copy(s,pos('.',S),Length(S)-Length(copy(s,1,pos('.',s)-1)));
end;

Answer 2

smiler007（笑一笑）
高手！！！

Answer 3

Edit3.Text:=FormatFloat('#,##0.00',StrToFloat(s));
这样得出来的是123,456,789.12楼主办要数字中一个千分号吗？？那也用pos()定位增加就是