Mega Code Archive
How to get the content of a TStringgrid TDrawGrid as a string
<![CDATA[
Title: How to get the content of a TStringgrid/ TDrawGrid as a string
use
Grids;
{...}
{ we need this Cracker Class because the Col/RowCount property
is not public in TCustomGrid }
type
TGridHack = class(TCustomGrid);
function GetstringGridText(_Grid: TCustomGrid): string;
var
Grid: TGridHack;
Row, Col: Integer;
s: string;
begin
// Cast the paramter to a TGridHack, so we can access protected properties
Grid := TGridHack(_Grid);
Result := '';
// for all rows, then for all columns
for Row := 0 to Grid.RowCount - 1 do
begin
for Col := 0 to Grid.ColCount - 1 do
begin
// the first column does not need the tab
if Col 0 then
Result := Result + #9;
Result := Result + Grid.GetEditText(Col, Row);
end;
Result := Result + #13#10;
end;
end;
]]>