IdFTPList.pas - PermissionDisplay not set in TIdFTPListItem.Assign()

Giganews Newsgroups
Subject: IdFTPList.pas - PermissionDisplay not set in TIdFTPListItem.Assign()
Posted by:  spriditis (megamurmul…@inbox.lv)
Date: Sun, 30 May 2010

List.Assign(idftp1.DirectoryListing);
List.Items[x].PermissionDisplay - empty, because this field is not copied in IdFTPList.pas

Problem still in IndyTiburon.zip (v10.5.7 r4238 2010-05-25 21:20:37):
(IdFTPList.pas Rev 1.73)

unit IdFTPList;
......
526: procedure TIdFTPListItem.Assign(Source: TPersistent);
......
535:    Self.FileName := FileName;
>>536:  Self.PermissionDisplay := PermissionDisplay;  //missing assignment

also minor:
512: constructor TIdFTPListItem.Create(AOwner: TCollection);
......
522:    FModifiedAvail := True;
>>523:  FPermissionDisplay := '';  //missing initialization

Replies