Hallo,
das ist mein Code zu dem Problem:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
x[1] := 1;
y[1] := 1;
x[2] := 2;
y[2] := 1.5;
x[3] := 3;
y[3] := 1.7;
x[4] := 4;
y[4] := 1.9;
x[5] := 5;
y[5] := 2.3;
x[6] := 6;
y[6] := 2.4;
x[7] := 7;
y[7] := 2.6;
x[8] := 8;
y[8] := 3;
x[9] := 9;
y[9] := 3;
x[10] := 10;
y[10] := 2.7;
x[11] := 11;
y[11] := 2.5;
x[12] := 12;
y[12] := 2.2;
x1[1] := 0.5;
y1[1] := 0.5;
x1[2] := 1;
y1[2] := 0.75;
x1[3] := 1.5;
y1[3] := 0.85;
x1[4] := 2;
y1[4] := 0.95;
x1[5] := 2.5;
y1[5] := 1.15;
x1[6] := 3;
y1[6] := 1.2;
x1[7] := 3.5;
y1[7] := 1.3;
x1[8] := 4;
y1[8] := 1.5;
x1[9] := 4.5;
y1[9] := 1.5;
x1[10] := 5;
y1[10] := 1.35;
x1[11] := 5.5;
y1[11] := 1.25;
x1[12] := 6;
y1[12] := 1.1;
end;
procedure TForm1.frxUserDataSet1GetValue(const VarName: string;
var Value: Variant);
begin
if VarName = 'Y' then
Value := y[frxUserDataSet1.tag]
else if Varname = 'X' then
Value := x[frxUserDataSet1.tag]
else if VarName = 'Y1' then
Value := y1[frxUserDataSet1.tag]
else if Varname = 'X1' then
Value := x1[frxUserDataSet1.tag];
end;
procedure TForm1.btClick(Sender: TObject);
begin
frxReport.ShowReport(true);
end;
procedure TForm1.frxUserDataSet1First(Sender: TObject);
begin
frxUserDataSet1.Tag := 1;
end;
procedure TForm1.frxUserDataSet1Next(Sender: TObject);
begin
frxUserDataSet1.Tag := frxUserDataset1.Tag + 1;
end;
procedure TForm1.frxUserDataSet1Prior(Sender: TObject);
begin
frxUserDataSet1.Tag := frxUserDataset1.Tag - 1;
end;
procedure TForm1.frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean);
begin
eof := frxUserDataSet1.Tag > 12;
end;
end.
Im Attachment ist das Diagramm, welches ich erhalte angefügt.
Obwohl beide Kurven unterschiedliche X-Werte (X, X1) haben werden die mit den X-Werten der ersten Kurve (X) gezeichnet.
In TeeChart und QRChart ging es aber richtig.
Wenn jemand eine Idee´hat würde ich mich freuen.
Grüße
EB