to MFCboy: 这个我试过,因为我需要往数据库里存,只能用dbmemo, dbmemo.text:=Dbgrid.fields[0].asstring; dbmemo.lines.add(dbgrid.fields[9].asstring; 都用过,还是点击dbmemo,字符就消失了。
在TDatasource中有一个事件OnDataChange;procedure Datasource1DataChange(Sender: TObject; Field: TField) ; begin if Field.FieldName = 'FieldName' then begin Memo1.Lines.Text := Field.AsString; end; end;
这个我试过,因为我需要往数据库里存,只能用dbmemo,
dbmemo.text:=Dbgrid.fields[0].asstring;
dbmemo.lines.add(dbgrid.fields[9].asstring;
都用过,还是点击dbmemo,字符就消失了。
begin
if Field.FieldName = 'FieldName' then
begin
Memo1.Lines.Text := Field.AsString;
end;
end;