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;
2.画图,直接在canvas上画点就OK了,类图,应该大概就如下吧
TParserIDrawData
TDrawDots
TDrawBar
TDrawPie
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;