Замена символов на латинские и ни чего лишнего

[Kib]

В общем заменяю символы так:

...
Prefics:=StringReplace(Prefics,'Г','G',[rfReplaceAll, rfIgnoreCase]);
...

- но так очень много кода получается(и вычислений), а так же боюсь что то пропустить.

Мне нужно чтоб все русские буквы были заменены на латинские(А=A,а=a,Б=B,б=b,В=V,в=v, и т.д.), а символы ~!@#$%^&*() и т.д. убирались.

Кам можно это сделать не перечисляя все символы? Заранее благодарю.

[Zeraim]

Попробуй в цикле, от одного номера символа до другого, а вместо самих букв chr() (где в скобках номер символа нужного). Нуи простенькая прога которая выдаст тебе те самые номера.

[Serge_Bliznykov]

все русские буквы были заменены на латинские(А=A,а=a,Б=B,б=b,В=V,в=v

а вы не в курсе, что русских буковок 33, а латинских всего 26 ? На что будете заменять буквы Ч,Ш,Ю,Щ, Я ??

Кам можно это сделать не перечисляя все символы?

проще всего использовать такой подход:

const
  table1='абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  Table2 : array[1..66] of string =(
   'a','b','v','g','d','e','e','zh','z','i','i','k','l',
   'm','n','o','p','r','s','t','u','f','kh','ts','ch','sh',
   'shc','"','y','''','e','yu','ya ',
   'A','B','V','G','D','E','E','ZH','Z','I','I','K','L',
   'M','N','O','P','R','S','T','U','F','KH','TS','CH','SH',
   'SHC','"','Y','''','E','YU','YA';
...
   flWasChages := false;
   NewS := '';
   for i:=1 to Length(s) do
    if Pos(s[i],table1) > 0 then begin
       NewS := NewS + Table2[Pos(s[i],table1)];
       flWasChages := true
    end
    else
       NewS := NewS + s[i]; {вот этот кусок кода можете выкинуть - он те символы, 
           которые не являются русскими буквами,
           просто добавляет к выходной строке}

[Kib]

Спасибо большое Serge_Bliznykov!!!
Сделал такую функцию:

function PrefCreate(s: string) : string;
const
  table1='абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  Table2 : array[1..66] of string =(
   'a','b','v','g','d','e','e','zh','z','i','i','k','l',
   'm','n','o','p','r','s','t','u','f','kh','ts','ch','sh',
   'shc','"','y','''','e','yu','ya ',
   'A','B','V','G','D','E','E','ZH','Z','I','I','K','L',
   'M','N','O','P','R','S','T','U','F','KH','TS','CH','SH',
   'SHC','"','Y','''','E','YU','YA');
var
flWasChages: boolean;
NewS: string;
i: integer;
begin
   flWasChages := false;
   NewS := '';
   for i:=1 to Length(s) do
    if Pos(s[i],table1) > 0 then begin
       NewS := NewS + Table2[Pos(s[i],table1)];
       flWasChages := true
    end
    else
       NewS := NewS + s[i];
    Result:=NewS;
end;

Все отлично работает.
Если хотим чтоб другие символы не появлялись, то коментим эти строчки:

//else
//NewS := NewS + s[i];

[Serge_Bliznykov]

если Вы не используете переменную flWasChages

flWasChages: boolean;

то выкиньте её. Она же для Вас только усложняет код!
останется (тело функции):

begin
   NewS := '';
   for i:=1 to Length(s) do
    if Pos(s[i],table1) > 0 then
       NewS := NewS + Table2[Pos(s[i],table1)]
    else
       NewS := NewS + s[i];
    Result:=NewS;
end;

[Kib]

Точно! Не заметил