Arquivo Texto

Delphi

19/01/2005

Tenho um arquivo texto neste formato:

1 62387 0 250
2 63548 0 341
.. ....... . ...

e assim por diante.

Como faço para ler cada valor de uma certa linha separadamente. Por exemplo : quero ler o nº 1 e jogar em um campo ou variável, ler o nº 62387 e jogar em outro, ler o 0 e jogar em outro e assim por diante. Podem me ajudar? Obrigado!!!


Foxcyber

Foxcyber

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

19/01/2005

Eu criei para mim a seguinte function que me retorna os pedaços, nela eu passo um string e a posição inicial e final que quero que ela me traga.

function TfrmRetornoBancario.Pedaco(str: string; posIni, posfim: integer):string;
var
   s: string;
   x: integer;
begin
s:=´´;
for x:=posIni to posFim do
    begin
    if length(str) >= x then
        s:=s + str[x];
    end;
Pedaco:=Trim(s);
end;



GOSTEI 0
Pistesil

Pistesil

19/01/2005

Se eu não me engano vc pode usar a funcao read para fazer isso, vou dar uma olhada depois posto aqui.


GOSTEI 0
POSTAR