Подскажите как решить задачу. Собственно, на сервере и клиенте есть StringGrid с одинаковым количеством столбцов (5) и строк. Клиенту нужно отправить на сервер данные конкретной строки.
Делаю так, но на сервере все данные принимаются в одну ячейку скопом.
На клиенте:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
cc, rc, c, r: Integer;
begin
cc := Form1.StringGrid1.ColCount;
rc := Form1.StringGrid1.RowCount;
for r := 1 to rc -1 do
for c := 0 to cc -1 do
Form1.ClientSocket1.Socket.SendText(Form1.StringGrid1.Cells [c,r]);
end;
На сервере:
Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
cc, rc, c, r: Integer;
begin
cc := Form1.StringGrid1.ColCount;
rc := Form1.StringGrid1.RowCount;
for r := 1 to rc -1 do
for c := 0 to cc -1 do
Form1.StringGrid1.Cells [c,r] := Socket.ReceiveText;
end;