level 7
又是d7 唉
2014年04月25日 03点04分
level 9
2
老总说：虽然现在新版本功能很强大，但是我们都用不着，还是Delphi7最好，公司现在都7 版本，你回去看看书，熟练，熟练。。。 ![[不高兴]](/static/emoticons/u4e0du9ad8u5174.png)
2014年04月25日 04点04分
回复 _爱情的幼稚园 :你和老总说，D7 用 XP 开发比较好。用 WIN7 太麻烦。不过可以开发好在 WIN7 测试下就行。
2014年04月25日 04点04分
回复 wang_80920 :,老总的Thinkpad 全部装的XP，我自己装的WIN7..换系统备份太麻烦了
2014年04月25日 05点04分
,老总的Thinkpad 全部装的XP，我自己装的WIN7..换系统备份太麻烦了
level 2
用RichEDit。memo不能显示格式
2014年04月25日 04点04分
3
嗯，先把Memo例子写完，再换RichEdit 这个都好说，只是我写查找的时候 乱码 还没解决
2014年04月25日 05点04分
回复 _爱情的幼稚园 :你没有具体说，怎么个乱码。
2014年04月25日 09点04分
level 6
level 12
level 7
kings💢
楼主
@wang_80920
如图：
代码：
procedure TForm1.Find1Click(Sender: TObject);
begin
Application.MessageBox(PChar(Memo1.SelText),'tips');
SearchFind1.Dialog.FindText:=Trim(Memo1.SelText);
SearchFind1.Dialog.Execute;
end;
不知道这样清不清楚。。。。。
在网上找了半天具体结果没找出来，有人说 XE_的不乱
2014年04月25日 10点04分
6
如图：
代码：procedure TForm1.Find1Click(Sender: TObject);
begin
Application.MessageBox(PChar(Memo1.SelText),'tips');
SearchFind1.Dialog.FindText:=Trim(Memo1.SelText);
SearchFind1.Dialog.Execute;
end;
不知道这样清不清楚。。。。。
在网上找了半天具体结果没找出来，有人说 XE_的不乱
你 DELPHI 版本是哪个？
2014年04月25日 14点04分
回复 wang_80920 :delphi7的..
2014年04月25日 14点04分
level 9
搞清楚 memo.SelText 这是string, D7默认是ansistring
FindDialog.FinaName, 这个的定义是什么? 如果类型不一样, 肯定就是乱码了
如果FindDialog.FinaName定义的是widestring, 就要强制转换
Widestring(memo.SelText)
2014年04月25日 12点04分
8
FindDialog.FinaName, 这个的定义是什么? 如果类型不一样, 肯定就是乱码了
如果FindDialog.FinaName定义的是widestring, 就要强制转换
Widestring(memo.SelText)
看了帮助文档都是 string 类型 文档定义： Delphi syntax: property FindText: String; 只能换RichEdit了，还是跟你说声谢谢！
2014年04月25日 12点04分
level 12
level 10
我们的 DELPHI 没乱码。只能说你安装的有问题。
建议使用 XE4UP1 开发。这样效果好。
2014年04月25日 14点04分
10
建议使用 XE4UP1 开发。这样效果好。
我和上楼单独拿出来测试，也是完全没问题，就是让我很惊讶的地方！
2014年04月25日 14点04分
level 12
procedure TForm1.Find1Click(Sender: TObject);
var
I,l:Integer;
AllText:Widestring;
S:String;
begin
Alltext := Memo1.Lines.Text;
I:=Memo1.SelStart;
l:=Memo1.SelLength;
// S:=MidStr(AllText,I+1,L); // 可以把Alltext定义为String，然后用这个函数
S:=Copy(AllText,I+1,L); //Alltext为WideString用这个
SearchFind1.Dialog.FindText:=S;
SearchFind1.Dialog.Execute;
//FindDialog1.FindText:=Memo1.SelText;
//FindDialog1.Execute;
end;
//确实是字符集的问题，看看SelStart 和SelLenth，得到的长度，中文是按照单个字节算的，暂时不知道为什么没有家代码就没有问题
2014年04月25日 16点04分
13
var
I,l:Integer;
AllText:Widestring;
S:String;
begin
Alltext := Memo1.Lines.Text;
I:=Memo1.SelStart;
l:=Memo1.SelLength;
// S:=MidStr(AllText,I+1,L); // 可以把Alltext定义为String，然后用这个函数
S:=Copy(AllText,I+1,L); //Alltext为WideString用这个
SearchFind1.Dialog.FindText:=S;
SearchFind1.Dialog.Execute;
//FindDialog1.FindText:=Memo1.SelText;
//FindDialog1.Execute;
end;
//确实是字符集的问题，看看SelStart 和SelLenth，得到的长度，中文是按照单个字节算的，暂时不知道为什么没有家代码就没有问题
![[真棒]](/static/emoticons/u771fu68d2.png)
level 1