Скачать: CL | DM;

Как сделать   Найти похожие ветки 

← →
mss ©   (2006-02-01 06:57) [0]

UpperCase не работает с русском.Как мне  преобразить строку в большую букву. Срочно .... Помогитеееее....

---

← →
Delphi_is_cool ©   (2006-02-01 07:05) [1]

Примерно так:

function UpperCase(const S: String) : String;
var
 I: DWord;
begin
 Result := S;
 for I := 1 to Length(Result) do
   case Result[I] of
     #97..#122, #224..#255: Result[I] := Char(Byte(Result[I]) - 32);
   end;
end;


ps
Причём здесь WinApi ???

---

← →
MBo ©   (2006-02-01 07:17) [2]

многие строковые функции имеют варианты с префиксом "Ansi"

---

← →
mss ©   (2006-02-01 07:23) [3]

> function UpperCase(const S: String) : String;
> var
>  I: DWord;
> begin
>  Result := S;
>  for I := 1 to Length(Result) do
>    case Result[I] of
>      #97..#122, #224..#255: Result[I] := Char(Byte(Result[I])
> - 32);
>    end;
> end;

Ok. Работает. Спасибо за вниманию. Буть всегда в курсе.

---

← →
имя   (2006-02-01 07:26) [4]

Удалено модератором

---

← →
Desdechado ©   (2006-02-01 14:03) [5]

Delphi_is_cool ©   (01.02.06 07:05) [1]
и зачем такая морока? есть же AnsiUpperCase, как сказал MBo

---

← →
КиТаЯц ©   (2006-02-01 14:08) [6]

> Desdechado ©   (01.02.06 14:03) [5]
>
> Delphi_is_cool ©   (01.02.06 07:05) [1]
> и зачем такая морока? есть же AnsiUpperCase, как сказал
> MBo

И зачем повторяться? MBo же уже сказал ;)

---

← →
Zeqfreed ©   (2006-02-01 14:22) [7]

КиТаЯц ©   (01.02.06 14:08) [6]
Есть такая тенденция — делать как можно меньше телодвижений и движений мозговыми извилинами. Гораздо удобней взять невесть какой код, но готовый, чем прочитать совет, подумать и найти ф-цию в модуле SysUtils. Поэтому, правильные и рациональные ответы приходится акцентировать, иногда и не по разу. In My Humble Opinion. ;)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c