为什么变量被声明为TStrings并创建为TStringList？
例如：var sl声明为TStrings，但是创建为TStringList
var
sl : TStrings;
begin
sl := TStringList.Create;
// add string values...
sl.Add( 'Delphi' );
sl.Add( '2.01' );
// get string value using its index
// sl.Strings( 0 ) will return
// 'Delphi'
MessageDlg(
sl.Strings[ 0 ],mtInformation,[mbOk],0 );
sl.Free;
end;
解决方法
在我看来，这是相当无意义，虽然完全无害。你可以很好地声明sl是TStringList，我会永远这样做。对于代码的读者，它使得局部变量的列表更容易理解。
在这个代码中，sl总是分配一个TStringList实例，所以没有什么可以从声明sl获得基类类型TStrings。然而，如果你有代码分配了各种不同类型的TStrings后代到变量，那么将它声明为TStrings是有意义的。
您可能将变量声明为TStrings类型的情况通常是在代码未显式创建实例时。例如，如果接受一个字符串列表作为参数的实用程序方法接受一个TStrings更有用，因为任何后代可以传递给它。这里有一个简单的例子：
procedure PrintToStdOut(Strings: TStrings);
var
Item: string;
begin
for Item in Strings do
Writeln(Item);
end;
显然，当参数被声明为TStrings而不是TStringList时，这是非常有用的。
然而，问题中的代码不是这种性质，我相信如果sl被声明为TStringList类型，它会被如此轻微地改进。