Re:DBRichEdit to RichEdit....(Urgent)
Louis:
Just happen to have an example handy waiting for this very question:
unit RichEditFromDBRichEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ExtCtrls, DBCtrls, StdCtrls, ComCtrls;
type
TFrmRichEditFromDBRichEdit = class(TForm)
RichEdit1: TRichEdit;
DBRichEdit1: TDBRichEdit;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Table1: TTable;
Table1ABlobField: TBlobField;
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmRichEditFromDBRichEdit: TFrmRichEditFromDBRichEdit;
implementation
{$R *.DFM}
procedure TFrmRichEditFromDBRichEdit.DataSource1DataChange(Sender: TObject;
Field: TField);
var
theBStream: TBlobStream;
begin
theBStream := TBlobStream.Create(Table1ABlobField, bmRead);
try
RichEdit1.Lines.LoadFromStream(theBStream);
finally
theBStream.Free;
end;
end;
procedure TFrmRichEditFromDBRichEdit.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TFrmRichEditFromDBRichEdit.FormDestroy(Sender: TObject);
begin
Table1.Close;
end;
end.
--
Regards
Ralph (TeamB)
(No private e-mail replies, please, unless explicitly requested).
--
Quote
Louis wrote in message <73jur1$d...@forums.borland.com>...
|How can I copy the contents from a DBRichEdit to a normal RichEdit without