Não sei onde está escrito mas pelo o que vejo o padrão para comentar uma
linha em um arquivo texto é "#", então esta ai um exemplo de leitura.
var
Arquivo : TextFile;
Linha : String;
begin
AssignFile(Arquivo, 'C:\Seu Arquivo Texto.txt');
Reset(Arquivo);
Memo1.Clear;
while not Eof(Arquivo) do
begin
Readln(Arquivo, Linha);
if AnsiUpperCase(Copy(Linha, 1, 1)) <> '#' then
Memo1.Lines.Add(Linha);
end;
CloseFile(Arquivo);
end;
Eduardo
BandaLemuel escreveu:
>
>
> Sugestão..... >>> Abra o arquivo em um MEMO... e coloque na primeira
> Linha o Caracter que Quiser por exemplo @,.. ai vc da um for na linhas
> e verifica a primeira letra ....
>
> for x:=0 to Memo.linues.count -1 do
> begin
> if not Memo1.lines.strings[x] [1] = '@' then
> begin
> //Faz oque vc precisa
> memo1.lines.string[x] := '@' + memo1.lines.string[x] ;
> end;
> end
>
> Espero ter ajudado....
>
> Wesley
>
> ----- Original Message -----
> From: Mauro Paes Corrêa - gnX Ltda.
> To: [email protected] <mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, April 03, 2007 10:07 AM
> Subject: [delphi-br] Inserir caracter em cada linha de um arquivo texto
>
> Senhores,
>
> Como faz tempo que não mexo com arquivo texto, senti a necessidade de
> criar uma rotina que ao ler a linha, insira um caracter delimitador,
> para que estas linhas posteriormente não sejam lidas pelo meu programa.
>
> Alguem já fez algo similar em arquivo texto?
>
> Sds
>
> Mauro Paes Correa
> www.gnx.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ----------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 268.18.25/744 - Release Date:
> 3/4/2007 05:32
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
