Скачать: CL | DM;

не заню как и назвать;)   Найти похожие ветки 

← →
Тимофей Юрьевич ©   (2006-06-15 21:59) [0]

Доброго времени суток Мастера!
такая проблема,не могу придумать алгоритм решения,поставленой мной,задачи.Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 s,s1,s2:string;
begin
s1 := "Logined";
s2 := "Abort";
s := listbox1.Items[listbox1.itemindex];
if socket.ReceiveText = s then
with form1 do begin
       memo1.Lines.Add("Получили: "+socket.RemoteHost+" <-> "+s);
       Socket.SendText(s1);
       memo1.Lines.Add("Отправили: "+socket.RemoteHost+" <-> "+s1);
end;

эт так сейчас,у меня listbox в нем строки dfg1,gfd1,tew2,cz5 и т.д.
поидее надо так,принимаем текст,проверяем есть ли он у нас в Listbox,если есть то посылаем sendtext(s1);
если нет, то sendtext(s2);

как мне это реализовать? спасибо

---

← →
Сергей М. ©   (2006-06-16 09:24) [1]

..
s := socket.ReceiveText;
for i := 0 to listbox1.Items.Count - 1 do
if listbox1.Items[i] = s then
  begin
    ...
    Socket.SendText(..);
    ...
    break;
  end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c