delphi – 为什么变量被声明为TStrings并创建为TStringList？

发布时间：2020-12-15 05:22:34 所属栏目：大数据来源：网络整理

导读：为什么变量被声明为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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!