| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Конвертация символов из Win кодировки в DOS [D5, 2000]
worldmen © (2006-05-15 13:00:00)Как сконвертировать из Win кодировки в Dos.
tesseract (2006-05-16 09:35:00) [1]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;
Anatoly Podgoretsky (2006-05-15 16:01:00) [2]А теперь посмотри справку.
worldmen (2006-05-15 15:00:00) [3]Спасибо.
balepa (2006-05-15 13:14:00) [4]AnsiToOem
| |
