一个比较急的字符串问题

Question

1234.213;43543.123
这是一个字符串怎么把它分成两个？分号前面是一个分号后面是一个 
详细说明一下，谢谢

Answer 1

var  
  len : integer;
  p : integer;
p := Pos(';','1234.213;43543.123');
len := length('1234.213;43543.123');
s := copy('1234.213;43543.123',1,p);
s1 := copy('1234.213;43543.123',p+1,len);

Answer 2

var
  f1, f2: double;
  s: string;
begin
  s := '1234.213;43543.123';
  f1 := StrToFloatDef(Copy(s,1, Pos(';', s) - 1), 0);
  Delete(s, 1,Pos(';', s));
  f2 := StrToFloatDef(s, 0);
end;

Answer 3

这行改一下
s := copy('1234.213;43543.123',1,p-1);