FreePascal.ru

Спасибо всем, пришлось наваять такой костыль:
function MyUpperCase(s : String) : String;
var
i, c : word;
begin
If Length(s) <> 0 then
begin
i &#58;= 1;
Repeat
c &#58;= ord(s&#91;i&#93;);
Case c of
$d0&#58;
begin
c &#58;= ord(s&#91;i+1&#93;);
If c in &#91;$b0&#46;&#46;$bf&#93 ...

В ручную. Задача тривиальная т.ч. алгоритм думаю изобретёте сами. Тем более сразу взялись разрабатывать под WinCE


Да не совсем тривиально для меня. Вот есть у меня строка str : UTF8String. В ней слово "МОСКВА". Сделал:
For i &#58;= 1 to Length(str) do
WriteLn(F,IntToStr(Ord(Str&#91;i&#93 ...

Tronix я так понял, что у вас навигатор криво локализован и в системе просто нет таблицы сопоставления строчный и прописных букв для кириллицы.

Вполне возможно. Тогда подскажите, как все-таки перекодировать из маленьких букв в большие? Что-то беглый загугл не дал результатов по самописной функции ...

Может TEdit.CharCase:=ecUppercase

Попробовал. Опять таки на эмуляторе вводятся большие буквы в поле, на девайсе - маленькие o_O
Я конечно понимаю, что экранные клавиатуры немного разные, но ваще очень странно.

кроме того могут проблемы с кодировкой, попробуй обычный AnsiUpperCase
m

Пробовал ...

Добрый день.

Пишу совсем простецкую прогу на последнем Lazarus, без KOL. Пишу для навигатора на Win Mobile 5.0.
Есть поле ввода Edit1, туда ввожу текст, например "москва", через экранную клавиатуру. И есть Label1, куда вывожу результат.
Делаю:

var
TmpStr &#58; UTF8String;
begin
TmpStr &#58 ...

Нужно начать со сборки GNU tools для кросс компиляции из win в Mips.
и только после этого переходить в кросскомпиляции компилятора.

Мммм. А можно по-подробнее? Не совсем понятно что имеется в виду под GNU tools. Например в папки с компилятором \bin\ лежат программы make, as, ar, ld, strip и ...

Спасибо за быстрый ответ.
WIKI читал конечно, да. Пробовал собрать, как там описано (описано действительно скудно).
e:\fpc\2.4.0 - сам вин-компилятор
e:\fpc\fpcbuild-2.4.0 - исходники компилятора.
Подредактировал bat-файл:


cd E&#58;\FPC\fpcbuild-2&#46;4&#46;0\
PATH=e&#58;\fpc\2&#46;4&#46;0\bin ...

Привет,
Не подскажите, существует ли FPC кросс-компилятор для MIPS-архитектуры? В частности интересует программирование процессоров на подобии Broadcom BCM94704 (роутеры серии asus Wl500gP), Infineon PSB7200 (бывш TNEDT7200A) - adsl модемы...

В sourceforge нашел вроде как порт FPC для MIPS, но он ...

Действительно, забыл -) Было GetMem(buf, BufSize) и кусок закоменченного кода до этого, поэтому в BufSize было хз что ))
Спасибо огромное Вам за помощь. В итоге так все работает:

Спасибо огромное. С PChar заработало все как buf[blabla] := blabla;
ОС WinXP. При возможности скачаю новую версию FP.
Еще раз огромное спасибо.

Поторопился. Компилится, но трапается с эксепшн виолейшн при попытке buf[1] := A; Будем качаать новую версию.

По приведенному Вами выше примеру ругается, что Error 121: Invalid Qualifier. Если бы все так было бы просто, я бы не спросил... Компилятор - FPC v2.1. Может ключи какие?

Всем привет.

Подскажите плиз, как из этого буффера вывести первый элемент на экран? Последний/Любой? Забыл совсем.


Var
Buf &#58; ^Char
Begin
GetMem(Buf, 512);
WriteLn( Buf^&#91;1&#93;, Buf(1)^ ); <---- HELP!
End&#46;


И да, помню что можно через Type сделать тип массива от 1 до 512, но мне ...