Imprimido O Conteúdo De Um Memo (Resolvido)

[Paulo Nobre]

Gostaria que alguém me passasse um código simples

para imprimir o conteúdo de um memo.

Achei o código abaixo, mas não o entendi e não funcionou!!!

O código abaixo implementa uma função para imprimir o conteúdo de um componente Memo.

Para que seja feita a impressão, o código cria um arquivo texto de impressão (MemoFile :TextFile), com o objetivo de armazenar as linhas existentes no memo.

Neste arquivo são armazenadas todas as linhas existentes no memo.

O código completo:

Procedure TForm1.Memo_Print(Conteudo:TStrings);

Var

MemoFile :TextFile;

P :Integer;

Begin AssignPrn(MemoFile);

Rewrite(MemoFile);

For P := 0 to Conteudo.Count-1 do

Writeln(MemoFile,Conteudo.Strings[P]);

CloseFile(MemoFile);

end;

Exemplo :

Procedure Tform1.Button1Click(Sender:TObject);

begin

MemoPrint(Memo1.Lines);

end;

obrigado

[Paulo Nobre]

Adaptei o código que havia obtido da seguinte maneira:

Procedure MemoPrint(Conteudo:TStrings);

Var

MemoFile :TextFile;

P :Integer;

Begin

AssignPrn(MemoFile);

Rewrite(MemoFile);

For P := 0 to Conteudo.Count-1 do

Writeln(MemoFile,Conteudo.Strings[P]);

CloseFile(MemoFile);

end;

Exemplo :Num botão para imprimir(por exemplo cmdImprimir) coloque

Procedure Tform1.cmdImprimir(Sender:TObject);

begin

MemoPrint(Memo1.Lines);

end;

Deu certo e funcionou!!

Agora tenho uma outra dúvida que é a seguinte.

O código acima imprime apenas o conteúdo do memo.

Que adaptação deveria fazer para colocar um cabeçalho para imprimir antes de aparecer o conteúdo do memo?

Por exemplo se eu quisesse que aparecesse sempre antes do conteúdo do memo a frase: DELPHI É MUITO BOM!!

[Graymalkin]

Acredito que depois da linha...

 Rewrite(MemoFile);

... você deveria colocar:

 writeln(MemoFile, 'DELPHI É MUITO BOM!!');

Veja aí se dá certo.

Abraços,

Graymalkin

[Paulo Nobre]

Muito Obrigado, GrayMalkin.

Abraços,

Paulo Nobre