ich habe ein einfaches form, ein Tchart drauf, ein series1 das ein balkendiagramm ist
deinen code, nur in sofern geändert, das ich aus Series1.Add, Series1AddXY gemacht habe:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.AddXY(0.5, 1.5);
Series1.AddXY(1.2, 2.5);
Series1.AddXY(2.1, 3.2);
end;
procedure TForm1.Chart1ClickSeries(Sender: TCustomChart;
Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
dYWert: Double;
iNterWert: Integer;
dXwert: Double;
begin
iNterWert := ValueIndex;
dYWert := Series.YValue[ValueIndex];
dXWert := StrToFloat(Series.XLabel[ValueIndex]);
ShowMessage(Format('Y-Wert ist %g an n-ter (%d) Position auf der x-Achse,%sder x-Wert beträgt %g',
[dYWert, iNterWert, #13#10, dXWert]));
end;
Dann kommt der Error:
blablabla... ' ' is not a valid floating point value'