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:

zusammenfalten · markieren

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

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

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.

Hallo,

bereich ist das ein Array?

Vielleicht funktioniert es dann so?

zusammenfalten · markieren

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

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.

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?