Скачать: CL | DM;

Перекодировка DOS -> Windows и обратно   Найти похожие ветки 

← →
Sem   (2004-09-12 17:39) [0]

Только начинаю осваиваться в Delphi. Как это делается? Где0то в uke.byt понимаю что очень просто, но найти не могу! Подсоветуйте. Спасибо.

---

← →
QuasiLamo ©   (2004-09-12 18:06) [1]

FAQ

---

← →
QuasiLamo ©   (2004-09-12 18:29) [2]

QuasiLamo ©   (12.09.04 18:06) [1]
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Конвертирует строку из кодировки DOS в кодировку Windows и обратно

Конвертирует строку из кодировки DOS в кодировку Windows и обратно

Зависимости: ???
Автор:       Сергей, nfkazak@inbox.ru, Краснодар
Copyright:   VIP BANK
Дата:        11 сентября 2002 г.
***************************************************** }

function WinToDos(St: string): string;
var
 Ch: PChar;
begin
 Ch := StrAlloc(Length(St) + 1);
 AnsiToOem(PChar(St), Ch);
 Result := Ch;
 StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
 Ch: PChar;
begin
 Ch := StrAlloc(Length(St) + 1);
 OemToAnsi(PChar(St), Ch);
 Result := Ch;
 StrDispose(Ch)
end;

---

← →
sem   (2004-09-12 21:30) [3]

Спасибо!
А вот еще в добавочек:
А как определить что за кодировка DOS или Windows?
Списибо!

---

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

Скачать: CL | DM;



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