2 Memos Drucken

[aerotech]

Hallo, ich habe auf meinem Delphi Formular 2 Memo Boxen, den Inhalt dieser Memos möchte ich drucken lassen, sobald mal einen bestimmten Button klickt.
Problem: Dieser Code ermöglicht es eine Memo drucken zu lassen und zwar "Memo1".
Frage: Wie bekomm ich jetzt hin, dass im Ausdruck der Inhalt der Memo2 direkt unter dem der Memo1 steht!? Dazwischen 4-5 x [Enter], dann aber der 2 Text....

versteht ihr wie ich meine!?

Wie muss der Code dafür aussehen!? Über Antwort würde ich mich sehr freuen. Vielen Dank! :thumb:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 

var 
  r: TRect; 
  i: Integer; 
begin 
  with Printer do 
    begin 
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); 
      BeginDoc; 
      for i := 0 to Memo1.Lines.Count do 
       Canvas.TextOut(200,200 + (i * 
Canvas.TextHeight(Memo1.Lines.Strings[i])), 
                                   Memo1.Lines.Strings[i]); 
      Canvas.Brush.Color := clBlack; 
      Canvas.FrameRect(r); 
      EndDoc; 
    end; 

end;

[Matze]

Mach doch etwas wie:

Delphi-Quellcode:

Memo1.Text := Memo1.Text + #13#10 + #13#10 ... + Memo2.Text;

Oder löse es mit einer Stringlist.

[aerotech]

Zitat:

Zitat von Matze

Mach doch etwas wie:

Delphi-Quellcode:

Memo1.Text := Memo1.Text + #13#10 + #13#10 ... + Memo2.Text;

Oder löse es mit einer Stringlist.

Öhm, ich verstehe nicht so recht!? :pale:
Ne, will keine Strinklist!

[MiniKeks]

Ganz einfach wie du siehst ;)

Gruss
MiniKeks, NSS Team

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 

var 
  r: TRect; 
  i: Integer; 
begin 
  memo1.lines.add ('');  //Enter
  memo1.lines.add ('');  //Enter
  memo1.lines.add ('');  //Enter
  memo1.lines.add ('');  //Enter
  memo1.lines.add ('');  //Enter
  memo1.lines.add (memo2.text);   //Text von Memo2
  with Printer do 
    begin 

      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); 
      BeginDoc; 
      for i := 0 to Memo1.Lines.Count do 
       Canvas.TextOut(200,200 + (i * 
Canvas.TextHeight(Memo1.Lines.Strings[i])), 
                                   Memo1.Lines.Strings[i]); 
      Canvas.Brush.Color := clBlack; 
      Canvas.FrameRect(r); 
      EndDoc; 
    end; 

end;