Главная страница
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.009 c
1-97328
relaxoid
2002-05-19 18:40
2002.05.30
Народ, как добывать кавычки к строке ( )?


14-97411
MBo
2002-04-22 09:25
2002.05.30
Новая задачка


1-97235
space_center
2002-05-20 18:47
2002.05.30
Количество символов в RichEdit


3-97131
Maloy
2002-05-06 12:00
2002.05.30
Проблема выполнения сложного запроса в IBase


14-97398
copyr25
2002-04-19 21:58
2002.05.30
Завтра вся московская милиция будет