Наставьте на путь истинный. Пытаюсь отправить содержимое одной строки на сервер, чтобы тот принял и вставил данные в таком же виде (в разных столбцах). Получилось, но данные отправляются в 1 строку таблицы и при повторной отправке перезаписываются в той же строке.
Хочу сделать, чтобы при получении данных они вставлялись в новую строку (динамически созданную) - подскажите примером.
Отправляю на сервер:
Код:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm1.Button3Click(Sender: TObject);
var
r: Integer; s:string;
begin
s:='';
with StringGrid1 do begin
for r := 0 to RowCount -2 do
s:=s+Rows[r].CommaText+#13#10;
end;
ClientSocket1.Socket.SendText(s);
end;
|
Получаю:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
st : TStringList;
r: Integer;
begin
st:=TStringList.Create;
st.Text:=Socket.ReceiveText;
with StringGrid1 do begin
RowCount:=st.Count;
for r := 0 to RowCount -1 do
Rows[r].CommaText:=st[r];
end;
st.free;
end;
|