Quitar Vocales repetidas de una Cadena

[Deiv]

Gracias Seoane,
Siempre tan gentil, no conocía esa función en Delphi 7.

[Ñuño Martínez]

Empezado por Deiv

Gracias Seoane,
Siempre tan gentil, no conocía esa función en Delphi 7.

No la conocías simplemente porque no existía, hasta que Seoane la escribió.

[[seoane]]

Volviendo a la idea de Neftali, que al contrario que la mía si que era eficiente además de eficaz , tendríamos esto otro:

Código Delphi [-]
function Reducir(Str: String): String;
var
  C: Char;
  i: integer;
begin
  C:= #0;
  Result:= EmptyStr;
  for i:= 1 to Length(Str) do
  begin
    if pos(Str[i],'aeiouAEIOU') > 0 then
    begin
      if Str[i] <> C then
        Result:= Result + Str[i];
    end else
      Result:= Result + Str[i];
    C:= Str[i];
  end;
end;

var
  Str: String;
begin
  Str:= 'Arribaa en la mooontaña se divisabaa una llama que reecorría su traayectoo';
  ShowMessage(Reducir(Str));
end;

[Deiv]

Gracias Seoane ambas funcionan bien

Empezado por Ñuño Martínez

No la conocías simplemente porque no existía, hasta que Seoane la escribió.

EDITO: no conocía la función: StringReplace
.

[Frankus]

Como hago lo mismo pero con sentencias SQL??
Eliminar datos con letras repetidas mas de 5 veces

[adfa]

Con conjuntos me gusto.

Código Delphi [-]
function TForm1.sacarVocalesRepetidas(texto: string): string;
var
  i: integer;
  vocales: set of char;
  ant: char;
begin
  ant     := #0;
  vocales := ['a', 'e', 'i' ,'o' ,'u','A','E','I','O','U'];
  result  := '';
  for i := 1 to length(texto) do
  begin
    if not (texto[i] in vocales) then
      result := result + texto[i]
      else
      if texto[i] <> ant then result := result + texto[i];
    ant := texto[i];
  end;
end;

Saludos

[Frankus]

Bueno creo q no saben bien sobre SQL... su especialidad es Delphi ya bueno, gracias por todo .. Nos vmos Foro
Cya

[Ñuño Martínez]

Empezado por Frankus

Como hago lo mismo pero con sentencias SQL??
Eliminar datos con letras repetidas mas de 5 veces

Hasta donde sé, me temo que sólo con SQL no se puede hacer. Tal vez con alguna extensión como PL o así. De cualquier forma siempre puedes comprobar los datos desde Delphi.