add text file read unit and test program to go with it

[lcore.git] / lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index ce2330174dd6c46e9e82f015ae310be4fc03dfc9..ddee93e8ac7d094347134b39774f66be5389d3c4 100755 (executable)
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -260,7 +260,6 @@ begin
   currentip := 0;\r
   if not assigned(connecttimeout) then begin\r
     connecttimeout := tltimer.create(self);\r
   currentip := 0;\r
   if not assigned(connecttimeout) then begin\r
     connecttimeout := tltimer.create(self);\r

-    connecttimeout.Tag := integer(self);\r

     connecttimeout.ontimer := connecttimeouthandler;\r
     connecttimeout.interval := 2500;\r
     connecttimeout.enabled := false;\r
     connecttimeout.ontimer := connecttimeouthandler;\r
     connecttimeout.interval := 2500;\r
     connecttimeout.enabled := false;\r