stringgrid и tcliensocket

[alexBlack]

Сообщение от frodo

блин вышла трабла такая, мне же еше надо передовать количество строк и столбцов! помагите еше с этим, немогу чет понять эту сеть=)

С минимальными изменениями кода - добавьте их в начало:
при передаче:

  S := intToStr( ??? )+#13+intToStr( ??? )+#13;   
   for i:=0 to 5 do begin  
     for j:=0 to 5 do begin  
        S := S + StringGrid1.Cells[i, j]+#13;   
     end;   
   end;

при получении:

var N:integer = -2;   // !!!!
  
procedure TForm1.ClientOnRead(Sender: TObject; Socket: TCustomWinSocket);   
var S1, S:String;   
    i:integer;   
begin  
   S1 := '';   
   S := Socket.ReceiveText;   
   for i:=1 to length(S) do begin  
      if S[i] = #13 then begin  
         // Вот здесь
         case N of 
            -2 : { это первое число }
            -1 : { это второе число }
         else 
                  { остальные данные таблицы }
                   
         end;
         inc(N);

тока вот непонял как он работае! ну ладно главное что пошел, а потом придет время разберусь!

Время пришло