Защита не от всех, просто у нас на хостинге очень быстро всё расходится (kirov.ru), но все фирмы города всё равно хостятся на kirov.ru
Далее, не силён пока в регул. выражениях... конечно бы тогда не спрашивал.. на делфаке примерно выглядит так: нахожу все значки доллара ($) и беру, в данном случае 10 букв. По идее надо брать сколько букв в переменной. Потом есть кнопка, жму, найденные пеерменные заменяются. (это ещё в голове...)
procedure Tf.SpeedButton2Click(Sender: TObject);
const len: string =\'abcdefghijklm_0123456789nopqrstuvwxyz\';
var
s,s1,p,p1:string;
i,j,a,b:integer;
begin
for i:=0 to RichEdit1.Lines.Count-1 do begin
for j:=1 to Length(RichEdit1.Lines) do begin
s:=copy(RichEdit1.Lines,j,1);
if s=\'$\' then begin //нашли символ переменной
for a:=j to j+10 do begin //Length(RichEdit1.Lines) do begin
p:=copy(RichEdit1.Lines,a,1);
for b:=1 to Length(len) do begin
if p=len then
p1:=p1+p
else
end;
end;
Memo1.Lines.Add(p1);
p1:=\'\';
end;
end;
end;
end;