为什么变量被声明为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类型，它会被如此轻微地改进。