| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать [D7, Win95/98]

mss ©   (2006-02-01 06:57:00) 

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

---

Zeqfreed   (2006-02-01 14:22:00) [1]

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

---

КиТаЯц   (2006-02-01 14:08:00) [2]

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

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

---

Desdechado   (2006-02-01 14:03:00) [3]

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

---

  (2006-02-01 07:26:00) [4]

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

---

mss   (2006-02-01 07:23:00) [5]

> 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. Работает. Спасибо за вниманию. Буть всегда в курсе.

---

MBo   (2006-02-01 07:17:00) [6]

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

---

Delphi_is_cool   (2006-02-01 07:05:00) [7]

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

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 ???

---

Наверх