trying to save richedit text to access database with all atribitues but it doesnt work ???
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
rtfstring:WideString ;
begin
ms := TMemoryStream.Create;
ms.Clear;
RichEdit1.Lines.SaveToStream(ms);
ms.Position := 0;
if (ms.Size > 0) then begin
SetLength(rtfString, ms.Size);
if (ms.Read(rtfString[1], ms.Size) <= 0) then
raise EStreamError.CreateFmt('End of stream reached with %d bytes left to read.', [ms.Size]);
end;
ADOTable1.Active := True;
ADOTable1.Insert;
ADOTable1.FieldByName('richedittext').AsWideString := rtfString;
ADOTable1.Post;
ms.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
ms: TMemoryStream;
rtfstring:WideString ;
begin
rtfString := AdoTable1.FieldByName('Richedittext').AsWideString ;
ms := TMemoryStream.Create;
ms.Clear;
ms.Write(PAnsiChar(rtfString)^, Length(rtfString));
ms.Position := 0;
RichEdit1.PlainText := False;
RichEdit1.Lines.LoadFromStream(ms);
ms.Free;
end;
|
|