Drucken aus Record

[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