Показать сообщение отдельно
Старый 11.10.2010, 02:10   #1
sk13
AnyKey`щик
 
Аватар для sk13
 
Регистрация: 09.10.2010
Сообщений: 16
Написано одно полезное сообщение
Вопрос Исправьте код пожалуйста

Program Ded
function mainmenu(n:integer):integer;
var 
cmsmssetings,help, exit,langs,balans,help,about,updates ,stat,popolnenie,balansinteger;  
    
play,backclicked command
    
Begin
showMenu
('Главное меню'CH_IMPLICIT);//главное меню



cmsms:= menuAppendStringimage('Отправить смс',imA[1]);
stat:=menuAppendStringimage('Статус сообщения',imA[2]);
balans:=menuAppendStringimage('Баланс кода',imA[3]);
setings := menuAppendStringimage('Прикольные СМСки',imA[4]);  
popolnenie:=menuAppendStringimage('Приобрести код',imA[5]);
help := menuAppendStringimage('Справка',imA[6]);      
about:=  menuAppendStringimage('О программе',imA[7]); 
updates:=menuAppendStringimage('Обновление',imA[8]); 
exit :=  
menuAppendStringimage('Выход',imA[9]); 

ui.list_set_selected(n);    
 
  
play := createCommand('Выбрать'CM_OK1);  
    
addCommand(play);
    
     
clicked:=EmptyCommand;
    
repeat  
        delay
(200);  
        
clicked := getClickedCommand;  
    
until clicked <> EmptyCommand;  
        
mainmenu:=menuGetSelectedIndex;        
    
    
RemoveCommand(play);
            
  
    if 
menuGetSelectedIndex = exit then begin saveStorehaltend;
    if 
menuGetSelectedIndex updates then  update;
      if 
menuGetSelectedIndex cmsms then   sendSMS;
    if 
menuGetSelectedIndex setings then   PROCcoolsms;
    if 
menuGetSelectedIndex balans then  balansForm;
    if 
menuGetSelectedIndex stat then  checksmsid;// проверка статуса
                
    
if menuGetSelectedIndex popolnenie then  checkcantpay;
    
    if 
menuGetSelectedIndex help then  showhelp;
    if 
menuGetSelectedIndex about then  showabout;        
    
end
Пишет ошибку: 'unexpected token '<EOF>''
(Offline)
 
Ответить с цитированием