Utiliser un TChar

uses Series;

// Creates two series in the chart and assigns random values
procedure TForm1.Button1Click(Sender: TObject);
var i, j, kum: Integer;
s, t: TLineSeries;
begin
with Chart1 do
begin
// Title of the Chart
Title.Text.Clear;
Title.Text.Add('Le titre pour le Graph');

// Create first Series
s := TLineSeries.Create(nil);
// Clear it
s.Clear;
// set the title
s.Title := 'Chart Linie 1';
// determine the chart, this series belongs to
s.ParentChart := Chart1;
// the x-axis shall use date
s.XValues.DateTime := True;

// create the second Series
t := TLineSeries.Create(nil);
t.Clear;
t.Title := s.Title + ' kum';
t.ParentChart := Chart1;
t.XValues.DateTime := True;
// this series uses the right axis
t.VertAxis := aRightAxis;

// now add the random values
for i := 0 to 364 do
begin
j := Random(100);
s.AddXY(Date + i, j);
kum := kum + j;
t.AddXY(Date + i, kum);
end;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour05/10/2002
VisualisationVu 2543 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur