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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour09/04/2002
VisualisationVu 880 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur