Форум: "Начинающим";
Текущий архив: 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.035 c