Placer le contenu d'un TStringgrid/ TDrawGrid dans un string

use
Grids;

[...]

{ we need this 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;