X
xuanfeng007
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormCreate(Sender: TObject);
begin
RTFStream:=TMemoryStream.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RTFStream.Clear;
RichEdit1.Lines.SaveToStream(RTFStream);
RTFStream.Position:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit2.Lines.LoadFromStream(RTFStream);
end;
两个richedit,在第一个RichEdit1里面输入全角的双引号,然后单击button1,button2,这样RichEdit2里面的双引号竟然变成英文半角字符,不知道大家有没有遇到过这样的问题?
begin
RTFStream:=TMemoryStream.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RTFStream.Clear;
RichEdit1.Lines.SaveToStream(RTFStream);
RTFStream.Position:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit2.Lines.LoadFromStream(RTFStream);
end;
两个richedit,在第一个RichEdit1里面输入全角的双引号,然后单击button1,button2,这样RichEdit2里面的双引号竟然变成英文半角字符,不知道大家有没有遇到过这样的问题?