有没有高手？ (150分)

wolta · 2003-04-24

form上有一个memo控件，一个按钮，和几个lable控件 //////////////// memo内有一篇文章，文章中可能出现 “中国”，“美国”等汉字  按上面的按钮后查询这篇文章内容，如果文章中出现“中国”，“美国”等汉字  那么这个关键字复制给lable,如果没有那么应该有找不到的提示 /////////////////////////// 注意：关键字是在程序中制定的       （多个关键字，有英文，有汉字）           ///////////////////////  需要源代码，希望大家帮忙！！！！！！！！！！！！！！！！          E-mail: wolta@eyou.com

52free · 2003-04-24

if pos('关键字',memo1.text)<>0 then    //赋给label   else    //没有找到

放飞 · 2003-04-24

看不懂！！ 如果你要查找字符串，用 StrPos 速度很快 如果单纯是替换使用 StringReplace 函数就可以了

SS2000 · 2003-04-24

有呀，我就是

pengjing · 2003-04-27

// procedure TForm1.Button1Click(Sender: TObject); var   Key:TStringList; //Key中定义关键字   i:integer;   tempStr:string; // begin   //需增加为关键字数组赋值的代码   label1.text:='';   tempStr:=memo1.Text;   for i:=0 to Key.count-1 do begin     if Pos(Key.Strings,tempStr)>0 then       label1.text:=label1.text+'|'+Key.Strings;   end;   if label1.text='' then     ShowMessage('没有找到!'); end;

yanghaijun · 2003-04-27

用POS就可以简单地实现了

xzh2000 · 2003-04-27

这种问题还要找高手......

driver · 2003-04-29

你用Memo根本就是错的，下载一个完善一点的文本编辑控件，那里用的着自己写代码啊。

远帆 · 2003-04-29

看看http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1811742

xzh2000 · 2003-04-29

直接使用ACTION不就可以啦

tulpar · 2003-04-29

to  52free  能不能设置多个关键字？

wolta · 2003-04-29

多人接受答案了。

有没有高手？ (150分)

wolta

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

放飞

Unregistered / Unconfirmed

SS2000

Unregistered / Unconfirmed

pengjing

Unregistered / Unconfirmed

yanghaijun

Unregistered / Unconfirmed

xzh2000

Unregistered / Unconfirmed

driver

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

xzh2000

Unregistered / Unconfirmed

tulpar

Unregistered / Unconfirmed

wolta

Unregistered / Unconfirmed

Similar threads