Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Кривая StUpcase

1 view
Skip to first unread message

Alexey Korop

unread,
Mar 24, 2005, 10:49:12 AM3/24/05
to
Привет, All!

В build 279 входит OPRO, и в том числе, очень полезный модуль OPString. Hо
перевод на верхний регистр у него кривой для русских букв. Причина вот:

{$IFDEF VIRTUALPASCAL}
procedure SetInternationalUpcasePrim;
var
B : Byte;
begin
for B := 128 to 165 do
UCTable[B] := Chr(B);
SysGetCaseMap(Sizeof(UCTable), @UCTable);
end;

Hадо 165 заменить на 255 или хотя бы на 245, тогда под виндой и OS/2 всё
будет отлично. Сэкономил кто-то, блин.

С уважением, Alexey.

...В действительности всё совсем не так, как на самом деле.

Alexey Fayans

unread,
Mar 27, 2005, 3:04:30 PM3/27/05
to
Hi there, Alexey!

It was 24.Mar.2005 18:49:12 when you wrote something to All...

AK> for B := 128 to 165 do
AK> UCTable[B] := Chr(B);
AK> SysGetCaseMap(Sizeof(UCTable), @UCTable);
AK> end;

AK> Hадо 165 заменить на 255 или хотя бы на 245, тогда под виндой и
AK> OS/2 всё будет отлично. Сэкономил кто-то, блин.

Отмыль разработчикам, авось пофиксят в следующем билде.. :)


0 new messages