читать текст из TStringGrid клеток [AcOl, Arow], который генерируется с помощью функции DrawText на "OnDrawCell" событие

Question

Am, имеющей строку сетки (TStringGrid) с 2 столбца и 1 ряд (Property: ColCount = 2 & Rowcount = 1.

Код для OnDrawCell Событие:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
    Rect: TRect; State: TGridDrawState); 
    var 
    Parametertext : string; 
begin 
    case ACol of 
    0 : Parametertext := 'Test'; 
    1 : Parametertext := 'Test1'; 
    end; 
    stringgrid1.Brush.Color := clBtnFace; 
    stringgrid1.Font.Color := clWindowText; 
    stringgrid1.Canvas.FillRect(Rect); 
    DrawText(stringgrid1.Canvas.Handle, PChar(parameterText), -1, Rect, 
     DT_SINGLELINE); 
end; 

При запуске приложения, я получаю ниже вывод:

Вопрос:

Когда я пытаюсь получить текст с помощью StringGrid1.Cells[0,0], StringGrid1.Cells[1,0],

я, кроме «Тест» & «Test1», но она всегда дает пустую строку «».

Как получить текст из строковой сетки, используя StringGrid.Cells[aCol,aRow]?

Answer 1

Вы генерируете текст для его рисования, но не для его хранения. Вы также должны установить значение stringGrid.Cells, возможно, не в событии OnDrawCell.

Подумайте о своей переменной Parametertext. Это локальная переменная, уничтоженная при выходе. Нигде вы не сохраните его нигде. Итак, почему вы ожидаете, что он волшебным образом появится в собственности клеток?

Answer 2

Для того, чтобы сделать то, что вы просите, вам нужно на самом деле хранить строковые значения в Cells собственности, а не создавать их динамически в OnDrawCell событие:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
    Rect: TRect; State: TGridDrawState); 
var 
    Parametertext : string; 
begin 
    Parametertext := StringGrid1.Cells[ACol, ARow]; 
    StringGrid1.Brush.Color := clBtnFace; 
    StringGrid1.Font.Color := clWindowText; 
    StringGrid1.Canvas.FillRect(Rect); 
    DrawText(StringGrid1.Canvas.Handle, PChar(ParameterText), Length(ParameterText), Rect, DT_SINGLELINE); 
end; 

... 

StringGrid1.Cells[0, 0] := 'Test'; 
StringGrid1.Cells[1, 0] := 'Test1'; 

Если вы не собираетесь использовать Cells недвижимость для хранения строк вы можете использовать только TDrawGrid.