解决方案 »

  1.   

    1.解析字符串,可以使用TStringList将;替换成#13,然后用Strings[i]来访问
    2.画图,直接在canvas上画点就OK了,类图,应该大概就如下吧
    TParserIDrawData
      TDrawDots
      TDrawBar
      TDrawPie
      

  2.   

    var
      sl : TStringList;
      i : Integer;
    begin
      sl := TStringList.Create;
      try
        sl.Delimiter :=';';
        sl.DelimitedText := '36456;456546;45645;546456';
        for i := 0 to sl.Count -1 do begin
           Series1.Add(StrToFloat(sl.Strings[i]),IntToStr(i));
           ...
        end;
      finally
        sl.Free;
      end;