Problemas com Memo (eu acho)
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
Curtidas 0
Respostas
Fabiano_aprendiz
15/12/2005
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.
GOSTEI 0