TStringList.Create;问题
procedure TForm1.Button6Click(Sender: TObject);
var
Rs:string;
SL:TStringList;
begin
try
SL := TStringList.Create;
Rs := AdoQuery1.Recordset.GetString(adClipString, -1, #59,#13, '');
SL.Text := Rs;
SL.SaveToFile('C:\MyQry.csv');
SL.Free;
finally
SL.Free;
end;
end;
上面代码为什么执行到SL := TStringList.Create;时,系统提示:Variable 'SL'might not have been intialized,怎么纠正?
问题点数：0、回复次数：3Top
1 楼outer2000（天外流星）回复于 2004-08-03 20:25:30 得分 0
放TRY外面Top
2 楼linzhengqun（风。我回来了）回复于 2004-08-03 21:15:05 得分 0
SL := TStringList.Create;
try
Rs := AdoQuery1.Recordset.GetString(adClipString, -1, #59,#13, '');
SL.Text := Rs;
SL.SaveToFile('C:\MyQry.csv');
finally
SL.Free;
end;
Top
3 楼beyondtkl（大龙驹<*好久没来了,兄弟们好吧。*>）回复于 2004-08-04 09:01:48 得分 0
上面代码为什么执行到SL := TStringList.Create;时,系统提示:Variable 'SL'might not have been intialized,怎么纠正?
---------
这种提示不是错误，是hint或者warning消息
因为编译器检测到 SL := TStringList.Create在try finaly end代码块中 就表示这边有可能出现异常 导致这句代码可能执行不到 所以会提示 Variable 'SL'might not have been intialized, 一般来说养成好习惯,就是使用某变量之前请先初始化. 如果需要分配控件的,请先分配好控件Top
