Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Внизстроки Найти похожие ветки
← →
safo (2004-05-22 19:59) [0]Как преобразовать строку кирилица DOS -> кирилица Windows?
← →
Mim1 © (2004-05-22 20:02) [1]OemToChar
← →
safo (2004-05-22 20:04) [2]навскидку пример, пожалуйста.
← →
Anatoly Podgoretsky © (2004-05-22 20:06) [3]А поиском воспользоваться?
← →
safo (2004-05-22 20:08) [4]а строка запроса для поиска, пожалуйста
← →
Anatoly Podgoretsky © (2004-05-22 20:12) [5]safo (22.05.04 20:08) [4]
[1]
← →
safo (2004-05-22 20:18) [6]да, и еще где искать? Источников, понимаете, много. А в форуме по этой теме Вы ничего толком не обьяснили.
← →
Вэй Му (2004-05-22 20:35) [7]>safo (22.05.04 20:18) [6]
>А в форуме по этой теме Вы ничего толком не обьяснили.
100 раз объяснялось, и не только на этом форуме.
← →
i2e (2004-05-23 17:21) [8]
function TextDosToWin(S: String): String;
var I, LenS: Integer;
P: PChar;
begin
P := PChar(S); LenS := StrLen(P); I := 1;
while I < LenS do
begin
if ( Ord(S[I]) = $F0 ) then S[I] := Chr($A8) else // Ё
if ( Ord(S[I]) = $F1 ) then S[I] := Chr($B8) else // ё
if ( Ord(S[I]) >= $A0 ) and ( Ord(S[I]) <= $AF ) then //а-п
S[I] := Chr( Ord(S[I]) + $40 ) else
if ( Ord(S[I]) >= $E0 ) and ( Ord(S[I]) <= $EF ) then //р-я
S[I] := Chr( Ord(S[I]) + $10 ) else
if ( Ord(S[I]) >= $80 ) and ( Ord(S[I]) <= $9F ) then //А-Я
S[I] := Chr( Ord(S[I]) + $40 );
inc(I);
end;
TextDosToWin := S;
end;
//
function TextWinToDos(S: String): String;
var I, LenS: Integer;
P: PChar;
begin
P := PChar(S); LenS := StrLen(P); I := 1;
while I < LenS do
begin
if ( Ord(S[I]) = $A8 ) then S[I] := Chr($F0) else // Ё
if ( Ord(S[I]) = $B8 ) then S[I] := Chr($F1) else // ё
if ( Ord(S[I]) >= $E0 ) and ( Ord(S[I]) <= $EF ) then //а-п
S[I] := Chr( Ord(S[I]) - $40 ) else
if ( Ord(S[I]) >= $F0 ) then { and ( Ord(S[I]) <= $FF ) } //р-я
S[I] := Chr( Ord(S[I]) - $10 ) else
if ( Ord(S[I]) >= $C0 ) and ( Ord(S[I]) <= $DF ) then //А-Я
S[I] := Chr( Ord(S[I]) - $40 );
inc(I);
end;
TextWinToDos := S;
end;
Дернул прямо из программки. Самоделка. Ошибок вроде не было замечено.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c