строки

← →
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;

Дернул прямо из программки. Самоделка. Ошибок вроде не было замечено.

строки Найти похожие ветки