Erro: Line Too Long (more Than 1023 Characters).

[Mauro Jr]

Gurizada,

Estou apavorado, não sei mais o que faço!

Eu tinha um projeto feito no Delphi 5, mas agora migramos para o Delphi 7, só que na compilação está me aparecendo a seguinte mensagem de erro:

[Fatal Error] uBuscaConferenciaPorData.pas(108): Line too long (more than 1023 characters).

Já fiz vários testes, até eliminei a bendita linha q acusa o erro e mesmo assim a mensagem de erro aparece na mesma linha (vazia).

[bastard2003]

"Line too long (more than 1023 characters)." diz q a linha ultrapassou os 1023 caracteres... isso seria resolvido com a quebra dela... mas se você disse que mesmo tirando a linha ta dando esse erro.... so da uma verificada se outras linhas acimas desta tb não tão MT longas.. principalmente a q fica em cima dessa (107)!

qualquer coisa volta ai!

[Mauro Jr]

Bah, parceiro

Já verirfiquei as linhas acima e nenhuma ultrupassa os 1023 caracteres.

Aqui vai a procedure onde se encontra a linha 108 que contém o erro:

PS.: Alinha que está em negrito é a 108

//* Busca as conferências na data especificada

procedure TFormBuscaConferenciasData.BuscaConferencia;

var

wDia, wMes, wAno : String[5];

wData : String;

wIniPesquisa : TIniFile;

ix : Integer;

wLista : TStringlist;

wArquivo, wArquivoMaior : String;

begin

//* ATENÇÃO: Estrutura do Subdiretório --> Ano/Mes/Dia

//* Busca a data

wData := DateToStr(DateEditData.Date);

wDia := Copy(wData, 1, 2);

wMes := Copy(wData, 4, 2);

wAno := Copy(wData, 7, 4);

wData := wAno + wMes + wDia;

//* Se não existir o diretório de conferencia...

if not DirectoryExists(FormPacote.wCaminhoConferencia) then

FormPacote.GeraMensagem('Não existe diretório de conferência', 'Erro.ICO');

//* Se existir o diretório com a data informada...

if DirectoryExists(FormPacote.wCaminhoConferencia + '\' + wData) then

begin

wLista := TStringlist.create;

wLista.Clear;

DirList(FormPacote.wCaminhoConferencia + '\' + wData + '\*', wLista);

//* Se existir conferências...

if wLista.Count <> 0 then

begin

wArquivoMaior := FormPacote.wCaminhoConferencia + '\' + wData + '\' + wLista.Strings[0];

for ix := 0 to wLista.Count - 1 do

begin

wIniPesquisa := TIniFile.Create(FormPacote.wCaminhoConferencia + '\' + wData + '\' + wLista.Strings[ix]);

wArquivo := FormPacote.wCaminhoConferencia + '\' + wData + '\' + wLista.Strings[ix];

if FileDate(wArquivo) > FileDate(wArquivoMaior) then

wArquivoMaior := wArquivo;

//* Traz as conferencias da data especificada

with FormPacote do

begin

RxMemoryDataConferenciasConferente.Insert;

RxMemoryDataConferenciasConferenteCupom.Value := wIniPesquisa.ReadString('Conferencia','Cupom','');

RxMemoryDataConferenciasConferenteECF.Value := wIniPesquisa.ReadString('Conferencia','ECF','');

RxMemoryDataConferenciasConferenteQtd.Value := wIniPesquisa.ReadFloat ('Conferencia','TotalPecas',0);

RxMemoryDataConferenciasConferenteTotal.Value := wIniPesquisa.ReadFloat ('Conferencia','Total',0);

RxMemoryDataConferenciasConferenteCliente.Value := wIniPesquisa.ReadString('Conferencia','Cliente','');

RxMemoryDataConferenciasConferenteConferente.Value := wIniPesquisa.ReadString('Conferencia','Conferente','');

RxMemoryDataConferenciasConferenteArquivoConferencia.Value := wLista.Strings[ix];

RxMemoryDataConferenciasConferenteData.Value := DateEditData.Date;

RxMemoryDataConferenciasConferente.Post;

end;

end;

ChamaFormConferenciasConferente;

end

//* Se não existir conferências...

else

FormPacote.GeraMensagem('Nenhuma conferência encontrada', 'Aviso.ICO');

end

//* Se não existir o diretório com a data informada...

else

begin

FormPacote.GeraMensagem('Não existem conferências nesta data', 'Aviso.ICO');

DateEditData.Clear;

end;

end;

[Churc]

estranho não é? amigo dar esse erro, tenta sei lá dar outro nome ao componente de RxMemoryDataConferenciasConferente que parece uma frase para tipo RxMemDtCfc auhahu

como o erro é incomum ou seja, aparentemente não era pra dar o erro, então tente coisas que parecem anormais

abraços

[Mauro Jr]

Bah, já tentei isso, mudei o nome do componente e continua o mesmo erro.

Acho que terei que começar o projeto de novo. aiai fazer o q....