delphi TStringList 遍历操作

FilsStrs:TStringList;

FilsStrs := TStringList.Create;

  for I := 0 to FilsStrs.Count - 1 do
  begin
    Writeln( FText, FilsStrs[I] );
  end;

你可能感兴趣的:(Delphi)