Kasowanie spacji w tekscie....

Witam !
wie ktos moze jak wykasowac spacje w tekscie np: "ble ble ble aaaaa" ???????? i jeszcze jedno pytanko czy wie ktos jak wstawic np zamiast znaków "b" w tekscie znaki "c" ??? chodzi mi o to zeby wyszukalo wszytskie literki "b" i zastąpiło je literką "c"
pozdrówka

Ino toc to ju ze 100 razy bylo...
Poszukaj w archiwum...

kasowanie spacji:
for i:=1 to length(text)
if text[i]=' ' then text:=copy(text,1,i-1)+Copy(text,i+1,Length(text)-i+1;

a zastepowanie na bazie tego mozesz zrobic.
[cya]

StringReplace(Tekst,' ','',[rfReplaceAll]);

StringReplace(Tekst,' ','',[rfReplaceAll]);

A ja sie meczylem nad kodem.... [wstyd] .. skleroza

{kasowanie spacji}
for i := length(s) downto 1 do
if s[i] = ' ' then delete(s,i,1);

{zamiana liter}
for i := 1 to length(s) do
if s[i] = 'b' then s[i] := 'c';

Można też tak.

label1.Caption:='';
s:='To jest tekst ze spacjami';
for i := 1 to length(s) do
label1.Caption:=label1.Caption + trim(s[i]);
[cya]