Discussion :

[ghan77]

voilà mon souci c'est qu'avec le text pas de souci j'arrive à lier les String(chaines de caractère) mais maintenant c'est avec un Tchart que j'ai un souci. voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function TForm3.ReportData: Boolean;
begin
  if indexstringgrid > form3.stringgrid1.rowcount then
    begin
     Result := False;
     indexstringgrid:=0;//ligne corrigée !!!!
    end
  else begin
    Result := True;
    form4.QRLabelTitre.caption:=string1[1];
    form4.qrlabelcommentaire.caption:=string1[6]+#10#13+string1[7];
    form4.QRLabelClePub.caption:=form3.stringgrid1.cells[0,indexstringgrid];
    form4.qrlabelDesc.caption:=form3.stringgrid1.cells[1,indexstringgrid];
    form4.qrlabelType.caption:=form3.stringgrid1.cells[2,indexstringgrid];
    form4.qrlabelCP.caption:=form3.stringgrid1.cells[3,indexstringgrid];
    form4.qrlabelPV.caption:=form3.stringgrid1.cells[4,indexstringgrid];
    form4.qrlabelInteret.caption:=form3.stringgrid1.cells[5,indexstringgrid];
    form4.qrlabelNbrExp.caption:=form3.stringgrid1.cells[6,indexstringgrid];
    form4.qrlabelRetour.caption:=form3.stringgrid1.cells[7,indexstringgrid];
    form4.qrCAnet.caption:=form3.stringgrid1.cells[8,indexstringgrid];
    form4.qrBenef.caption:=form3.stringgrid1.cells[9,indexstringgrid];
    form4.qrlabelCout.caption:=form3.stringgrid1.cells[10,indexstringgrid];
    form4.qrlabelPR.caption:=form3.stringgrid1.cells[11,indexstringgrid];
    form4.QRChart1.*:=chart2.*;//je met quoi ici? (1)
    Inc( indexstringgrid );
  end;
end;

(1) je met quoi à cette endroit pour lier le TChart de la page normal et celui de la feuille d'impression QRChart1 pour que QRChart1 affiche ce qui est afficher sur Tchart2?

merci de votre réponse!

[Rayek]

A tester vu que je n'ai pas Quick report

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
QrChart.Series.Assign(Chart2.series);

Mais cherche une piste dans ce style

[ghan77]

Personne n'a d'idée?

[Rayek]

T'as au moins tester ce que je t'ai proposé ?

[ghan77]

oui il me met :
undeclared identifier 'series' '
'[' excpected but ')' found

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
begin
  if indexstringgrid > form3.stringgrid1.rowcount then
    begin
     Result := False;
     indexstringgrid:=0;//ligne corrigée !!!!
    end
  else begin
    Result := True;
    form4.QRLabelTitre.caption:=string1[1];
    form4.qrlabelcommentaire.caption:=string1[6]+#10#13+string1[7];
    form4.QRLabelClePub.caption:=form3.stringgrid1.cells[0,indexstringgrid];
    form4.qrlabelDesc.caption:=form3.stringgrid1.cells[1,indexstringgrid];
    form4.qrlabelType.caption:=form3.stringgrid1.cells[2,indexstringgrid];
    form4.qrlabelCP.caption:=form3.stringgrid1.cells[3,indexstringgrid];
    form4.qrlabelPV.caption:=form3.stringgrid1.cells[4,indexstringgrid];
    form4.qrlabelInteret.caption:=form3.stringgrid1.cells[5,indexstringgrid];
    form4.qrlabelNbrExp.caption:=form3.stringgrid1.cells[6,indexstringgrid];
    form4.qrlabelRetour.caption:=form3.stringgrid1.cells[7,indexstringgrid];
    form4.qrCAnet.caption:=form3.stringgrid1.cells[8,indexstringgrid];
    form4.qrBenef.caption:=form3.stringgrid1.cells[9,indexstringgrid];
    form4.qrlabelCout.caption:=form3.stringgrid1.cells[10,indexstringgrid];
    form4.qrlabelPR.caption:=form3.stringgrid1.cells[11,indexstringgrid];
    form4.QrChart.Series.Assign(Chart2.series);
    //form4.QRChart1.:=chart2;
    Inc( indexstringgrid );
  end;

[portu]

As tu pensé aussi à regarder sur Google. J'ai regardé et je ne vois que des exemples

[ghan77]

j'ai tapé du genre QReport Delphi TChart et je tombe pas sur ce que je veux! je dois chercher ultra mal.Dsl i'm a boulet!

[Rayek]

oui il me met :
undeclared identifier 'series' '
'[' excpected but ')' found

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
begin
  if indexstringgrid > form3.stringgrid1.rowcount then
    begin
     Result := False;
     indexstringgrid:=0;//ligne corrigée !!!!
    end
  else begin
    Result := True;
    form4.QRLabelTitre.caption:=string1[1];
    form4.qrlabelcommentaire.caption:=string1[6]+#10#13+string1[7];
    form4.QRLabelClePub.caption:=form3.stringgrid1.cells[0,indexstringgrid];
    form4.qrlabelDesc.caption:=form3.stringgrid1.cells[1,indexstringgrid];
    form4.qrlabelType.caption:=form3.stringgrid1.cells[2,indexstringgrid];
    form4.qrlabelCP.caption:=form3.stringgrid1.cells[3,indexstringgrid];
    form4.qrlabelPV.caption:=form3.stringgrid1.cells[4,indexstringgrid];
    form4.qrlabelInteret.caption:=form3.stringgrid1.cells[5,indexstringgrid];
    form4.qrlabelNbrExp.caption:=form3.stringgrid1.cells[6,indexstringgrid];
    form4.qrlabelRetour.caption:=form3.stringgrid1.cells[7,indexstringgrid];
    form4.qrCAnet.caption:=form3.stringgrid1.cells[8,indexstringgrid];
    form4.qrBenef.caption:=form3.stringgrid1.cells[9,indexstringgrid];
    form4.qrlabelCout.caption:=form3.stringgrid1.cells[10,indexstringgrid];
    form4.qrlabelPR.caption:=form3.stringgrid1.cells[11,indexstringgrid];
    form4.QrChart.Series.Assign(Chart2.series);
    //form4.QRChart1.:=chart2;
    Inc( indexstringgrid );
  end;

Faudrait peut être regarder le fonctionnement du TChart et voir pourqoi il te sort cette erreur, faut que tu fasses aussi des tests par toi même directement avec le code.
Vu le message d'erreur qu'il t'indique moi je comprend qu'il faut ecrire plutot de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
QrChart.Series[0].Assign(Chart2.series[1]);

avec 0 = le numéro de la série de destination
et 1 = celle que tu veux assigner à 0.

[zarbouine]

est-ce que la bibli est correctement installée ?
quelle version de QR ?

voir les tutoriels sur QR dans la section tutoriels delphi...

[ghan77]

je pense que c'est correctement installé!j'ai delphi 4.0 donc QuickReport c'est pareil je pense

[ghan77]

je fais des tests de code mais à mon stage ils m'ont filé un pc qui rame à mort alors les tests ultra long!donc je perds du temps donc je passe par le site sinon ca irais plus vite c'est sure!

[portu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
QRChart1.Chart.Assign(Chart1);

Est ce comme celà ?

Sinon, la réponse doit bien se trouver ici

A+

[ghan77]

avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

form4.QRChart.Chart.Assign(Chart2);

le titre et le contour du graphe s'affiche mais pas la courbe!bizarre!je vais vori ca!

[Rayek]

avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

form4.QRChart.Chart.Assign(Chart2);

le titre et le contour du graphe s'affiche mais pas la courbe!bizarre!je vais vori ca!

C'est normal, un TChart est un conteneur de TSeries (un peu comme les pagecontrol avec les tabsheet).
Donc il faut aussi copier les TSeries de ton TChart.

[ghan77]

J'ai trouvé la solution!

Je vous donne tout en détails :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    form4.QRChart.Chart.Assign(Chart2);//(1)
    form4.Series1.Assign(series2);//(2)
    form4.Series2.Assign(series3);//(3)

(1) : QRChart c'est le nom du TChart du QuickReport que j'ai mis.
Chart 2 c'est la TChart de votre application que vous afficher à la base.

(2) : Series1 est la Series que j'ai Rajouteé sur le QRChart qui sera associé au Series2 de ma TChart (Chart2).

(3) : Idem.

j'espère que cela aidera certains qui comme moi étaient pomé!

Merci encore!