Цитата:
Сообщение от J-Fobos
Ошибка в том, что в процедуру еnchant не передается значение переменной buf. Есть 2 варианта:
1) придумал supernewbie: ввести дополнительную глобальную переменную и использовать ее для передачи значения.
2) использовать ссылку на объект вызывающий процедуру Sender: TObject
|
даже если так
Код:
procedure enchant(Sender: TObject);
begin
SendToServerEx(name);
end;
всё равно дисконектит((
//J-Fobos: procedure enchant(Sender: TObject) и делает такая конструкция?
Последний раз редактировалось J-Fobos, 17.02.2011 в 22:15.
|