не заню как и назвать;)

← →
Тимофей Юрьевич © (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;

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