|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Где ошибка в коде?
Код:
procedure TData.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket); begin if copy(socket.ReceiveText, 1, 2)='n_' then begin form1.label5.caption:=copy(socket.ReceiveText, 3, socket.ReceiveLength); server.Socket.Connections[0].SendText('n_'+form1.Edit1.Text); end; end; при выполении label'у присваивается пустое значение |
#2
|
|||
|
|||
попробуй сначала забать весь ответ в локальную переменную, а потом уже работать с ним.
|
#3
|
||||
|
||||
Благодарствую.
Все получилось Код:
procedure TData.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket); var smessage: string; begin smessage:=socket.ReceiveText; if copy(smessage,1,2)='n_' then begin form1.label5.caption:=copy(smessage,3,length(smessage)); server.Socket.Connections[0].SendText('n_'+form1.Edit1.Text); end; end; |
#4
|
|||
|
|||
Там, похоже, если ты обратился к свойству, то оно очищается...
|