Fórum Manipular Arquivo #208870

Caro Amigo,

Pegue o conteúdo e jogue numa variavél Auxiliar e depois faça um copy da mesma para pegar

Ex:
Aux:=Readln(File);
Aux1:=Copy(Aux,1,3);

Espero ter ajudado.....
Ulisses

Boa tarde.
é + - assim. no www.clubedelphi.com.br em dicas e exemplos tem um outro exemplo.

procedure Tform1.Button1OnClick(......);
var
Arquivo : TextFile;
Linha : String;
begin
Assign(Arquivo, ´c:\arquiov.txt´); //Associa variavel Arquivo ao arquivo TXT.
Reset(Arquivo); // abre o arquivo
Table1.Open;
while NOT Arquivo.EOF do
begin
ReadLn(Arquivo, Linha); //´captura´ a linha do Arquivo para a variavel Linha
//Read apenas le a linha, ReadLn le e pula para a proxima linha
table1.Insert;
table1.FieldByName(´Nome´).Value := Copy(Linha, 01, 30); // copia 30 caracteres da variavel Linha apartir da posicao 01;
table1.FieldByName(´Cidade´).Value := Copy(Linha, 31, 15); // copia 15 caracteres da variavel Linha apartir da posicao 31;
Table1.Post;
end; //end do while
Close(Arquivo);
Table1.Close;
end; //end da procedure


Acho q é so isto.
Se der algum erro é q estou fazendo de cabeça, sem consultar.

abraços,

Vanius