Array[..] of record mit FastReport in MasterDataBand ausgebe

[EccoBravo]

Vielen Dank Alzaimar,

Vielen Dank!
Und genau dieser Code funktionierte bei mir nicht, deshalb habe ich angefangen zu fragen.

Ich sende Dir mal meinen Code

Delphi-Quellcode:

...
//..............................................................................
procedure TF_EB_Tagebuch_Tabelle.frxUserDataSet1GetValue(const VarName: string;
    var Value: Variant);
begin
    if VarName = 'Datum' then
        Value := StringGrid1.Cells[0, frxUserDataSet1.Tag]
    else if VarName = 'Zeit' then
        Value := StringGrid1.Cells[1, frxUserDataSet1.Tag]
    else if VarName = 'Typ' then
        Value := StringGrid1.Cells[2, frxUserDataSet1.Tag]
    else if VarName = 'Patient' then
        Value := StringGrid1.Cells[3, frxUserDataSet1.Tag]
    else if VarName = 'FehlerID' then
        Value := StringGrid1.Cells[4, frxUserDataSet1.Tag]
    else if VarName = 'Energie' then
        Value := StringGrid1.Cells[5, frxUserDataSet1.Tag]
    else if VarName = 'Fehler' then
        Value := StringGrid1.Cells[9, frxUserDataSet1.Tag]
    else if VarName = 'Loesung' then
        Value := StringGrid1.Cells[10, frxUserDataSet1.Tag]
    else if VarName = 'Wer' then
        Value := StringGrid1.Cells[6, frxUserDataSet1.Tag]
    else if VarName = 'SR' then
        Value := StringGrid1.Cells[7, frxUserDataSet1.Tag]
    else if VarName = 'TA' then
        Value := StringGrid1.Cells[8, frxUserDataSet1.Tag];
end;
//..............................................................................
procedure TF_EB_Tagebuch_Tabelle.frxUserDataSet1First(Sender: TObject);
begin
    frxUserDataSet1.Tag := 1;
end;
//..............................................................................
procedure TF_EB_Tagebuch_Tabelle.frxUserDataSet1Next(Sender: TObject);
begin
    frxUserDataSet1.Tag := frxUserDataSet1.Tag + 1;
end;
//..............................................................................
procedure TF_EB_Tagebuch_Tabelle.frxUserDataSet1Prior(Sender: TObject);
begin
    frxUserDataSet1.Tag := frxUserDataSet1.Tag - 1;
end;
//..............................................................................
procedure TF_EB_Tagebuch_Tabelle.frxUserDataSet1CheckEOF(Sender: TObject;
    var Eof: Boolean);
begin
    eof := frxUserDataSet1.Tag > fmax
end;
//..............................................................................
...

Wer weiss... was ich da falsch gemacht habe.

Vielleicht fällt Dir / Euch da etwas auf

(Die Lösung dieses Problems ist für viele meiner Programme von Bedeutung, ich bin gerade beim Umstieg auf RAD2007 und FastReport)


Danke für Eure Hilfe

E .B.