delphi4arab منتديات دلفي للعرب

(13-06-2017, 06:21 PM)jeanjamil كتب : [ -> ]السلام عليكم
هذا الكود يطبع memo
لكنه لا يظهر الكلمات الاحرف الاولى من الاسطر 
جربت alignment لكن نفس النتيجة

---

[quote pid='42068' dateline='1497374465']
السلام عليكم
هذا الكود يطبع memo
لكنه لا يظهر الكلمات الاحرف الاولى من الاسطر 
جربت alignment لكن نفس النتيجة

 
var
  Ptext : textfile;
  I       : LongInt;
begin
     if Print Dialog OK//

    AssignPrn(ptext               
    ReWrite(Ptext)                
  ;  Printer.Canvas.Font := Memo1.Font;  
    
    for I := 0 to Memo1.Lines.Count - 1 do begin
     [ WriteLn(ptext,Memo1.Lines[I]
    end;
closefile
(ptext)