проблема с while do

← →
самсамыч (2006-06-15 20:52) [0]

подскажите плиз как реализовать след.
где - то ошибка
if socket.ReceiveText = "Zzz" then
while form1 do begin
memo1.Lines.Add(socket.ReceiveText);
Socket.SendText("Logiend");
end;

← →
Loginov Dmitry © (2006-06-15 21:35) [1]

А может while тут и не нужен?

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

s := socket.ReceiveText;
if s = "Zzz" then
begin
form1.memo1.Lines.Add(s);
Socket.SendText("Logged");
end;

← →
Sergey13 © (2006-06-16 09:24) [3]

Может тут WITH подразумевалось.

так к меме из with обратиться можно
а к сокету тем более

проблема с while do Найти похожие ветки