Как скопировать выбранные в DBGrid записи в клипборд
Автор: Тенцер А.Л.
const
FIELD_DELIMITER = #9;
RECORD_DELIMITER = #10;
procedure CopyDBGridToClipboard( Grid : TDBGrid );
var
BM : String;
S : String;
S1: String;
I : Integer;
beginwith Grid dobeginif Assigned( DataSource ) and
Assigned( DataSource.DataSet ) and
DataSource.DataSet.Active thenwith DataSource.DataSet dobegin
S := '';
DisableControls;
BM := BookMark;
for I := 0 to Pred( Columns.Count ) dobeginif Assigned(Columns.Items[I].Field) then
S := S + Columns.Items[I].Title.Caption + FIELD_DELIMITER;
end;
S[ Length( S ) ] := RECORD_DELIMITER;
First;
whilenot Eof dobegin
S1 := '';
for I := 0 to Pred( Columns.Count ) dobeginif Assigned(Columns.Items[I].Field) then
S1 := S1 + FieldByName( Columns[I].FieldName ).AsString +
FIELD_DELIMITER;
end;
S1[ Length( S1 ) ] := RECORD_DELIMITER;
S := S + S1;
Next;
end;
BookMark := BM;
EnableControls;
// Clipboard.SetTextBuf( PChar( S ) );
SendToClipboard( S );
end;
end;
end;
Статья Как скопировать выбранные в DBGrid записи в клипборд раздела ОС и Железо Буфер обмена может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.