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
0
0
Ino toc to ju ze 100 razy bylo...
Poszukaj w archiwum...
0
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]
0
StringReplace(Tekst,' ','',[rfReplaceAll]);
0
StringReplace(Tekst,' ','',[rfReplaceAll]);
A ja sie meczylem nad kodem.... [wstyd] .. skleroza
0
{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';
0
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]