не заню как и назвать;)
Тимофей Юрьевич © (2006-06-15 21:59:00)
Доброго времени суток Мастера!
такая проблема,не могу придумать алгоритм решения,поставленой
мной,задачи.Код:
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:00) [1]
..
s := socket.ReceiveText;
for i := 0 to listbox1.Items.Count - 1 do
if listbox1.Items[i] = s then
begin
...
Socket.SendText(..);
...
break;
end;
Наверх 
ЧАТ |
Орешник |
|
