No soy experto y a lo mejor mi respuesta es muy laboriosa pero espero te sirva de ayuda.
Este codigo compara solo letras y numeros de un archivo, no contaria ningun otro caracter, despues guarda el resultado en otra variable que le puedes hacer lo que quieras:
Código Delphi
[-]procedure TFormMain.SpeedButton1Click(Sender: TObject);
var
vFile, vResultdo : TStrings;
i, j, vLetras, vDigitos : Integer;
begin
vResultdo := TStringList.Create;
vFile := TStringList.Create;
vFile.LoadFromFile('c:\archivo.txt');
for i:=0 to (vFile.Count-1) do begin
vLetras := 0;
vDigitos := 0;
for j:= 1 to length( vFile[i] ) do begin
if ( (ord(vFile[i][j]) >= 65) and (ord(vFile[i][j]) <= 90) ) or
( (ord(vFile[i][j]) >= 97) and (ord(vFile[i][j]) <= 122) ) then
vLetras := vLetras + 1
else if (ord(vFile[i][j]) >= 48) and (ord(vFile[i][j]) <= 57) then
vDigitos := vDigitos + 1;
end;
vResultdo.Add( IntToStr( i ) + ': ' + IntToStr( vLetras ) + ' letras, ' + IntToStr( vDigitos ) + ' digitos' );
end;
ShowMessage( vResultdo.Text );
end;
Saludos!!
__________________
No hay misterios, sólo hay falta de información.
Tampoco hay milagros, sólo hay hechos científicos ignorados