Hi Heike,
Dein DBGrid steht auf Form1, die die
Unit Udruck unter Impementation mit uses aufruft.
In der
Unit Udruck muss natürlich auch der Verweis auf Form1 vorhanden sein. Sorry
leider habe ich vergessen:
Delphi-Quellcode:
With Form1
do
if DBGrid1.SelectedRows.Count>0
then
with DBGrid1.DataSource.DataSet
do
for i:=0
to DBGrid1.SelectedRows.Count-1
do
Begin
for j := 0
to FieldCount-1
do
begin
if (j>0)
then s:=s+'
, ';
s:=s+Fields[j].AsString;
end;
ausgabeZeile(s);
If y< -(hoehe-uRand)
then
Begin
// break;
SeitenNr;
NewPage;
y:= -oRand;
SetMapMode(
Handle,MM_LOMETRIC);
printTitle(
name);
end;
end;