[bambooshoot]

Всем привет! Не знал, где создать тему, создал в данной ветке.
Вопрос в следующем: на форме есть 2 StringGrid-а у которых одинаковая процедура OnDrawCell, различия только в названиях таблиц. Что-то мне подсказывает , что можно одну процедуру прикрутить к двум таблицам, чтобы не "плодить" лишнего кода. Вот код самой процедуры:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm.StringGrid1DrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState);  var   Format: Word;   C : array[0..255] of Char;   temp, max, i, j : integer; begin Format := DT_Center OR DT_WORDBREAK;   (Sender as TStringGrid).Canvas.FillRect(Rect);   StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);   WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C, StrLen(C), Rect, Format);    for I := 0 to StringGrid1.ColCount - 1 do         begin           max:= 0;            for J := 0 to StringGrid1.RowCount - 1 do              begin                temp := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[i, j]);                 if temp > max then                   max:=temp;              end;              StringGrid1.ColWidths[i] := max + StringGrid1.GridLineWidth + 10;         end; end;

Пробовал делать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

.....  private  procedure TForm.GridsDrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState); ......  procedure TForm.GridsDrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState);  var   Format: Word;   C : array[0..255] of Char;   temp, max, i, j : integer; begin Format := DT_Center OR DT_WORDBREAK;   (Sender as TStringGrid).Canvas.FillRect(Rect);   StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);   WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C, StrLen(C), Rect, Format);  with Sender as TStringGrid do    for I := 0 to StringGrid.ColCount - 1 do         begin           max:= 0;            for J := 0 to StringGrid.RowCount - 1 do              begin                temp := StringGrid.Canvas.TextWidth(StringGrid.Cells[i, j]);                 if temp > max then                   max:=temp;              end;              StringGrid.ColWidths[i] := max + StringGrid.GridLineWidth + 10;         end; end;

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