Binäre Datenfelder im DBGrid anzeigen/bearbeiten

[shmia]

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:

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;

Nun muss man natürlich dafür sorgen, dass alle binären Felder mit diesem Eventhandler ausgestattet werden:

Delphi-Quellcode:

// 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;

Die beiden Hilfsfunktionen StrToHexString und HexStringToStr findet man in der Code-Library:
http://www.delphipraxis.net/internal...ct.php?t=46356

[edit=Matze]Code formatiert. Mfg, Matze[/edit]