[ApplicatiOn]

Почему они переводят только латинские, а кириллицу игнорируют?

[M.A.D.M.A.N.]

В таком случае можеш сделать собственную функцию.

[ApplicatiOn]

придется

[Vayrus]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

function UpCase(ch: char): char;   begin   if (ch in ['a'..'z', 'а'..'я'])      then result := chr(ord(ch) - 32)      else result := ch;   end;        function LoCase(ch: char): char;   begin   if (ch in ['A'..'Z', 'А'..'Я'])      then result := chr(ord(ch) + 32)      else result := ch;   end;        function UpperCase(s: string): string;   var   i: integer;   begin   result := s;   for i := 1 to length(result) do      if (result[i] in ['a'..'z', 'а'..'я'])        then result[i] := chr(ord(result[i]) - 32);   end;        function LowerCase(s: string): string;   var   i: integer;   begin   result := s;   for i := 1 to length(result) do      if (result[i] in ['A'..'Z', 'А'..'Я'])        then result[i] := chr(ord(result[i]) + 32);   end;        procedure TForm1.Button1Click(Sender: TObject);   const   s = 'zZцЦ.';   var   i: integer;   begin   Form1.Caption := 'DownCase: ';   for i := 1 to Length(s) do      Form1.Caption := Form1.Caption + LoCase(s[i]);   Form1.Caption := Form1.Caption + ' UpCase: ';   for i := 1 to Length(s) do      Form1.Caption := Form1.Caption + UpCase(s[i]);   Form1.Caption := Form1.Caption + ' UpperCase: ' +      UpperCase(s);   Form1.Caption := Form1.Caption + ' LowerCase: ' +      LowerCase(s);   end;

Взято из Delphi Russian Knowledge Base

[ApplicatiOn]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

function RusCase(const S: string; updown: string): string; var   Ch: Char;   L: Integer;   Source, Dest: PChar; begin if updown = 'up' then begin   L := Length(S);   SetLength(Result, L);   Source := Pointer(S);   Dest := Pointer(Result);   while L <> 0 do   begin     Ch := Source^;     if (Ch >= 'а') and (Ch <= 'я') then Dec(Ch, 32);     Dest^ := Ch;     Inc(Source);     Inc(Dest);     Dec(L);   end; end else if updown = 'down' then begin   L := Length(S);   SetLength(Result, L);   Source := Pointer(S);   Dest := Pointer(Result);   while L <> 0 do   begin     Ch := Source^;     if (Ch >= 'А') and (Ch <= 'Я') then Inc(Ch, 32);     Dest^ := Ch;     Inc(Source);     Inc(Dest);     Dec(L);   end; end; end;

чего тут не так? попробовал - не работает, хотя компилит..

[lmikle]

А воспользоваться Ansi вариантами нельзя?
AnsiUpperCase
AnsiLowerCase