Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перекодировка DOS -> Windows и обратно [D5, Win2k]

Sem © (2004-09-12 17:39:00)
Только начинаю осваиваться в Delphi. Как это делается? Где0то в uke.byt понимаю что очень просто, но найти не могу! Подсоветуйте. Спасибо.

sem (2004-09-12 21:30:00) [1]
Спасибо!
А вот еще в добавочек:
А как определить что за кодировка DOS или Windows?
Списибо!

QuasiLamo (2004-09-12 18:29:00) [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;

QuasiLamo (2004-09-12 18:06:00) [3]
FAQ

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »