richedit y barra de estado

[justinesteban]

hola estoy realizando un editor de texto y lo que me esta faltando es de como contar la cantidad de caracteres sin espacios ingresados en un richedit y que aparesca en una barra de estado ?

[ecfisa]

Hola.

Podrías hacerte una función para ese fín.

Si deseas contar todos los caracteres exceptuando los espacios:

Código Delphi [-]
function NroCaracteres(RE: TRichEdit): Integer;
var
  i: Integer;
begin
  Result:= 0;
  for i:= 1 to Length(RE.Text) do
    if UpCase(RE.Text[i]) <> ' ' then
      Inc(Result);
end;

Si desearas contar letras, y números ignorando otros signos:

Código Delphi [-]
function NroCaracteres(RE: TRichEdit): Integer;
const
  VALIDCHAR: set of Char = ['0'..'9','A'..'Z','Á','É','Í','Ó','Ú','Ñ','á','é','í','ó','ú','ñ'];
var
  i: Integer;
begin
  Result:= 0;
  for i:= 1 to Length(RE.Text) do
    if UpCase(RE.Text[i]) in VALIDCHAR then
      Inc(Result);
end;

Por último sólo tenés que asignar el resultado al TStatusBar, por ejemplo:

Código Delphi [-]
  StatusBar1.Panels[0].Text:= 'Numero de caracteres:  '+ IntToStr(NroCaracteres(RichEdit1));
  StatusBar1.Panels[1].Text:= 'Numero de espacios: ' + IntToStr(Length(RichEdit1.Text) - NroCaracteres(RichEdit1));

Un saludo.
[/delphi]

[[Delphius]]

¿Y que tiene que ver el TRichEdit y la barra de estado si en realidad el problema es contar carácteres? ¡A nombrar mejor los títulos! Y no vendría mal algo como "¿Me podrían orientar?" "Probé esto, pero no me sale" y ni que decir... Al menos haber dicho gracias.

Tu duda, más que duda fue esto: "Quiero que me hagan y me pasen una función para contar caracteres. No quiero pensar"

Saludos,

[Casimiro Notevi]

Algunos necesitan darle una releída a la guía de estilo.