Hallo,
bereich ist das ein Array?
Vielleicht funktioniert es dann so?
Delphi-Quellcode:
procedure TFormMain.Drucken1Click(Sender: TObject);
var
i : integer;
ptext: TextFile;
begin
// Datei an den Drucker senden; abh. von der Position des Zeigers
if length(bereich) = 0
then
exit;
AssignPrn(ptext);
// text zuweisen
printer.Canvas.Font.Size := 12;
// Hier Exception
Writeln(
ptext,
'
----------------------------------------------------------------------');
for i := low(bereich)
to high(bereich)
do
with bereich[i]
do
Writeln(
ptext,
'
',
Hardwarename,
'
',
'
');
CloseFile(ptext);
// Datei schliessen; damit wird das Objekt wieder entf.
end;
Grüße
Klaus