Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.04;
Скачать: CL | DM;

Вниз

Конвертация символов из Win кодировки в DOS   Найти похожие ветки 

 
worldmen ©   (2006-05-15 13:00) [0]

Как сконвертировать из Win кодировки в Dos.


 
balepa ©   (2006-05-15 13:14) [1]

AnsiToOem


 
worldmen ©   (2006-05-15 15:00) [2]

Спасибо.


 
Anatoly Podgoretsky ©   (2006-05-15 16:01) [3]

А теперь посмотри справку.


 
tesseract ©   (2006-05-16 09:35) [4]

AnsiToOem - думаешь в системе обязательно должен быть cp866 установлен?

Жёстский конверт:


// Конвертируем в ASCII
function TVP.DosConvert(Conv:string):string;
var
Temp:String;i,t:cardinal;
begin
Temp:=Conv;
for i:=1 to length(Conv) do
begin
t:=Ord(Conv[i]);
 if (t>$bf) then
   if (t<$f0) then t:=t-$40;
 if (t>$ef) then t:=t-$10;
 Temp[i]:=chr(t);
end;
Result:=temp;
end;
// Конвертируем в ANSI
function TVP.WinConvert(Conv:string):string;
var
Temp:String;i,t:cardinal;
begin
Temp:=Conv;
for i:=1 to length(Conv) do
begin
t:=Ord(Conv[i]);
if (t>223) then t:=t+$10;
 if (t>127) then
   if (t<176) then t:=t+$40;
 Temp[i]:=chr(t);
end;
Result:=temp;
end;



Страницы: 1 вся ветка

Текущий архив: 2006.06.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.08 c
15-1146924039
User_OKA
2006-05-06 18:00
2006.06.04
Коммутатор


2-1147708590
AlexanderMS
2006-05-15 19:56
2006.06.04
Юникод


15-1147085301
BAngel
2006-05-08 14:48
2006.06.04
Скачать делфи


4-1142135959
Arazel
2006-03-12 06:59
2006.06.04
Как узнать командную строку чужого процесса


15-1146669328
Leonid Troyanovsky
2006-05-03 19:15
2006.06.04
Sorry