这段代码哪有问题？为什么程序执行后并没有向数据库提交数据呢？(80分)

begin
if OpenDialog1.Execute then
begin
fileName:=OpenDialog1.FileName;
AssignFile(readFile,fileName);
Reset(readFile);
while not eof(readFile) do
begin
ReadLn(readFile,readSample);
ss:='';
readValue:='';
if Length(readSample)=3 then break
else
begin
for I:=1 to Length(readSample) do
begin
if readSample='=' then break;
ss:=ss+readSample;
end;
for I:=length(ss)+2 to length(readSample) do
begin
readValue:=readValue+readSample;
end;
end;
if readSample='AxialForce' then
AxialForce:=readValue
else if readSample='ConfiningPressure' then
ConfiningPressure:=readValue;
DataModule2.ADOQuery1.SQl.Clear;
DataModule2.ADOQuery1.SQL.Add('insert into csbxTest values('''+AxialForce+''','''
+ConfiningPressure+''','''+')');
DataModule2.ADOQuery1.ExecSQL;
end;
end;
closefile(readFile);
end;

GZ

如果没有出错提示的话，那只有一种可能： readSample没有等于'AxialForce'的时候，
检查你的程序与相关文件，并用断点跟踪方法查看readSample的值。

你跟踪一下，太长，看的有点晕

程序运行跟踪后，发现变量没有被赋值：（

多人接受答案了。