Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Char в D2010   Найти похожие ветки 

 
Cobalt ©   (2012-02-29 10:14) [0]

             num := Elem.Code;
             LastChar := num[Length(num)];
             // меняем кириллицу на латиницу
             if CharInSetEx(LastChar, ["а".."я"]) then
               begin
                 num[Length(num)] :=Char(Ord("a") + Ord(LastChar) - Ord("а"));/CODE>
получаю:
Код заменён: 1.1-1-498б 1.1-1-498β
Принудительно привел к Char
                 num := Elem.Code;
                 LastChar := num[Length(num)];
                 // меняем кириллицу на латиницу
                 if CharInSetEx(LastChar, ["а".."я"]) then
                   begin
                     num[Length(num)] :=Char(Ord(Char("a")) + Ord(LastChar) - Ord(Char("а")));

Получил как хотел:
Код заменён: 1.1-1-498б 1.1-1-498b

Это отчего так?


 
Cobalt ©   (2012-02-29 10:16) [1]

собственно вопрос - текстовые литералы в коде считаются не-Юникодовые по умолчанию? (если в строке нет изначально юникодовых символов)

Умолчание - ansistring для строковых констант - это как-то неочевидно...


 
...   (2012-02-29 10:52) [2]

А что такое CharInSetEx? Как объявлен второй аргумент? Как set of char? Если да, то смотрите варнинг компилятора.


 
...   (2012-02-29 11:17) [3]

> [2] ...   (29.02.12 10:52)

> 1.1-1-498б 1.1-1-498?

Я не заметил, что «б» изменился...

Похоже, все дело в том, что литерал передается в функцию.

IntToStr(sizeof("a")) = 2.

Но:

procedure a(b: integer);
begin
 Form1.Caption := IntToStr(b);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 a("а");
end;


Ошибка: incompatble type: string and ansi char :)


 
...   (2012-02-29 11:20) [4]

А если в a("a") указать латинскую "a" — то incompatble type: string and char.
Т.е. лучше не передавать литералы в функцию просто так.


 
...   (2012-02-29 11:22) [5]

> string and char.
>string and ansi char

читать как
integer and char.
integer and ansi char


 
Cobalt ©   (2012-02-29 11:41) [6]

собственно, я хотел заменить
а (кирлил) на a latin
б (кирлил) на b latin

а в  коде
Ord(LastChar) - Ord("а")
оказывается, "а" (строковая константа) - Ansichar, а LastChar-то - Char

вот и не получалось...


 
Anatoly Podgoretsky ©   (2012-02-29 11:42) [7]


> Cobalt ©   (29.02.12 10:16) [1]
> собственно вопрос - текстовые литералы в коде считаются
> не-Юникодовые по умолчанию? (если в строке нет изначально
> юникодовых символов)
>
> Умолчание - ansistring для строковых констант - это как-
> то неочевидно...

Все очевидно, в зависимости от того, что слева, то и будет
Этоже литерал, а не типизированая константа.



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

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.139 c
15-1342858667
Inovet
2012-07-21 12:17
2013.03.22
Странная информация о количестве участников


15-1353616205
Юрий
2012-11-23 00:30
2013.03.22
С днем рождения ! 23 ноября 2012 пятница


2-1337453528
novichek
2012-05-19 22:52
2013.03.22
показать форму на втором мониторе


15-1336980850
alexdn
2012-05-14 11:34
2013.03.22
Нумерация строк


15-1341300187
brother
2012-07-03 11:23
2013.03.22
Амуниция Первой Мировой Войны





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский