VPF::Перекодировка строчных букв в заглавные

ac1dbuRn

Дата 31.10.2010, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 26.4.2009

Репутация: нет
Всего: нет

Например из Avbc надо сделать AVBC

Код программы, результата никакого...

Код


var
x: char;
begin
write(x);
readln(x);
x:=char(ord(x));
if (ord(x) > 64) and (ord(x) < 91) then
begin
x := char(ord(x) + 32);
writeln(x);
end;

readln;
end.


Есть рабочий код: 

var
  s : string;
begin
  WriteLn('введите строку');
  ReadLn(s);
  s:=UpperCase(s);
  writeln(s);
  readln;
end.

но для кириллицы не работает...

M
THandle

Модератор: используйте подсветку кода!

Qu1nt

Дата 31.10.2010, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: нет
Всего: 50

AnsiUpperCase.

ac1dbuRn

Дата 31.10.2010, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 26.4.2009

Репутация: нет
Всего: нет

Qu1nt, пробовал, вот код:

Код



var
s:ansistring ;
begin
read(s)     ;
s:=AnsiUpperCase(s);
writeln(s);
readln;
readln;
end.

с русскими буквами не работает... =(

Данкинг

Дата 31.10.2010, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Это на Паскале, что ли? На Дельфи работает нормально:

Код


procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
 s:='бугага';
 showmessage(ansiuppercase(s));
end;

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 31.10.2010, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

ac1dbuRn, Delphi какой?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ac1dbuRn

Дата 31.10.2010, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 26.4.2009

Репутация: нет
Всего: нет

нужно на паскале smile

. Не могу понять ошибку в своём первом коде, вроде всё верно... беда

THandle

Дата 31.10.2010, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: нет
Всего: 372

Когда то писал, вроде то:

Код



function CharUpCase(const C: Char): Char;
begin
  if Ord(C) in [97..121, 160..175] then
    CharUpCase := Chr(Ord(C) - 32)
  else
    if Ord(C) in [224..239] then
      CharUpCase := Chr(Ord(C) - 80)
    else
      CharUpCase := C;
end;

function UpperCase(AStr: String): String;
var
  I: Integer;
begin
  for I := 1 to Length(AStr) do
    AStr[I] := CharUpCase(AStr[I]);
  UpperCase := AStr;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »