Question

delphi 7 edit2在edit1输入的字符范围内有效代码怎么编写

Answer 1

可不可以描述清楚一点

Answer 2

什么意思...没听懂!

Answer 3

if (pos(eidt1.text,edit2.text)>0)
begin
//youxiao
end
else
begin
//wuxiao
end

Answer 4

WideCharToMultiByte

Win32 API函数，用法自己查。

Answer 5

逐一查询即可，把edit2.text里面的内容一个个判断，在edit1.text里面是否存在，具体如下：
function chkdata: boolean;
var i:integer;
begin
result := false;
for i:= 0 to length(edit2.text)-1 do
begin
if pos(edit2.text[i],edit1.text) = 0 then exit;
end;
result := true;
end;