Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ListBox help needed

Автор: muratboy31 3.7.2012, 10:58

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

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

Автор: muratboy31 3.7.2012, 11:36

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;

Автор: Чучмек 3.7.2012, 16:11

Код


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

thanks Чучмек smile

thats great...