我将ComboBox1组件的AutoDropDown属性设为真,在Items中加入:
001 张三
002 李四
003 王五
这样,在运行时,我在ComboBox1组件中键入001,这时候ComboBox1组件的文本框中为001 张三,如果在这个时候,离开或者单击这个组件时,问题就出来了,在WIN2000系统中,ComboBox1组件的文本框中保留为001 张三,而在WIN98系统中则变为原先进入ComboBox1组件时的值,不知道这是不是一个BUG,还是我哪里设置有错误,请大家赐教!!!
编译环境:W2000+DELPHI7或W98+DELPHI7
001 张三
002 李四
003 王五
这样,在运行时,我在ComboBox1组件中键入001,这时候ComboBox1组件的文本框中为001 张三,如果在这个时候,离开或者单击这个组件时,问题就出来了,在WIN2000系统中,ComboBox1组件的文本框中保留为001 张三,而在WIN98系统中则变为原先进入ComboBox1组件时的值,不知道这是不是一个BUG,还是我哪里设置有错误,请大家赐教!!!
编译环境:W2000+DELPHI7或W98+DELPHI7
解决方案 »
- adoconnection 重新连接的问题
- 可不可以在 bpl 中调用 dll
- 在delphi 中如何打开一个共享文件????
- 刚接触DELPHI,求教与ACCESS数据库链接问题!
- 急急如律令 各位大侠:如何在RichEdit中实现文本行距设置?
- 有关组件图标的一个简单问题
- FastReport可以用于Linux下吗?
- 如何获取系统当前所有的输入法
- OpenKey(''Software\Microsoft\Windows\CurrentSowft\tag'', True)如果没有这个键码
- 如何进行“阴历”和“阳历”之间的转换?
- Delphi新手請教 !!
- 各位老大,我是菜鸟,请问一个关于在MEMO控件里面如何对某一行改变颜色的问题
function EncodeBase64(Source:string):string;
var
Times, LenSrc, i: Integer;
x1, x2, x3, x4: Char;
xt: Byte;
begin
Result := '';
LenSrc := Length(Source);
if LenSrc mod 3 = 0 then
Times := LenSrc div 3
else
Times := LenSrc div 3 + 1;
for i := 0 to Times - 1 do
begin
if LenSrc >= (3 + i * 3) then
begin
x1 := BaseTable[(ord(Source[1 + i * 3]) shr 2)+1];
xt := (ord(Source[1 + i * 3]) shl 4) and 48;
xt := xt or (ord(Source[2 + i * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
xt := xt or (Ord(Source[3 + i * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (ord(Source[3 + i * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + i * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2) + 1];
xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + i * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2)+1];
xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end; 这个是个验证程序
在连接的事件中加入 if nmsmtp_my.ReplyNumber = 250 then
nmsmtp_my.Transaction('auth login');
if nmsmtp_my.ReplyNumber = 334 then
begin
nmsmtp_my.Transaction(EncodeBase64('//')); 这里输入你的用户名
nmsmtp_my.Transaction(EncodeBase64('//'));这里输入你的密码
end;
欢迎进入http://www2.baidu.com/chains/chains.php?cn=cwwnet1http://chinaour.com/?cwwnet