Como passar para a 2ª linha de um arquivo txt

Delphi

03/04/2003

Oi pessoal,

Infelismente ainda não consegui resolver meu problema, tenho um arquivo texto mais ou menos assim:

data
hora
nome...

cada linha irá corresponder a um campo da tabela.
Utilizando o comando while noteoln (arquivo) eu consigo fazer a primeira linha, mas como fazer para passar para as seguintes????

tentei o while noteof(arquivo), mas ele mistura tudo!


ME AJUDEM POR FAVOR!!!!

obrigada,

Di


Anonymous

Anonymous

Curtidas 0

Respostas

Hatrix

Hatrix

03/04/2003

Que campos vc tem gravados no TXT?

vc pode usar o seguinte padrão para identificar campos:

por exemplo, quando for gravar coloque um símbolo para cada campo:
EX:

@Data
#Hora
&Nome

dai quando for ler faça o seguinte:

while not eof(txt) do
begin
readln(txt,variavel);
if copy(variavel,0,1) = ´@´ then
showmessage(variavel+´DATA´);
if copy(variavel,0,1) = ´´ then
showmessage(variave+´HORA´);
end;


ai se quiser deletar o símbolo: delete(variavel,0,1);


GOSTEI 0
Hatrix

Hatrix

03/04/2003

Não Use o Readln. Use o Read(arquvo,Variavel)

obs: a variável é do Tipo Char


GOSTEI 0
POSTAR