这段程序有什么用处呀？分离日期？我晕，但是我要对一个字符串进行操作呀。

Question

  procedure splitdata(chardata: string);
  var
    k: integer;
    str1: string;
  begin
    str1 := '';
    for K := 1 to length(chardata) do
    begin
      if chardata[k] <> '-' then  //这里的是-，我字符串里没有-呀，只有浮点型的.
        str1 := str1 + chardata[k]
      else
      begin
        firgjsd := strtofloat(str1);
        str1 := '';
      end;
    end;
    secgjsd := strtofloat(str1);
  end;从别人那里拿来用的，越看越别扭。

Answer 1

这样就行了
procedure splitdata(chardata: string);
  var
    k: integer;
    str1: string;
  begin
    str1 := '';
    for K := 1 to length(chardata) do
    begin
        str1 := str1 + chardata[k]
    end;
    secgjsd := strtofloat(str1);
  end;

Answer 2

这样用更好一点，前提是的串中全是数字，无字符，除了小数点
function splitdata(chardata: string):double; 
  var 
    k: integer; 
    str1: string; 
  begin 
    str1 := ''; 
    for K := 1 to length(chardata) do 
    begin 
        str1 := str1 + chardata[k] 
    end; 
    result := strtofloat(str1); 
  end;