Chart beschriftung ändern

[remie]

Hi Habe ein problem wie kann ich wärend der Laufzeit die Beschriftung eines Chart ändern ????

Thx für die Hilfe

[sakura]

Welche der viele Chart-Komponenten meinst Du Delphi hat mind. bis zu drei verschiedene mir bekannte mit dabei...

......

[remie]

das was bei den zusätzlichen Komponenten ist heist auch ganz normal chart

[sakura]

Also TChart

Delphi-Quellcode:

// entweder
Chart.Title.Text.Text := Title;

// oder
Chart.Title.Text.Clear;
Chart.Title.Text.Add('erste Zeile');
Chart.Title.Text.Add('zweite Zeile');
Chart.Title.Text.Add('dritte Zeile');

......

[remie]

hm bei Text.add zeigt er nichts mehr an und bei text.text zeigt er wie vorher nur die zahlen in dem Beschriftungs Fenster hier mal mein code

Code:

var spalten_text :array [0..20] of String;
    datenarray : array [0..13,0..20] Integer;

procedure TGraph_Jahr.anzeigenClick(Sender: TObject);
var Monat: Integer;
    i,j : Integer;
begin
     case teSComboBox1.ItemIndex of

      0: Monat  := 1;
      1: Monat  := 2;
      2: Monat  := 3;
      3: Monat  := 4;
      4: Monat  := 5;
      5: Monat  := 6;
      6: Monat  := 7;
      7: Monat  := 8;
      8: Monat  := 9;
      9: Monat  :=10;
      10: Monat :=11;
      11: Monat :=12;
    end;

     chart1.Series[0].Clear;

    for i:= 1 to 20 do begin
      if datenarray [Monat][i] <> 0 then
        chart1.Series[0].Add(datenarray [Monat][i],spalten_name[i],RGB(random(255),random(255),random(255)));
        
     chart1.Title.Text.Add(spalten_name[i]); // habe beide reingemacht fals was falsch is
     chart1.Title.Text.Text:=spalten_name[i];
    end;
end;

vieleicht hab ich ja was übersehen

[remie]

Ok Hab den fehler gefunden war in einer meiner Units