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:
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
Curtir tópico
+ 0
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.
If Memo6.Text <> ´´ Then begin mas o problema continua o mesmo.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
