Le Arquivo Retorno

Question

:lol: Algu�m sabe me dizer como fa�o para ler um arquivo retorno.Ex. Tenho um formulario com os Campos CGC, INSC. ESTADUAL, RAZAOSOCIAL. e o meu arquivo retorno vem NOMEDAEMPRESA1              99.999....

Anonymous · Answer

Voc� pode ler o arquivo usando os Comandos e AssignFile(Arquivo, �NomeArquivo�) e Reset (Arquivo) depois usar o readln para ler cada uma das linhas do arquivo texto e retirar o conte�do usando copy(linha,posInicial, posFinal).

Exemplo:

AssignFile(fArquivo,�Retorno.txt�);
{$i-}
Reset(fArquivo);
{$i+}
if (IOResult <> 0) then begin
Application.MessageBox(�Arquivo n�o Encontrado�,Erro�,MB_OK+MB_ICONSTOP);
end else begin
while not Eoln(fArquivo) do begin
Readln(fArquivo,fReg);
cNomeEmpresa := Copy(fReg,1,40); // Tamanho 40
end;
end;