VPF::ListBox help needed - Форум программистов

muratboy31

Дата 3.7.2012, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i am trying to get if there is an online user or not and if yes is it selcted r not !!1
but it give me the message ayway !!!

Код


procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
if listbox1.Items.Count > 0 then
  for i:= listbox1.items.count -1 downto 0 do
  if listbox1.selected[i] then
  ServerSocket.Socket.Connections[Listbox1.ItemIndex].SendText('[ Yönetici ] : '+EditSay.Text)
  else
  showmessage('Who will get it ?')
else
  showmessage(' No Online user !')
end;

thanks in advance

Данкинг

Дата 3.7.2012, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

После "if listbox1.Items.Count > 0 then" поставь Begin...End ещё.

--------------------

There's nothing left but silent epitaphs.

muratboy31

Дата 3.7.2012, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i tried it but it is the same, i keep getting message !!!

Код


procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
if listbox1.Items.Count > 0 then  begin
  for i:= listbox1.items.count -1 downto 0 do
  if listbox1.selected[i] then
  ServerSocket.Socket.Connections[Listbox1.ItemIndex].SendText('[ Admin ] : '+EditSay.Text)
  else
  showmessage('Who will get it ?')  end
else
  showmessage(' No Online user !')
end;

Это сообщение отредактировал(а) muratboy31 - 3.7.2012, 11:42

Чучмек

Дата 3.7.2012, 16:11 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Код


procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
if listbox1.Items.Count > 0 then
  begin
  for i:= listbox1.items.count -1 downto 0 do
  if listbox1.selected[i] then
    begin
    ServerSocket.Socket.Connections[Listbox1.ItemIndex].SendText('[ Yönetici ] : '+EditSay.Text);
    break;
    end;
  if i<0 then  showmessage('Who will get it ?');
   end else showmessage(' No Online user !');
end;

--------------------

умную мысль держи при себе, а дурной - поделись с другими

muratboy31

Дата 3.7.2012, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

thanks Чучмек smile

thats great...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »