forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   Все статьи, уроки,дополнения, ошибки компl (http://forum.boolean.name/showthread.php?t=6363)

anton_obuhov 13.09.2008 20:01

Все статьи, уроки,дополнения, ошибки компl
 
Уважаемые пользователи !
Прошу в этом разделе собрать все ссылки на известные вам статьи по MidletPascal, уроки, фичи, дополнения, либы, также если вы в справке нашли какие то недоработки неточности, и прочее (прошу сообщать на почту, все исправим починим, дополним). Также хотелось бы если у кого то есть время напишите разные хитрости и прочее.

Все статьи и дополнительный материал обработаю и включу в справку.
Также все вопросы которые возникают у пользователей тоже сюда и пожалуйста списками, Для возмущений по поводу этой темы в другую темку сливайте пожалуйста, тут только по делу.

Если у кого то есть желание помочь мне то пишите буду рад, особенно если вы хотите написать дополнительный материал,(все кто участвовал в проекте будут отображены в списке создателей новой справке).

Также все ошибки программы которые были вами встречаны в программе Midlet Pascal (например ошибка при использовании двух библиотек, и прочие) сюда напишите (и способы обхода ) чтобы в справке было под рукой.

Те кто будут создавать новые либы или что нибудь в этом роде сообщать мне (описание )
Всех продвинутых в прогинге на этом языке просмотрите сравку на предмет ошибок , просмотрите и вспомните все ошибки в мидлете, и прочее.
Всем кто читал тоже спасибо

Romanzes 13.09.2008 22:01

Ответ: Все статьи, уроки,дополнения, ошибки ком&
 
Цитата:

Те кто будут создавать новые либы или что нибудь в этом роде сообщать мне (описание )
Может лучше ты будешь почаще заглядывать в раздел "Библиотеки"?

Цитата:

Также все ошибки программы которые были вами встречаны в программе Midlet Pascal (например ошибка при использовании двух библиотек, и прочие) сюда напишите (и способы обхода ) чтобы в справке было под рукой.
1. Вылет MP при компиляции. Решение: поставить совместимость с Windows 98.
2. Ошибка при использовании двух и более библиотек. Решение: юзать английскую версию MP или обновленную русскую версию от odd'а.
Добавлено:
3. Зависание мидлета при чтении файла. Решение: в конце файла поставить два Enter'а.
4. Функция Trunc работает неправильно: она должна возвращать целую часть вещественного числа, но возвращает округленное значение. Решение: юзать что-то типа этого: x:=x-Frac(x);
5. MidpX не хочет запускаться по нажатию кнопки в MP. Решение: написать в опциях в разделе "эмулятор" такую вещь: C:\Emulz\MidpX\Midp2Exe.exe -jar %JAR% -r. Путь, естественно, нужен свой.
6. MP не хочет работать с русскими буквами в ресурсных файлах. Решение: http://forum.boolean.name/showpost.p...10&postcount=6
7. Антивирь находит вирусы в прогах, написанных на MP. Решение: http://forum.boolean.name/showpost.p...77&postcount=7
8. Мидлет зависает при загрузке ресурсов. Решение: скорее всего, не совпадают заглавные и строчные буквы.

Phantom 14.09.2008 01:41

Ответ: Все статьи, уроки,дополнения, ошибки ком
 
Цитата:

2. Ошибка при использовании двух и более библиотек. Решение: юзать английскую версию MP или обновленную русскую версию от odd'а.
Либо, если же другого паскаля нет, то добавлять нужные библиотеки в качестве ресурсов =) Но в программе также писать uses . . .

vitalik1 14.09.2008 13:11

Ответ: Все статьи, уроки,дополнения, ошибки ком&
 
Добавь вот эти функции с английской справки:

function ImageFromCanvas(x,y,width,height: integer): image;
function ImageFromImage(sourceImg: image; x,y,width,height: integer): image;
function FormAddDateField(label: string; type: integer): integer;
function FormGetDate(index: integer): integer;
procedure FormSetDate(index,dateTime: integer);
function GetFormTitle: string;
procedure RemoveFormTitle;
procedure SetFormTitle(title: string);
procedure CloseRSEnumeration(reEnumIdx: integer);
function EnumerateRecords(rs: recordStore): integer;
function GetRecordStoreNextId(rs: recordStore): integer;
function GetRecordStoreSize(rs: recordStore): integer;
procedure ModifyRecordStoreEntry(rs: recordStore; nwData: string; index: integer);
function NextRecord(rsEnumIdx: integer): string;
procedure UpdateRSEnumeration(rsEnumIdx: integer);



Вместо trunc можно использовать вот это:

function trunc_(r: real): integer;
var
a: integer;
begin
a:=trunc(r);
if a>r then a:=a-1;
trunc_:=a;
end;


Часовой пояс GMT +4, время: 07:45.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot