Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Конвертация символов из 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c