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

Вниз

перекодировка текста DOS в ANSI   Найти похожие ветки 

 
оля   (2002-05-21 02:47) [0]

Помогите написать прогу для чтения текста написанного под DOS ?


 
XOY   (2002-05-21 05:41) [1]

Ну вот фрагменты порцедур перекодировки из моей программы. Вроде работают.


procedure TForm1.prToDos(Sender: TObject); {Windows -> Dos}
begin
.......
AssignFile(F,FName);
AssignFile(F1,Fname1"); {FName, FName1: string}
reset(F);
rewrite(F1);
While not eof(F) do begin
read(F,buf); {buf: byte}
case buf of
{в 5 следующих строчках и есть сам олгаритм}
224..239: buf:= buf - 64;
240..255: buf:= buf - 16;
192..223: buf:= buf - 64;
184: buf:= 241;
168: buf:= 240
end;
write(F1,buf);
end;
closefile(F);
closefile(F1);
end;
end;



procedure TForm1.prToWindows(Sender: TObject); {Dos -> Windows}
begin
.........
AssignFile(F,FName);
AssignFile(F1,FName1");
reset(F);
rewrite(F1);
While not eof(F) do begin
read(F,buf);
case buf of
128..159: buf:= buf + 64;
160..175: buf:= buf + 64;
224..239: buf:= buf + 16;
240: buf:= 168;
241: buf:= 184;
end;
write(F1,buf);
end;
closefile(F);
closefile(F1);
end;


 
VAleksey ©   (2002-05-21 07:07) [2]

CharToOem и
OemToChar
чем не устраивают ?


 
PONTIY ©   (2002-05-21 09:05) [3]

А еще можно сделать так:


Function DecDosToWin(var r:string): String; //DOS to WIN
var
sDOS, sWIN: string;
n: integer;

begin
sDOS := " _Ў_ў"__¤"_:ср



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
4-97456
SPeller
2002-03-29 10:13
2002.05.30
Систем инфо...


3-97174
Oleg_er
2002-05-07 08:29
2002.05.30
длина строки


3-97172
Sobolyn
2002-05-07 14:52
2002.05.30
Как очистить файл *.mb для какой-нибудь таблицы *.db


3-97141
zuz
2002-05-06 20:10
2002.05.30
DBLookupCombobox


7-97439
DmitryZ
2002-03-04 10:02
2002.05.30
Работа с портами под W2K, DLPrinterPortIO и не только...