Hallo,
damit mein Problem etwas verständlicher wird, werde ich nun etwas Programmcode beifügen.
Delphi-Quellcode:
procedure TF_Haupt.frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean);
begin
eof := frxUserDataSet1.Tag > Bild.Bildzahl;
end;
procedure TF_Haupt.frxUserDataSet1First(Sender: TObject);
begin
frxUserDataSet1.Tag := 1;
end;
procedure TF_Haupt.frxUserDataSet1GetValue(const VarName: string;
var Value: Variant);
var
i, j, k: integer;
WertX, WertY: array of integer;
WertZ: array of array of single;
begin
setlength(WertZ, DoseMatrix.Xdim + 2, DoseMatrix.Ydim + 2);
setlength(WertX, DoseMatrix.Xdim + 2);
setlength(WertY, DoseMatrix.Ydim + 2);
// if VarName = 'Bild' then
// begin
// for j := 1 to Bild.Ydim do
// begin
// for i := 1 to Bild.Xdim do
// begin
// Value[i, j, frxUserDataSet1.Tag] := Bild.GrauMatrix[i, j,
// frxUserDataSet1.Tag] * 65793;
// end;
// end;
// end;
if VarName = 'Dose' then
begin
for j := 1 to DoseMatrix.Ydim do
begin
for i := 1 to DoseMatrix.Xdim do
begin
WertZ[i, j] := DoseMatrix.Matrix[i, j,
frxUserDataSet1.Tag].RelWert;
end;
end;
Value := WertZ;
end;
if VarName = 'DoseX' then
begin
for i := 1 to DoseMatrix.Xdim do
begin
WertX[i] := i;
end;
Value := WertX;
end;
if VarName = 'DoseY' then
begin
for j := 1 to DoseMatrix.Ydim do
begin
WertY[j] := j;
end;
Value := WertY;
end;
end;
procedure TF_Haupt.frxUserDataSet1Next(Sender: TObject);
begin
frxUserDataSet1.Tag := frxUserDataSet1.Tag + 1;
end;
procedure TF_Haupt.frxUserDataSet1Prior(Sender: TObject);
begin
frxUserDataSet1.Tag := frxUserDataSet1.Tag - 1;
end;
Nun einige Fragen dazu:
1. Kann ich für ein 2D-Chart der Form
Z=f(x,y) in der Variable
Value von
frxDserDataSet1.Chart1 nur
eindimensionale Arrays übergeben ?
2. Mir ist immer noch nicht klar: muss für eine
no Database Anwendung ins
Masterband4 von frxReport
eine 0 oder 1 hinein ?
3. Wenn ich im FastReport
k 2D-Diagramme aus der Matrix A(k,y,
k) abbilden möchte, wo bringe ich den
frxUserDataSet1.Tag unter ?
ich werde noch 2 jpg´s nachsenden.
Danke
E.B.