Fórum Como obter dados no arq.txt #164784

Para leitura ou gravação de arquivos textos, tanto faz qual o tipo do banco de dados.

procedure Tform1.LerArquivoTexto;
var Arq:TextFile; linha:string;
begin
assignfile(Arq,c:\meudiretorio\meuarq.txt´);
reset(Arq);
.....
....
Aqui voce coloca um loop para ler todas as linhas
....
...
readln(Arq,linha);
// A cada readln que voce der ele vai jogar o string encontrado na
// variavel linha e passar para o próximo registro do arquivo texto.
if linha<>EmtpyStr then begin // testando se não é uma linha vazia.
Edit1.text:=Copy(linha,inicio,tamanho) // aqui voce retira os valores
//para caixas de edição. Não temos como jogar em DBEdits.
// A não ser que voce crie um arquivo provisório para receber todos os
// dados do txt e depois de dar manutenção, voltar a gravar em txt.
end; // ... fecha o if
...
end;// fecha o loop
Close(arq); // fecha o txt;
end; // fecha a procedure

Era isto que voce queria ???

Marconi

Corrigindo uma das linhas. Faltou aspas simples antes do drive.

assignfile(Arq,´c:\meudiretorio\meuarq.txt´);