[Adrenalin666]

Код:

"поправка"
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);

выдает ошибку в b:=strTOfloat(copy(mess,1,n1-1));
c:=strTOfloat(copy(mess,n1+1,length(mess)-1));
; incompatible types: 'Integer' and 'Extended'

[eXplorer]

кординаты SetCursorPos(b,c); не могут быть Real...

попробуй:

Код:

SetCursorPos(trunc(b),trunc(c));

[eXplorer]

я не успел написать... уже сообщение изменилось

[eXplorer]

а что такое mess

[Adrenalin666]

это сообщение входящее я присылаю координаты они присваиваются b и c и перемещается курсор

[friz]

хм... переменные 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;

[eXplorer]

b:=strTOfloat(copy(mess,1,n1-1));
c:=strTOfloat(copy(mess,n1+1,length(mess)-1));

strTOfloat неполучиться присвоить типу целого числа integer...
тогда уж strToInt


friZ меня опередил

[Adrenalin666]

спасибо парни верно заменил на strTOint все работает

[Adrenalin666]

а еще вопрос как зыкрыть программу?

[eXplorer]

всмысле закрыть программу
если ты про

Код:

Form1.Close;

то... ето знать нада)

я наверное неправильно понял просто...

[Adrenalin666]

ну допустим открыта командная строка как её закрыть? через Delphi

[eXplorer]

ааа...
типа...

Код:

var
h:HWND;
begin
h:=FindWindow(nil, 'Окно');
PostMessage(h, wm_quit,1,0);
end;

вроде так...

ищешь хэндл окна которое хочешь закрыть... и посылаешь сообщение wm_quit