Binäre Datenfelder im DBGrid anzeigen/bearbeiten
Datenfelder mit binären Daten werden in einem DBGrid ja nur als
(VarBytes) oder (VARBYTES) angezeigt. (je nachdem ob das Feld einen Inhalt hat oder nicht) Dieses Verhalten lässt sich ändern, wenn man für die Felder einen Eventhandler für OnGetText und OnSetText bereitstellt.
Delphi-Quellcode:
Nun muss man natürlich dafür sorgen, dass alle binären Felder mit diesem Eventhandler ausgestattet werden:
procedure TForm1.BinaryFieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin if Assigned(Sender) then begin if DisplayText then Text := '0x'+StrToHexString(Sender.AsString) else Text := StrToHexString(Sender.AsString); end; end; procedure TForm1.BinaryFieldOnSetText(Sender: TField; const Text: String); begin if Assigned(Sender) then Sender.AsString := HexStringToStr(Text); end;
Delphi-Quellcode:
Die beiden Hilfsfunktionen StrToHexString und HexStringToStr findet man in der Code-Library:
// neue Eventhandler zuweisen
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet); var i : Integer; begin // Schleife über alle Felder; rückwärts ist schneller for i := DataSet.FieldCount-1 downto 0 do begin if DataSet.Fields[i].DataType in [ftBytes, ftVarBytes] then begin DataSet.Fields[i].OnGetText := BinaryFieldOnGetText; DataSet.Fields[i].OnSetText := BinaryFieldOnSetText; end; end; end; http://www.delphipraxis.net/internal...ct.php?t=46356 [edit=Matze]Code formatiert. Mfg, Matze[/edit] |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:25 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz