Как сделать

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

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

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

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

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