错误(10分)

张

张仪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #1

dqksb.Close;
dqksb.SQL.Clear;
dqksb.SQL.Add('select * from tkb where ID in (select rand(2))');
dqksb.Open;
dqksb无记录

 

张

张仪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #2

如何控制输入时edit不让有空格
谢谢大虾们

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #3

在Edit1的OnChange事件中：
var
iPos:integer;
s:string;
begin
s := Edit1.Text;
iPos := Pos(' ',s);
while(iPos <> 0)do
begin
Delete(s,iPos,1);
iPos := Pos(' ',s);
end;
Edit1.Text := s;
end;

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #4

在ONCHANG里屏蔽空格，会使光标移到第一位的
在ONKEYPRESS里处理很简单，前面有类似讨论。
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#32 then
key:=#0;
end;

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #5

呵呵，忘了这一点。
没用OnKeyPress是因为不想让拷贝进来的文字中包含空格。
看来还需要考虑考虑。

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #6

我看张仪说控制输入时edit不让有空格
把copy来的也搞掉，就两个都用吧

 

张

张仪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #7

还有一个问题
dqksb.Close;
dqksb.SQL.Clear;
dqksb.SQL.Add('select * from tkb where ID in (select rand(2))');
dqksb.Open;
dqksb无记录

 

兔

兔子牙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #8

随机问题？？？？？？？

 

张

张仪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #9

s