Быстро редактировать StringGrid

[IvaniuS]

Рассклад следующий - я получаю из другого приложения WMCopyData и они еще дублируется сокетами (Synapce TCPBlockSoket) (про запас).
Данные получаю каждые 100мс при этом данных на обработку таблица 200х6 т.е. получаю 200 строк длиной ~80 символов, которую еще разбиваю по разделителю на столбики.

Таблица очень динамичная - данные быстро меняются и их хорошо уже научился подсвечивать, но кроме простого изменения - таблица может полностью переписываться новыми данными, вот в этом и проблема.
Сообщения в программу приходят но обрабатывать я их не успеваю поэтому решил спросить:

Как лучше полностью перезаписывать таблицу, быстрее:
1)Получили сообщение (add, edt, del) - сразу выполнили действие (сейчас так и реализовано)
2)Получили сообщение, накопили весь пакет, обработали - вывели (как хочу сделать).

Вопрос номер 2 - Что лучше, отправлять и обрабатывать сразу StrigList.Text или построчно?

Принимающая сторона:

procedure Tfmain.WMCopyData(var Msg: TWMCopyData) ;
var
  s : string;
  strl:TStringDynArray;
  i,j,frow,Result:integer;
begin
try
  s := PChar(Msg.CopyDataStruct.lpData) ;
  Result := 0;
  strl:=SplitString(s,' ');
  case Tmsgt(GetEnumValue(TypeInfo(Tmsgt), 'msg_' + strl[0])) of
  msg_add:
  if Grid.cols[0].IndexOf(strl[2])=-1 then
  begin
    if (Grid.Cells[Grid.ColCount-1, Grid.RowCount-1]<>'') then  Grid.RowCount:=Grid.RowCount+1;
    for I := 2 to High(strl) do
      Grid.Cells[i-2, Grid.RowCount-1] := strl[i];
    Grid.Cells[Grid.ColCount-1, Grid.RowCount-1] :=strl[1];
    if (Grid.RowCount>2) then SortStringGrid(Grid,Grid.ColCount-1);
    Result := 1;
  end;
  msg_edt:
  if Grid.cols[0].IndexOf(strl[2])<>-1 then
  begin
    frow:=Grid.Cols[0].IndexOf(strl[2]);
    if frow <> -1 then
    begin
      for I := 2 to High(strl) do
        Grid.Cells[i-2, frow] := strl[i];
      Grid.Cells[Grid.ColCount-1, frow] :=strl[1];
    end;
    Result := 2;
  end;
  msg_del:
  begin
      Grid.Perform(WM_SETREDRAW, 0, 0);
      frow:=Grid.Cols[0].IndexOf(strl[1]);
      if (frow <> -1) then
      begin
        Result := 3;
        if (Grid.RowCount>2) then DeleteARow(Grid,frow) else Grid.Rows[Grid.RowCount-1].Clear;
        {for I := 0 to Grid.ColCount-1 do
          Grid.Cells[i, Grid.RowCount-1] :='';}
      end;
      Grid.Perform(WM_SETREDRAW, 1, 0);
      Grid.Invalidate;
    end;
  end;
 end;
except
  Result := -1;
end;
  msg.Result:=Result;
end;

[Stilet]

Как лучше полностью перезаписывать таблицу

Вообще никак. Храни все в двумерном массиве. А в гриде отображай (проецируй) только ту часть массива, которая нужна сейчас для отображения. И тут лучше всего применить не StringGrid а Drawgrid. Работай с гридом только на уровне отображения. Не надо на него вешать функцию анализа данных.

Что лучше, отправлять и обрабатывать сразу StrigList.Text или построчно?

Что отправлять?

[IvaniuS]

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

Что отправлять?

Я данные отправляю из приложения по строчно по пакетику,
Возможно лучше сразу больше данных отправлять и вообще сделать свою структуру, а не использовать строку?
Но Строка уже сформирована уже на стороне клиента и получится двойное преобразование да еще и запись...

[Stilet]

Смотря какие данные. Смотря как приемник их обрабатывает.

[IvaniuS]

Ну как приемник обрабатывает - я выше привел тот код который у меня есть, по сути чаще всего просто разбиваю строку на столбики и записываю.

[Stilet]

как приемник обрабатывает - я выше привел тот код который у меня есть

Супер... Теперь я окончательно перестал понимать что ты хочешь...

[lomastr_]

Сага о X, Y и Z...

[Stilet]

Сага о X, Y и Z...

Ну и к чему этот "весьма информативный" пост? Не надоело еще писать бессмысленные фразы?

[lomastr_]

а до того ваши какой вселенский смысл внесли? ноль целых фик десятых

а если не в курсе про что я так нагуглить не проблема

[Алексей_2012]

хороший пост для развития "абстрактной" логики...
это вы сами себе ТЗ ставите? Для чего вообще программа? Есть нормальная постановка задачи?