InterBase的varchar问题
表 A
create table A
(
S varchar(10)
)
程序 Button1, Edit1, Edit2, InterBase连接
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
Edit2.Text := Edit1.Text + ' '; //Edit2 多2个空格
with IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' insert into a (s) values(:s)');
ParamByName('s').AsString := Edit1.Text;
ExecSQL;
Close;
SQL.Clear;
SQL.Add(' select * from A where s = :s');
ParamByName('s').AsString := Edit2.Text;
Open;
if RecordCount > 0 then
ShowMessage('一样!')
else
ShowMessage('不同!');
end;
end;
end;
结果是‘一样!’!...InterBase的varchar有没有空格都一样吗?怎么改呢?