Re: Примеры простейших программ
 

Это нормально для чисел с фиксированной точкой :) Переключи в Properties своего мидлета Real Numbers на FloatingPoint - и точность резко возрастет (так же резко упадет производительность) :)

По-моему, MIDP1 вообще не работает со звуком...

Re: Примеры простейших программ
 

Глубоко заблуждаетесь.Очень даже работают,однако только с мид.Ну да ладно ,что с фс ?

Вопрос : можно ли организовать выход из цикла(точнее завершение) при работе с формой по средствам нажатия кнопки(геткейпрессед) ?
Что то у меня не выходит.Работает только в канвасе

Re: Примеры простейших программ
 

форма не регистрирует keyPressed. она только на команды реагирует

Re: Примеры простейших программ
 

Да я уже и сам понял,однако в сименсах все таки можно выйти из
формы или меню(завершить цикл) методом короткого нажатия красной
трубки.Описания как это реализовать найти ни где не могу.Может чем
поможете ?

ДА видимо с фс на мидп 1 *опа ! Наверное придется прощаться с
Мидлет паскаль и все таки учить ява. :(

Re: Примеры простейших программ
 

Здравствуйте!
Есть вопрос: можно ли в MP2.02 реализовать
доступ к байтам строки(как в Delphi,Pascal-s[i]:=ch)?
или нужно перебирать всю строку ф-й COPY, меняя нужный байт?
и еще: есть ли у кого нибудь LIB для просмотра картинок из
ФС Motorola?(по байту читать неохта)

Re: Примеры простейших программ
 

Re: Примеры простейших программ
 

Попробуй с предупреждением так:
procedure Showmessage(body:string);
var cm,cm1,click : command;
begin
showAlert('Информация',body,loadImage('/dollar.png'),ALERT_INFO);

cm1 := createCommand('', CM_STOP, 1);
addCommand(cm1);
cm := createCommand('Ок', CM_STOP, 1);
addCommand(cm);
repeat
delay(100);
click:=getClickedCommand;
until (click = cm) or (click = cm);
end;

Пример исполования
Showmessage('Пожалуйста настройте все пункты меню "НАСТРОЙКИ" !!!');

Re: Примеры простейших программ
 

при очистке экрана надо:
1. убрать repaint после fillrect
2. прямоугольник заливать цветом фона (он ведь не обязательно белый)

а в ShowMessage я бы перед выходом еще удалил бы команды, которые создаются - cm и cm1 - от греха подальше

Re: Примеры простейших программ
 

с getchar понятно, а как записать байт ( s[x]:='f')?

Re: Примеры простейших программ
 

Ну, вы, блин даете! Каждому get наверняка найдется свой set - и он-таки есть: функция SetChar выполняет нужную операцию, хотя ее применение и не такое удобное, как в обычном паскале:

МидлетПаскаль:
Обычный паскаль:
Обратить внимание на то, что для Мидлетпаскаля 11-й символ строки, то в обычном - 12-й! (нумерация идет с 0).

Re: Примеры простейших программ
 

А можно ли как нибудь запустить класс, выдранный из другого приложения(например главный класс Оперы и т.д.) (нужно не просто вызвать функцию из класса, а запустить приложение)?

Re: Примеры простейших программ
 

привет всем! я всё хочу написать простейший блокнот но чёт не как не вьеду помогите! вот код:

program Bloknot;
var itemId, stringID: integer;
cmdNext : command;
cmdQuit : command;
name : string;
rs: recordStore;
index: integer;
j, Count, c : integer;
CurrRec: string;

begin
// Считываем данные
rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs);
// переход в режим формы со стандартного режима холста(для рисования)
ShowForm;

//добавляем текстовое поле на форму
itemId := FormAddTextField('Текст', '' +name+ '', 9999, TF_ANY);


// Создаем кнопку
cmdNext := CreateCommand('Сохранить', CM_OK, 50);
AddCommand(cmdNext);
// ждать пока не будет нажата кнопка OK
repeat until GetClickedCommand = cmdNext;
// Получаем введенное имя
name := FormGetText(itemId);
// Записываем некие данные в хранилище
rs := openRecordStore('names');
index := addRecordStoreEntry(rs, name );
closeRecordStore(rs);
// переключаемся обратно в режим холста и прорисовываем текст с именем
ShowCanvas;

rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);

DrawText('Текст: ' + name + '', 0, 0);
Repaint;
// создаем команду выхода
cmdQuit := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(cmdQuit);
repeat until GetClickedCommand = cmdQuit;
end.
не получается считывание записаной инфы! не поддерживается руский(пишет-????? вместо текста) и если ещё обясните как в тхт это сохронять а не в index.dat! за ранее спосибо!

Re: Примеры простейших программ
 

на счет RecordStore не скажу, а для записи в файл скачай нужную
библиотеку у Piligrim`a (для моторов-Lib_mfs, для Siemens и некот. других-Lib_jsr75-короче, всё зависит от мобилы)
а вообще, некоторые мобилы с русским не дружат,
так что лучше качай библиотеку и пиши в файл-там ASCII(mfs во всяком случае)