Moin,
habe hier einen Fastreport und will damit eine Stringliste drucken. Relevanter Sourcecode :
Delphi-Quellcode:
procedure TfrmFrDruck.btnDruckenClick(Sender: TObject);
begin
Memo1.Lines := slZeilen;
StringDS.RangeEnd := reCount;
StringDS.RangeEndCount := slZeilen.Count;
frDruck.ShowReport;
end;
procedure TfrmFrDruck.StringDSGetValue(const VarName: string;
var Value: Variant);
begin
// if CompareText(VarName, 'element') = 0 then
Value := slZeilen[StringDS.RecNo];
end;
Das ist mehr oder weniger aus der Demo PrintStringlist abgekupfert. StringDS ist dabei ein TfrxUserDataset. slZeilen ist die Stringliste und die zeigt mir ein Memo auch gefüllt an. Das GetValue soll ja wohl die Werte übergeben, aber da landet das Programm nie und dementsprechend ist der Report leer. Wo ist da ein Fehler oder wo muss noch was eingestellt werden ?
Und dann noch das CompareText. Wozu das ? Wo kommt 'element her' ? Wo reCount herkommt ist auch nicht klar. Sorry, aber die Fastreport-Demos sind unter aller Sau. Da erzählt man jedem Anfänger, dass der Quelltext zu kommentieren ist. Die Herrschaften von Fastreport haben das aber nicht mal in ihren Demos nötig.
