Problemas com Memo (eu acho)

15/12/2005

0

Caros colegas, ao incluir esse seguinte pedaço de código:

Memo6.text := Table1.FieldByname(´Informacoes´).AsVariant;
If Memo6.Visible = True Then
begin
FrmImpressao.QRMemo1.Enabled := True;
FrmImpressao.QRMemo1.Lines.Assign(Memo6.Lines);
end;

o programa compila sem problemas ,mas qdo mando imprimir ocorre o seguinte erro: Project Project.exe raised exception class EStringListError with message ´List index out of bounds (3)´. Process stopped. Use Step or Run to continue.
O erro ocorre na lina de impressão ´Form1.QuickRep1.Print´ ,agora se eu tirar o bloco de código citado acima, tudo funciona perfeitamente. Alguem pode me dar alguma ajuda??
Desde já agradeço. :lol: :lol:


Fabiano_aprendiz

Fabiano_aprendiz

Responder

Posts

15/12/2005

Fabiano_aprendiz

Ao inves de If Memo6.Visible = True Then está
If Memo6.Text <> ´´ Then begin mas o problema continua o mesmo.


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar