Duvida com arquivo txt
Estou com dificuldades para verificar e salvar em arquivo txt.
so ler eu estou fazendo normal, mas preciso da seguinte rotina
tenho um arquivo texto que na primeira linha tera o caminho do banco de dados e na segunda tera o numero do serialHD(micro). a primeira linha(caminho do banco sempre vai estar preenchida certa), mas a segunda é o seguinte inicialmente ela vai ter o numero 2.
A minha ideia é a seguinte, abro o arquivo leio a segunda linha, se tiver o ´2´, entao salvo nessa linha o numero serial do HD
AssignFile(TXT,´C:\sistema\servidor.ini´);
ReSet(Txt);
Readln(Txt);
Readln(Txt,SerialTxt);
if SerialTxt = 1 then
???????????
CloseFile(TXT);
Assim eu estou fazendo para ler o arquivo, ate ai tudo bem, mas como faço para ler a segunda linha e salvar nela(so na segunda linha).
Desde já agradeço
so ler eu estou fazendo normal, mas preciso da seguinte rotina
tenho um arquivo texto que na primeira linha tera o caminho do banco de dados e na segunda tera o numero do serialHD(micro). a primeira linha(caminho do banco sempre vai estar preenchida certa), mas a segunda é o seguinte inicialmente ela vai ter o numero 2.
A minha ideia é a seguinte, abro o arquivo leio a segunda linha, se tiver o ´2´, entao salvo nessa linha o numero serial do HD
AssignFile(TXT,´C:\sistema\servidor.ini´);
ReSet(Txt);
Readln(Txt);
Readln(Txt,SerialTxt);
if SerialTxt = 1 then
???????????
CloseFile(TXT);
Assim eu estou fazendo para ler o arquivo, ate ai tudo bem, mas como faço para ler a segunda linha e salvar nela(so na segunda linha).
Desde já agradeço
Codigodelphi
Curtidas 0
Respostas
Danilo Ribeiro
17/03/2004
Não querendo mudar seu programa, mas se vc usar um TStringList vc pode otimizar este processo, o TStringList, como o nome já diz, é uma lista de strings, qdo. vc. executa o LoadFromFile(´´) ele carrega todas as linhas na sua propriedade Text, a vantagem é que ele indexa as linhas (partindo do zero, no caso a linha 2 passa a ser 1 e a 1 passa a ser 0) assim vc pode acessar a linha que quizer passando o índice. O método SaveToFile salva o Text em um arquivo.
O seu exemplo fiacria assim :
var TEXTO : TStringList;
begin
TEXTO := TStringList.Create;
TEXTO.LoadFromFile(´C:\sistema\servidor.ini´);
if TEXTO[1] = ´2´ then
TEXTO[1] := ´numero serial do HD´;
TEXTO.SaveToFile(´C:\sistema\servidor.ini´);
end;
Espero que ajude ...
Danilo Ribeiro.
O seu exemplo fiacria assim :
var TEXTO : TStringList;
begin
TEXTO := TStringList.Create;
TEXTO.LoadFromFile(´C:\sistema\servidor.ini´);
if TEXTO[1] = ´2´ then
TEXTO[1] := ´numero serial do HD´;
TEXTO.SaveToFile(´C:\sistema\servidor.ini´);
end;
Espero que ajude ...
Danilo Ribeiro.
GOSTEI 0
Josemars
17/03/2004
Concordo com o nosso colega. Essa estrutura é bem mais fácil de se trabalhar.
GOSTEI 0