Memo字段名Memo var S : TBlobStream; begin if FLoadingTips or ( SrcTips.State in dsEditModes ) then Exit; S := TBlobStream.Create( TMemoField( TblTips.FieldByName('Memo') ), bmRead ); try RtfTip.Lines.LoadFromStream( S ); { Load from memo field } RtfTip.Modified := False; finally S.Free; end; end;var S : TBlobStream; begin S := TBlobStream.Create( TMemoField( TblTips.FieldByName('Memo') ), bmReadWrite ); try RtfTip.Lines.SaveToStream( S ); { Store tip in memo field } finally S.Free; end; end; 要不给你个例子?
Memo字段名Memo
var
S : TBlobStream;
begin
if FLoadingTips or ( SrcTips.State in dsEditModes ) then
Exit;
S := TBlobStream.Create( TMemoField( TblTips.FieldByName('Memo') ),
bmRead );
try
RtfTip.Lines.LoadFromStream( S ); { Load from memo field }
RtfTip.Modified := False;
finally
S.Free;
end;
end;var
S : TBlobStream;
begin
S := TBlobStream.Create( TMemoField( TblTips.FieldByName('Memo') ),
bmReadWrite );
try
RtfTip.Lines.SaveToStream( S ); { Store tip in memo field }
finally
S.Free;
end;
end;
要不给你个例子?
用dbmemo就可以啦2