回答网友的一个DBGrid的问题

起因

网友在QQ群里问Text字段的显示问题。

俺回答：百度了一下 方法有 很多很多 。然后给他百度了6种方案。然后告诉他找个顺眼的用。

可是，对方感觉都顺眼。俺就新写了一个 。

代码

创建测试数据

begin
  ADODataSet1.DisableControls;
  colcnt:=5;
  rowcnt:=10;
  for i:=1 to colcnt do
    ADODataSet1.FieldDefs.Add('TEXT'+inttostr(i),ftMemo);
  ADODataSet1.CreateDataSet();
  for  j:=1 to    rowcnt do
  begin
    ADODataSet1.Append();
    for i:=1 to colcnt do
      ADODataSet1.Fieldbyname('TEXT'+inttostr(i)).AsString:='啥啥';
    ADODataSet1.Post();
  end;
  ADODataSet1.First;
  for i:=1 to colcnt do
   ADODataSet1.Fieldbyname('TEXT'+inttostr(i)).OnGetText:=  OnGetText;
  ADODataSet1.EnableControls;
end;

并设置OnGetText事件

   ADODataSet1.Fieldbyname('TEXT'+inttostr(i)).OnGetText:=  OnGetText;

OnGetText事件

procedure TForm1.OnGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text:=Sender.AsString;
  DisplayText:=true;
end;

全部代码

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB;typeTForm1 = class(TForm)DataSource1: TDataSource;ADODataSet1: TADODataSet;DBGrid1: TDBGrid;procedure FormCreate(Sender: TObject);privateprocedure OnGetText(Sender: TField; var Text: string;DisplayText: Boolean) ;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
varcolcnt,i:integer;rowcnt,j:integer;beginADODataSet1.DisableControls;colcnt:=5;rowcnt:=10;for i:=1 to colcnt doADODataSet1.FieldDefs.Add('TEXT'+inttostr(i),ftMemo);ADODataSet1.CreateDataSet();for  j:=1 to    rowcnt dobeginADODataSet1.Append();for i:=1 to colcnt doADODataSet1.Fieldbyname('TEXT'+inttostr(i)).AsString:='啥啥';ADODataSet1.Post();end;ADODataSet1.First;for i:=1 to colcnt doADODataSet1.Fieldbyname('TEXT'+inttostr(i)).OnGetText:=  OnGetText;ADODataSet1.EnableControls;
end;procedure TForm1.OnGetText(Sender: TField; var Text: string;DisplayText: Boolean);
beginText:=Sender.AsString;DisplayText:=true;
end;end.