Chart und die X-Achse

[marabu]

Hallo Markus,

Delphi-Quellcode:

procedure TMainForm.ActionButtonClick(Sender: TObject);
var
  bs: TBarSeries;
  i: integer;
begin
  bs := TBarSeries.Create(myChart);
  myChart.AddSeries(bs);
  // so werden die Achsenbeschriftungen beim Hinzufügen mitgegeben
  with bs do begin
    Add(40, 'labelA', clRed);
    Add(50, 'labelB', clGreen);
    Add(70, 'labelC', clBlue);
    Add(30, 'labelD', clYellow);
  end;
  // und so kannst du sie später ändern
  with bs do
    for i := 0 to Count - 1 do
      XLabel[i] := IntToStr(i * 100);
end;

Grüße vom marabu