Drucken aus Record

[Pfl]

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

[Neutral General]

Du hast das "printer" nie initialisiert bzw. erstellt, daher die Zugriffsverletzung.

[DeddyH]

Printer wird automatisch initialisiert. Früher war das eine globale Variable, jetzt eine Funktion, die eine TPrinter-Instanz zurückgibt. Daran liegt es also nicht.

[Klaus01]

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

[DeddyH]

Kleiner Hinweis:

Zitat:

AssignPrn bewirkt in Delphi, dass alle in die Textdateivariable F geschriebenen Informationen an den Drucker weitergeleitet werden. Nachdem Sie der Textdateivariable einen Wert zugewiesen haben, müssen Sie die Prozedur Rewrite aufrufen.

[Pfl]

Danke für die schnellen Antworten Ich habe printer aus der uses entfernt; aber stattdessen become ich fehler 103. Was soll das den nun wieder bedeuten?

[DeddyH]

Zitat von Pfl:

Ich habe printer aus der uses entfernt

Zitat von Pfl:

Was soll das den nun wieder bedeuten?

Um es in Deinen Worten zu sagen

[Pfl]

Ach so ja sorry

[Luckie]

Zitat von Pfl:

Danke für die schnellen Antworten Ich habe printer aus der uses entfernt; aber stattdessen become ich fehler 103. Was soll das den nun wieder bedeuten?

Willst du doch nicht mehr drucken? Und was sagt Google zu Fehler 103?