Print StringList

Smid dataene i en TRichEdit og kald print funktionen.

Jeg har indtil videre gjort sådan

Procedure WindowsPrint(aList : TStringList);
  Var
    PrintText              : TextFile;
    intX                    : Integer;
Begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Try
    Printer.Canvas.Font.Name := 'Courier New';
    For intX := 0 to aList.Count - 1 Do
      Writeln(PrintText, aList.Strings[intX]);
  Finally
    CloseFile(PrintText);
  End;
End;

Er TRichEdit en visuel komponent? eller kan den bruges 'skjult'

Den kan oprettet at runtime og holdes skjult. Men hvis det du har lavet virker så er det nok lettere.

Indtil videre ser det ud til at opfylde mit formål.

Men din metode lyder som noget jeg skal have kigget efter i sømmene.

procedure TForm1.WindowsPrint(aList : TStringList);
Begin
    With TRichEdit.Create(Self) do
  begin
      Width:=0; //skjult
    Parent:=Self;
    DefAttributes.Name:='Courier New';
    Text:=aList.Text;
        Print('');
    Free;
  end;
end;

------
Tilføj evt. ComCtrls til din uses

Smid et svar for input/ideer

svar