hedgewars/uChat.pas
changeset 4901 d1e2d82d9ccc
parent 4814 e19791f08443
child 4920 bc3c077e15a2
equal deleted inserted replaced
4900:8ad0e23e6d63 4901:d1e2d82d9ccc
   368     ChatReady:= false;
   368     ChatReady:= false;
   369     missedCount:= 0;
   369     missedCount:= 0;
   370 end;
   370 end;
   371 
   371 
   372 procedure freeModule;
   372 procedure freeModule;
   373 begin
   373 var i: ShortInt;
       
   374 begin
       
   375     FreeTexture(InputStr.Tex);
       
   376     for i:= 0 to MaxStrIndex do
       
   377     begin
       
   378         FreeTexture(Strs[i].Tex);
       
   379     end;
   374 end;
   380 end;
   375 
   381 
   376 end.
   382 end.