Question

关于 Delphi 问题~ pos问题

我觉得很简单 但我基础不好 如果 代码完美 我还可以加分~
第一步 1个 edit 一个Button 一个 memo
第二部 edit 输入汉字 单击 button 添加到 memo 第一行 在添加就是 第二行
这个是框架 (我不知道 添加到memo 需要什么代码 这是第一个问题);
//
然后
需要 内部做一个判断
定义wpname:等于 memo里面的内容; //(这个应该是数组吧)
strname:string; // 这个定义是我用来 取字符串用的
strname:= widechartostring(goodsname);//这个我已经做到
if pos( wpname,strname)>0 then /****重点 就是这里
如何 判断 strname 包含wpname 其中一组字符串
/************************************************************
问题简单话一下 我就是想做到
if (strname 是否包含 '药,'霜','丸','露','回城'其中 任意一个字符)>then continue;

提出个问题 用了半小时 今天 弄了一天 也没有头绪 这个弄完 我一定会学学基础知识 从头来下 ~~~现在就请帮帮我把 代码好 我还可以+分的;;先谢谢了

Answer 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function IsInclude(aString: string): Boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

const
myArr: array[0..4] of string = ('药','霜','丸','露','回城');
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
...//省略一大堆代码
if IsInclude(yourstring) then
begin
//do something that you want to do
//做你想做的操作
end;
end;

function TForm1.IsInclude(aString: string): Boolean;
var
i: Integer;
begin
Result := False;
for i := 0 to 4 do
begin
if Pos(myArr[i], aString) > 0 then
begin
Result := True;
Break;
end;
end;
end;

end.

Answer 2

source:string;
source:='药霜丸露回城';
定义一个str:array[0..4] of string =('药,'霜','丸','露','回城');
for i:=low(str) to high(str) do
begin
if pos(str[i],source) <> 0 then
执行下边代码就可以了
end;
随手打的,试下可以不吧!
不对的话,你稍微修改下

Answer 3

1 : memo1.lins.add('填加的文字');
2 : pos一次只能查一个，如果你要查多个种类。那你就把要查询的字段放进数组。
用for循环一个一个的查。