delphi里的输入控制比如tmemo tedit 这些全角双引号都会变成 | 怎么解决呢?

qazwsxhai 2014-02-21 11:31:24

delphi里的输入控件比如tmemo tedit 这些全角双引号都会变成 | 怎么解决呢?

...全文

166 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

seagull327 2014-02-21

打赏
举报

回复

用半角 .

lyhoo163 2014-02-21

打赏
举报

回复

对呀，设置为中文字体，才能显示中文格式的标点。

qazwsxhai 2014-02-21

打赏
举报

回复

引用 1 楼 haiou327 的回复:

用半角 .

搞定,设为中文字体即可

这是早上传的发现有问题不能在Delphi Xe5中运行但能在Delphi7中运行我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi TMemo字符串的查找完全实现已经完全的解决Delphi TMemo的查找对话框和替换对话框功能的所有功能查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif

Delphi开发过程中，往往需要在TMemo中逐行读取数据，本实例是回答网友问题的源码。上传方便实施TMemo逐行读取数据的同行下载参考。

Delphi 7.0 获取Memo控件中字符的可见行数，没讲时在Memo控件中随便粘贴入一些字符，单击窗口中的“检测可见行数”按钮，即可得到该文本框控件中字符的行数，将这一系列执行命令集成在delphi的按钮监听事件中，编写如下代码即可：　　function LinesVisible(Memo: TMemo): integer; 　　Var 　　 OldFont : HFont; 　　 Hand : THandle; 　　 TM : TTextMetric; 　　 Rect : TRect; 　　 tempint : integer; 　　begin 　　 Hand := GetDC(Memo.Handle); 　　 try 　　 GetTextMetrics(Hand, TM); 　　 Memo.Perform(EM_GETRECT, 0, longint(@Rect)); 　　 tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; 　　 finally 　　 ReleaseDC(Memo.Handle, Hand); 　　 end; 　　 Result := tempint; 　　end; 　　　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; 　　end; 　　程序运行效果请参见截图所示，完整源码请下载。

delphi读取xml文件显示TMemo上，可编辑，按原路径保存文件

请问一下我想，針對handel.ini中的分類palette 及包的记录knownpackges，像Delphi IDE一样运行时动态加载和动态注册自动填knownpackges中所控件实现加载上 [KnownPackages]包的记录的格式所有的包翻譯0=D:\Delphi7\Projects\dclqrt70.bpl 首先程序每次運行要把handel.ini，KnowPackges以解决了包中所有的翻譯 {……………………………但是还有一个问题没有解决…………………………………………………} 然後怎么创建包的分類要儲存在palette中，新、舊、也要的类必须在palette中所加载的但是还有一个问题的类没有解决如何动态加载的类 [Palette] 的类记录的格式 Standard= TMainMenu;TPopupMenu;TLabel;TEdit;TMemo;TButton;TCheckBox;TRadioButton; TListBox;TComboBox;TScrollBar;TGroupBox;TRadioGroup;TPanel; 哪位大侠会修改帮个忙一下非常感谢！

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章