amigo ecfisa con el
procedure BorradasAlFondo
como puedo hacerlo si una de las palabras no existe la agrege de igual manera
por ejemplo
Cita:
mi texto texto texto
texto
palabra 3
|
y quede
Cita:
mi texto texto texto
texto
palabra 1
palabra 2
palabra 3
|
he probado asi bueno de muchas formas pero es el mismo resultado o peor
Código Delphi
[-] for i:= Low(Palabras) to High(Palabras) do
for j:= 0 to Texto.Count -1 do
if Pos(Palabras[i], Texto[j]) <> 0 then
begin
Texto.Delete(j);
Texto.Add(Palabras[i]);
end;
muchas gracias!!