[bormotan]

1.у меня мидлет норм компилится , но при запуске выскакивает окошко
NHAL MIDP-Information
Unable to load class user

2.это ошибка появилась пока писал процедуру

procedure startclave;  //getstringwidth(name)  getstringheight(name)
var      a,b:boolean;  //Запоминает коды левой и правой софт клавиш и записывает их в хранилище
        
     index,index1,key: integer; 
   skr,skl:integer; //код левой и правой софт клавиш
      name: string; 
  begin 
    clrscr;
    name:='Далее';
    Drawtext('Нажмите левую',getwidth-getstringwidth('Нажмите левую')-10,getheight/2-40);
    drawtext('софт-клавишу',getwidth-getstringwidth('Нажмите левую')-10,getheight/2-40+getstringheight(name));
    drawline(127,1,127,100);
    drawtext(name,3,getheight-getstringheight(name));
    repaint;
    repeat
    key:=getkeypressed;
    b:=(key=ke_none);
    delay(100);
    until (not b);
    skl:=key;
    clrscr;
    Drawtext('Нажмите правую',getwidth-getstringwidth('Нажмите правую')-10,getheight/2-40);
    drawtext('софт-клавишу',getwidth-getstringwidth('Нажмите правую')-10,getheight/2-40+getstringheight(name));
    drawtext(name,getwidth-getstringwidth(name),getheight-getstringheight(name));
    repaint;
    repeat
    key:=getkeypressed;
    b:=(key=ke_none);
    delay(100);
    until (not b);
    skr:=key;
    {
    rs := openRecordStore('names'); 
    index := addRecordStoreEntry(rs, integertostring(skr)); 
    index1 := addRecordStoreEntry(rs, integertostring(skr));
    closeRecordStore(rs); }
    drawtext(integertostring(skl)+'  '+integertostring(skr),20,20);
    {
    rs := openRecordStore('names'); 
    name := readRecordStoreEntry(rs, index); 
    closeRecordStore(rs); }
    clrscr;
    repaint;
  end;

запоминания кодов левой и правой софт клавиш (как вариант - один раз узнать и пользователя и записать в хранку) . так как либа lib_scodes от сюда определяет только модель моего телефона . при запросе getlefotsoftkeycode и getrightsoftkeycode мидлет компилится, но на телефоне подает