|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Несовместимые типы: 'Integer' и 'Real'
Код:
"поправка" var n1,b,c: integer; begin mess:=copy(mess,2,length(mess)); n1:=pos(' ',mess); b:=strTOfloat(copy(mess,1,n1-1)); c:=strTOfloat(copy(mess,n1+1,length(mess)-1)); SetCursorPos(b,c); c:=strTOfloat(copy(mess,n1+1,length(mess)-1)); ; incompatible types: 'Integer' and 'Extended' Последний раз редактировалось Admin, 21.09.2010 в 13:01. |
#2
|
||||
|
||||
кординаты SetCursorPos(b,c); не могут быть Real...
попробуй: Код:
SetCursorPos(trunc(b),trunc(c)); |
#3
|
||||
|
||||
я не успел написать... уже сообщение изменилось
|
#4
|
||||
|
||||
а что такое mess
|
#5
|
|||
|
|||
это сообщение входящее я присылаю координаты они присваиваются b и c и перемещается курсор
|
#6
|
||||
|
||||
хм... переменные b,c у тебя integer? ну так какого лешего ты хочешь ей присвоить число типа real?
Может надо так? Код:
b:=strTOint(copy(mess,1,n1-1)); c:=strTOint(copy(mess,n1+1,length(mess)-1)); или так ? Код:
var n1:integer; b,c: real; Последний раз редактировалось Admin, Сегодня в 10:32. |
#7
|
||||
|
||||
Цитата:
strTOfloat неполучиться присвоить типу целого числа integer... тогда уж strToInt friZ меня опередил |
#8
|
|||
|
|||
спасибо парни верно заменил на strTOint все работает
|
#9
|
|||
|
|||
а еще вопрос как зыкрыть программу?
|
#10
|
||||
|
||||
всмысле закрыть программу
если ты про Код:
Form1.Close; я наверное неправильно понял просто... Последний раз редактировалось eXplorer, 21.09.2010 в 13:14. |
#11
|
|||
|
|||
ну допустим открыта командная строка как её закрыть? через Delphi
|
#12
|
||||
|
||||
ааа...
типа... Код:
var h:HWND; begin h:=FindWindow(nil, 'Окно'); PostMessage(h, wm_quit,1,0); end; ищешь хэндл окна которое хочешь закрыть... и посылаешь сообщение wm_quit Последний раз редактировалось eXplorer, 21.09.2010 в 13:41. |