Unicode в ascii

[GunSmoker]

В чем проблема?

Проблемы нет. Это так должно быть.

[meta13]

программа стоит на сервере, с сервера идет программа, на компе стояла и русская и не русская раскладка, пишу программу которая ищет по вопросу ответ, так как вопрос корявый получается, в этом и проблема.
robt: а ты сам то как думаешь????
Пепел Феникса: спасибо
Serge_Bliznykov: разрешения на изменение реестра не имею

Вопрос изначально как перевести, а не как реестр и раскладку поменять...

[GunSmoker]

Ты клёво вопросы задаёшь. В первом сообщении у тебя "копирую строку текста, вставляю куда нибудь", а теперь уже откуда-то "программа стоит на сервере, с сервера идет программа".

Зашибись подход. Типа, угадывайте, что я намутил.

[Felonalex]

вот тебе вункции перевода

// WinToDos - Кодировка из Win в DOS
function TForm1.WinToDos(Str: String): String;
var
StrRet : String;
i : Integer;
begin
StrRet := '';
for i := 1 to Length(Str) do
begin
if (Ord(Str[i]) >= 192) and (Ord(Str[i]) <= 239) then
begin
Str[i] := Chr(Ord(Str[i]) - 64);
StrRet := StrRet + Str[i];
Continue;
end;

if (Ord(Str[i]) >= 240) and (Ord(Str[i]) <= 255) then
begin
Str[i] := Chr(Ord(Str[i]) - 16);
StrRet := StrRet + Str[i];
Continue;
end;

if Ord(Str[i]) = 168 then Str[i] := Chr(240);
if Ord(Str[i]) = 184 then Str[i] := Chr(241);

StrRet := StrRet + Str[i];
end;

WinToDos := StrRet;
end;


// DosToWin - Кодировка из DOS в Win
function TForm1.DosToWin(Str: String): String;
var
StrRet : String;
i : Integer;
begin
StrRet := '';
for i := 1 to Length(Str) do
begin
if (Ord(Str[i]) >= 128) and (Ord(Str[i]) <= 175) then
begin
Str[i] := Chr(Ord(Str[i]) + 64);
StrRet := StrRet + Str[i];
Continue;
end;

if (Ord(Str[i]) >= 224) and (Ord(Str[i]) <= 239) then
begin
Str[i] := Chr(Ord(Str[i]) + 16);
StrRet := StrRet + Str[i];
Continue;
end;

if Ord(Str[i])=240 then Str[i] := Chr(168);
if Ord(Str[i])=241 then Str[i] := Chr(184);

StrRet := StrRet + Str[i];
end;

DosToWin := StrRet;
end;

[Serge_Bliznykov]

Felonalex, это малого того, что индусский код, так ещё и боян, причём никакого отношения к данной теме не имеющий!

[robt]

Сообщение от meta13

robt: а ты сам то как думаешь????

думаю что?
хотя... я думаю если ты не можеш сформулировать вопрос сразу и полностью,то тебя должны уволить и проблемма с сервером отпадет самасобой