Problemas com Memo (eu acho)

15/12/2005

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

Respostas

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 Citar