Contar caracteres
07/03/2020
0
Boa noite pessoal
venho com 1 dúvida no qual pensava que era simples, porém não consigo resolve-lá até agora.
preciso ler um arquivo e contar quantos TABS ou quebras de linha.
segue meu código:
var
i,total,result:integer;
lista: TStringList;
char123 : Char;
begin
result := 0;
total := 0;
lista := TStringList.Create;
lista.LoadFromFile('D:\Backup Online ut\logbackup.txt');
char123 := #13;
for i := 0 to lista.Count -1 do
begin
if lista.Strings[i] = char123 then
total := total + 1;
end;
result := total;
ShowMessage(IntToStr(result));
end;
end.
venho com 1 dúvida no qual pensava que era simples, porém não consigo resolve-lá até agora.
preciso ler um arquivo e contar quantos TABS ou quebras de linha.
segue meu código:
var
i,total,result:integer;
lista: TStringList;
char123 : Char;
begin
result := 0;
total := 0;
lista := TStringList.Create;
lista.LoadFromFile('D:\Backup Online ut\logbackup.txt');
char123 := #13;
for i := 0 to lista.Count -1 do
begin
if lista.Strings[i] = char123 then
total := total + 1;
end;
result := total;
ShowMessage(IntToStr(result));
end;
end.
Felipe Andrade
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)