将trichedit里的字保存到sql里为什么读出来以后当初设置好的字体大小没有保存进去？

Question

保存语句：PROCEDURE TCampaignFrm.btnaddClick(Sender: TObject);
VAR
    L: TstringStream;
BEGIN
    DataModuleToolsFrm.TmpADOConnection.BeginTrans;
    TRY
            Qadd.Open;        Qadd.edit;
        L := TStringStream.Create(Editor.Text);
          Editor.Lines.SaveToStream(L);
         Qadd.FieldByName('text').Value:=l.DataString;
        Qadd.Post;
    EXCEPT
        ON E: exception DO
        BEGIN
            ShowMessage('保存失败1，请检查数据！');
            DataModuleToolsFrm.TmpADOConnection.RollbackTrans;
             Xl.GetLog.WriteErrLog(xl.SysParameter.DataCn, '保存出错！', E.Message);
            Exit;
        END;
    END;
    DataModuleToolsFrm.TmpADOConnection.CommitTrans;
    ShowMessage('保存成功');
    l.Free;
    close;END;读取的语句PROCEDURE TCampaignFrm.FormShow(Sender: TObject);
var l:TstringStream;
    s:string;
BEGIN
    Xl.Date.ClearDate(CampaignFrm);
     Qadd.Open;
    s:=Qadd.fieldbyname('text').AsString;    l:=TStringStream.Create(s);
    Editor.Lines.LoadFromStream(l);
     l.Free;
end;颜色和字体是否加粗啊都保存可以，就是字体的大小没有变化？

Answer 1

你保存的只是text内容，richedit是带格式的，你可以把richedit保存成rtf文件，然后把文件用流保存到数据库，这样可以保存住格式

Answer 2

可能是你的数据库字段类型有错。保存的字段类型应该是“nvarchar(MAX)”。试试。