Hallo, liebe Community,
ich versuche gerade, aus einem record einen Satz an den Drucker zu senden; die Frage ist nur, wie mache ich das am besten? Ich habe folgenden Code versucht:
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 anzdst = 0
then
exit;
AssignPrn(ptext);
// text zuweisen
printer.Canvas.Font.Size := 12;
// Hier Exception
Writeln(
ptext,
'
----------------------------------------------------------------------');
for i := 1
to anzdst
do
with bereich[i]
do
Writeln(
ptext,
'
',
Hardwarename,
'
',
'
');
CloseFile(ptext);
// Datei schliessen; damit wird das Objekt wieder entf.
end;
Allerdings tritt eine Zugriffsverletzung auf, die offenbar beim Zuweisen durch assign passiert (ist). Was kann ich da tun?
LG