Problemas con un Memo

[aragorneuf]

Quiero crear una aplicación para contarel número de letras del alfabeto inglés en un texto escrito en un memo.

Pues primero segun yo tengo que contar las lineas que escribio en el Memo para eso hago esto:

Var
H: Integer;
begin
for H := 0 to Memo1.Lines.Count-1 do
// Showmessage(Memo1.Lines[H]); Solo para ver que lineas tiene.

Pero para contar las letras necesito otro for y un case pero no se como hacerle.

[kinobi]

Var
  H: Integer;
begin
  for H := 0 to Memo1.Lines.Count-1 do
  begin
    // Showmessage(Memo1.Lines[H]); Solo para ver que lineas tiene.
    for ... // segundo for (anidado)
    begin
      ...
      for ... // tercer for (anidado)
      begin
      ...
      end;
      ...
    end;
    ...
  end;
  ...
end;

Saludos

[aragorneuf]

¿Pero cual es la propiedad/comando que me permite contar las letras en un memo?, por ejemplo en el edit yo uso la length y luego un case para contarlas.

[__cadetill]

pos aprovechado lo que comenta kinobi y la funcion length

Var
  H: Integer;
  cont: integer;
begin
  cont := 0;
  for H := 0 to Memo1.Lines.Count-1 do
  begin
    cont := cont + length(Memo1.Lines[H]);
  end;

No lo he probado pero.......

[aragorneuf]

Muchas gracias, todo el dia de hoy me la he pasado haciendo programas pero como soy un super principiante cuando me trabo me trabo.

[aragorneuf]

Ya lo probe pero me cuenta todas las letras y espacios, cuando lo que yo queria era que solo me contara las letras del alfabeto ingles 'A'..'B' entonces intento hacer algo como esto:

Var
H: Integer;
cont: integer;
begin
cont := 0;
for H := 0 to M_1.Lines.Count-1 do
begin
case cont of
'A'..'Z':= length(M_1.Lines[H]);
showmessage(inttostr(cont));
end;
 
end;

Pero me dice que tengo este error Incompatibles types 'Integer' and 'Char' en esta linea:
'A'..'Z':= length(M_1.Lines[H]);

Espero haberme explicado bien