Daten eines Grid (TnextGrid) in die Zwischenablage kopieren

Daten eines Grids, in diesem Falle eines TNextGrids (Grid Komponenten von BergSoft) unter Delphi in die Zwischenablage zu kopieren, dürfte ein häufig angefragtes Feature sein, wird es doch häufiger notwendig sein, Daten an ein Drittprogramm, wie einem Tabellenkalkulationsprogramm zu übergeben, um diese Daten dann weiter zu verarbeiten.

Eine eingebaute Funktion gibt es hierfür bei TNextGrid nicht, der Einbau einer eigenen Funktion zur Übergabe der TnextGrid Daten an die Zwischenablage ist aber recht einfach. Das Beispiel kann natürlich leicht auch für andere Grids oder auch Listview Komponenten unter Delphi angepasst werden.

procedure CopyGridToClipBoard(xGrid:TnextGrid;mitHeader:Boolean);
var
s: string;
zeile,spalte: Integer;
begin
s := “;
if mitHeader then
begin
for zeile := 0 to xgrid.Columns.Count-1 do
s:= s+ Trim(xGrid.Columns[zeile].Header.Caption)+#9;
s:=s+#13;
end;
for zeile := 0 to xgrid.RowCount – 1 do
begin
for spalte := 0 to xGrid.Columns.Count – 1 do
s := s + Trim(xGrid.Cell[spalte,zeile].AsString) + #9;
s := s + #13;
end;
Clipboard.AsText := s;
end;

Als Unit muss natürlich

Uses Clipbrd;

mit aufgenommen werden. Kommen andere Grids/Komponenten bei Ihnen zum Einsatz müssen natürlich entsprechende Anpassungen vorgenommen werden.

 

Aktuelle Top Aktionen bei Acer, HP, Lenovo, Bitdefender & Co

Notebook & PC Angebote:
» HP Extra Aktion: 100 Euro Extra sparen bei HP Notebooks ab 999 Euro. Gutscheincode und alle Infos hier im HP Store
» Top bei Otto: Sehr gute HP Notebook Angebote mit Extras wie 4 Jahre Garantie und mehr
» Aktion im Lenovo Store: Bis zu 15% auf ausgewählte und recht gute Artikel (IdeaPad und Yoga Notebooks, Tablet PCs, Gaming Notebooks und PCs)
» Große Rabattaktion bei Acer: bis 21.05.2018 gibt es 15% Rabatt auf ultraschlanke Notebooks der Acer Swift Serie
» Notebooksbilliger.de WM Special:Jede Woche 11 neue Top Angebote>
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick

Aktuelle Bitdefender Aktionen:
» Neue Aktion: Bitdefender 39 Euro Flat mit 5 Geräten
» Bitdefender +1 Jahr dazu-Aktion
» Die neue Bitdefender 40% und mehr Rabatt Aktion
» Top für neue PCs! Bitdefender Internet Security 2018 PC Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95

Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick


Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.