Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Проблема с конвертацией из DOS в Win

580
11 ноября 2002 года
Alex_sh
8 / / 20.01.2000
Подскажите в чём проблема ?
function DOS_To_Win(AChar: Char): Char;
var
AByte: Byte;
begin
AByte := Ord(AChar);
if AByte in [128..175] then // Буквы А..п
AByte := AByte + 64
else
if AByte in [224..239] then // Буквы р..я
AByte := AByte + 16
else
if AByte = 240 then AByte := 168 // Буква Ё
else
if AByte = 241 then AByte := 184; // Буква ё
Result := Char(AByte);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
s,ss : String;
c : char;
i : integer;
begin
s := Memo1.text;
for i := 0 to 10 do
begin
c := s;
ss := ss + DOS_To_Win(c);
end;
ShowMessage(ss);
end;
2.2K
11 ноября 2002 года
neutrino
7 / / 31.10.2002
TStrings.LoadFromFile.Чтение файла с нулевым символом
http://www.delphikingdom.com/stones/stone_34.htm

// -----------------------------------------------------------------
function Ansi2OEM(const S : string) : string;
// Конвертирует строку из кодировки Windows в DOS кодировку
begin
SetLength(Result,Length(S));
if Length(S) <> 0 then
CharToOem(pChar(S),pChar(Result));
end;
// -----------------------------------------------------------------
function OEM2Ansi(const S : string) : string;
// Конвертирует строку из кодировки DOS в Windows кодировку
begin
SetLength(Result,Length(S));
if Length(S) <> 0 then
OemToChar(pChar(S),pChar(Result));
end;
// -----------------------------------------------------------------
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог