[Breadfan]

Все фигня смори как нада!!))
Оффтоп

const
MyFileName = 'c:\tst\trans.txt'; // в файле - таблица соответствий в формате CH=Ч
var
  skip:boolean;
  i:integer;
  a,c,d,e:string; //а - для теста, в c - тестовая строка, е - строка для определения двухбуквенных обозначений
  trans: TStringList;
b:integer;
function GetValue(ValName: string): string;
begin
  result:=trans.Values[ValName];
end;
procedure Init; //Вызывается при включении скрипта
begin
 trans:=TStringList.Create;
 try
 trans.LoadFromFile(MyFileName);
 except// если ошибка, не обращаем внимание
 end;
    a:='PrImEr tranSlita';
    a:=a+' '; // хз почему - но для верного определения двубуквенных символов и их преобразования - надо пробел прибавить :) не вникал....
    c:='';
    d:='';
    skip:=false;
    for i:=1 to (length(a))do begin
        e:='';
        if not skip then d:=GetValue(Copy(a,i,1));
        skip:=false;
        if (i<(length(a))-1)then e:=GetValue(Copy(a,i,2));
        if (e<>'') then begin
            d:=e;
            skip:=true;
        end;
        if ((ord(Copy(a,i,1)))>64) and ((ord(Copy(a,i,1)))<91) then begin // and (d<>e)
        d:=Uppercase(d);         //проверки на лоу аппер кейз
        end;
        if not skip then begin
        c:=c+d;
        end;
    end;
SendMsg(a+' ---- >>> '+c);    
end;
procedure Free;
begin
end;
begin
end.

Кусок таблички преобразований:Оффтоп

= 
l=л
o=о
t=т
i=и
n=н
s=с
ch=ч
e=е
k=к
o=о
g=г
p=п
r=р
b=б
z=з
u=у
m=м
'=ь
ja=я
bl=ы
a=а 

08.09.2010 02:16:34 Script: PrImEr tranSlita ---- >>> ПрИмЕр транСлита
Переделать в вариант "кириллица в транслит" - точно таким же образом, меняется лишь таблица и коды символов в условии перевода "if ((ord(Copy(a,i,1)))>64) and ((ord(Copy(a,i,1)))<91) then"
ЗЫ: пишу без клиента, так что все в блоке инит. Сделал пример "транслит в кириллицу".

ЗЗЫ: чето затеи у тебя постоянно глобальные какие-то, ты там что - на коленке Скайнет мастеришь чтоль?