Дельфи (Вопросы)

[AlphaOmega]

Значит вот образец функции
p.s.: могут быть ошибки в синтаксисе иби я пишу вообще на С++, а дельфи знаю постольку-поскольку...

 
function RUStoLAT(symbol: Char): Char; 
var Result: Char;
begin
 if symbol = 'a' then Result = 'a'; 
 if symbol = 'б' then Result = 'b';
 if symbol = 'в' then Result = 'v';
 ... (сюда остальные буквы)
 if symbol = 'э' then Result = 'e';
 if symbol = 'ю' then Result = 'yu';
 if symbol = 'я' then Result = 'ya';
end;
 
ну а дальше в любом месте (где надо):
var Russian, Translit : string;  (исходная и конечная строки)
 
непосредственно обработка текста:
var i : Integer;
begin
Translit := Russian;
for i := 0 to (Length(Russian) - 1) do 
 Translit[i] := RUStoLAT(Russian[i]);
end;

вроде бы так.
если что - могу написать ПРАВИЛЬНО на С++, а потом другие мемберы форума могут просто перевести это на правильный дельф