tengo que crear un memo introducir un texto y :
- Mostrar el numero de palabras que contiene ese texto pero que muestre las palabras que están dentro
de parenteis, corchetes, que tenga números, comillas, etc...
Yo hice uno pero no me toma las palabras que estan dentro de las comillas parentesis etc:
Código Delphi
[-]
var
linea:string;
i,j,cont: integer;
begin
cont:=0;
for i := 0 to editor.lines.count-1 do
begin
linea:=editor.lines[i];
for j := 1 to length (linea) do
if linea [j] in [' '] then
if linea [j-1] in ['a'..'z'] then
cont:=cont+1;
if linea [j-1] in ['a'..'z'] then
cont:=cont+1;
end;
edit1.text:=inttostr(cont);
end;
ese hice yo pero no me cuentan las palabras que están dentro de paréntesis por ejemplo y no se que hace
me dijeron que hay una forma empleando el ascii con el
char(ord(#10)) pero no se si es asi y como
se hace si me podrían ayudar les agradeceria mucho.