Copia di porzioni di un TDBGrid nella clipboard?
Domanda
C'è un modo per copiare una selezione di righe da una TDBGrid in Delphi 2007 negli appunti facilmente?
Soluzione
Questo metodo è dalla nostra unità libreria interna ..
procedure BuildListFromDBGrid(DBGrid: TDBGrid; const FieldName: String; Strings :TStrings);
var
i: Integer;
begin
Strings.Clear();
with DBGrid do
begin
Strings.BeginUpdate(); // If assocated with a UI control (Listbox, etc), this will prevent any flickering
DataSource.DataSet.DisableControls();
try
for i := 0 to (SelectedRows.Count - 1) do
begin
Datasource.DataSet.GotoBookmark(Pointer(SelectedRows[i]));
Strings.Add(DataSource.DataSet.FieldByName(FieldName).AsString);
end;
finally
DataSource.DataSet.EnableControls();
Strings.EndUpdate();
end;
end;
end;
Per ottenere l'elenco degli elementi selezionati negli appunti, aggiungere Clipbrd alla clausola uses e chiamare la procedura ..
var
SelectedItems :TStringList;
begin
SelectedItems := TStringList.Create();
try
BuildListFromDBGrid(MyDBGrid, 'InvoiceID', SelectedItems);
Clipboard.AsText := SelectedItems.Text;
finally
SelectedItems.Free();
end;
end;
Naturalmente è possibile modificare il metodo di cui sopra o di crearne uno nuovo che aggiunge direttamente gli elementi selezionati negli appunti (ex, più campi, in un formato specializzato, etc)
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow