Rev 96 | Rev 99 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 96 | Rev 97 | ||
|---|---|---|---|
| Line 1557... | Line 1557... | ||
| 1557 | SetLength(FSourceUnicode, Length(r1.sourceUnicode)); |
1557 | SetLength(FSourceUnicode, Length(r1.sourceUnicode)); |
| 1558 | for i := 0 to Length(r1.sourceUnicode)-1 do |
1558 | for i := 0 to Length(r1.sourceUnicode)-1 do |
| 1559 | FSourceUnicode[i+1] := r1.sourceUnicode[i]; |
1559 | FSourceUnicode[i+1] := r1.sourceUnicode[i]; |
| 1560 | 1560 | ||
| 1561 | FID := ''; // will be added manually (at the constructor) |
1561 | FID := ''; // will be added manually (at the constructor) |
| 1562 | FSourceDrive := AnsiChar(r1.sourceUnicode[1]); |
1562 | FSourceDrive := Char(r1.sourceUnicode[1]); |
| 1563 | FDeletionTime := FileTimeToDateTime(r1.deletionTime); |
1563 | FDeletionTime := FileTimeToDateTime(r1.deletionTime); |
| 1564 | FOriginalSize := r1.originalSize; |
1564 | FOriginalSize := r1.originalSize; |
| 1565 | end |
1565 | end |
| 1566 | else if version = 2 then |
1566 | else if version = 2 then |
| 1567 | begin |
1567 | begin |
| Line 1581... | Line 1581... | ||
| 1581 | SetLength(FSourceUnicode, Length(r2sourceUnicode)); |
1581 | SetLength(FSourceUnicode, Length(r2sourceUnicode)); |
| 1582 | for i := 0 to Length(r2sourceUnicode)-1 do |
1582 | for i := 0 to Length(r2sourceUnicode)-1 do |
| 1583 | FSourceUnicode[i+1] := WideChar(r2sourceUnicode[i]); |
1583 | FSourceUnicode[i+1] := WideChar(r2sourceUnicode[i]); |
| 1584 | 1584 | ||
| 1585 | FID := ''; // will be added manually (at the constructor) |
1585 | FID := ''; // will be added manually (at the constructor) |
| 1586 | FSourceDrive := AnsiChar(r2sourceUnicode[1]); |
1586 | FSourceDrive := Char(r2sourceUnicode[1]); |
| 1587 | FDeletionTime := FileTimeToDateTime(r2.deletionTime); |
1587 | FDeletionTime := FileTimeToDateTime(r2.deletionTime); |
| 1588 | FOriginalSize := r2.originalSize; |
1588 | FOriginalSize := r2.originalSize; |
| 1589 | end |
1589 | end |
| 1590 | else |
1590 | else |
| 1591 | begin |
1591 | begin |