procedure TForm1.Button1Click(Sender: TObject);
var
N:string;
begin
N:=trim(edit1.Text);
case radiogroup1.ItemIndex of
0:
with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:=N '%';
open;
end;
1: with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:='%' N;
open;
end;
2: with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:='%' N '%';
open;
end;
end;

按照书上所写
0: 是查询某字符（串）开头的记录；
1：是查询某字符（串）结尾的记录；
2：是查询包含某字符（串）的记录；
可运行以后，后面两个都可以查到，第一个查以字符串开头的记录怎么都查不到，26个字母都试遍。。。我看代码都差不多。。找不到原因；

------
新手。。

var 宣告是 N
SQL 裏用的是 N1
有關係嗎 ?

用 debug 看一下 SQL.text 內容, 然後, 用資料庫軟體, 測試


===================引 用 57605993 文 章===================
procedure TForm1.Button1Click(Sender: TObject);
var
N:string;
begin
N:=trim(edit1.Text);
case radiogroup1.ItemIndex of
0:
with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:=N '%';
open;
end;
1: with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:='%' N;
open;
end;
2: with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:='%' N '%';
open;
end;
end;

按照书上所写
0: 是查询某字符（串）开头的记录；
1：是查询某字符（串）结尾的记录；
2：是查询包含某字符（串）的记录；
可运行以后，后面两个都可以查到，第一个查以字符串开头的记录怎么都查不到，26个字母都试遍。。。我看代码都差不多。。找不到原因；

应该没有多大关系，那是两个不同的参数，只是恰好一个N一个N1，
至少后面两种查找方法可以实现也说明了一点。
你说的那个debug之类的操作我不太懂。
能说明详细一点吗？麻烦你了。

------
新手。。

在 open 這行設 中斷點
執行程式, 當程式執行到中斷點
在功能表 RUN -> Add Watch , 新增 query1.sql.text , 會列出實際完整的 SQL 指令
這行指令, 應該可以在 資料庫的工具程式, 測試看看結果是否你要的.

這是很基本的程式偵錯, 一定要會的, 否則怎麼寫程式 ....... 加油
===================引 用 57605993 文 章===================
procedure TForm1.Button1Click(Sender: TObject);
var
N:string;
begin
N:=trim(edit1.Text);
case radiogroup1.ItemIndex of
0:
with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:=N '%';
open;
end;
1: with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:='%' N;
open;
end;
2: with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add('where firstname like :N1');
params[0].AsString:='%' N '%';
open;
end;
end;

按照书上所写
0: 是查询某字符（串）开头的记录；
1：是查询某字符（串）结尾的记录；
2：是查询包含某字符（串）的记录；
可运行以后，后面两个都可以查到，第一个查以字符串开头的记录怎么都查不到，26个字母都试遍。。。我看代码都差不多。。找不到原因；

[code delphi]
var
N:string;
begin
N:=trim(edit1.Text);
case radiogroup1.ItemIndex of
0:
with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add(Format('where firstname like ''%s''',[N '%']));

open;
end;
1:
with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add(Format('where firstname like ''%s''',['%' N]));

open;
end;
2:
with query1 do
begin
sql.Clear;
sql.Add('select empno,firstname');
sql.Add('from employee');
sql.Add(Format('where firstname like ''%s''',['%' N '%']));

open;
end;
Edit1.Text:= Query1.SQL.Text;
{
Here, 請 debug 一下 !
}
end;

[/code]

------
What do we live for if not to make life less difficult for each other?

編輯記錄

谢谢你们的帮助，呵呵，我会更加努力学习，
刚刚开始学有点急躁，有很多地方，明明可以仔细检查就能解决的问题，
大费周折的在各个论坛上发帖子问人。
真的是麻烦你们了！
以后会注意的!

------
新手。。