| # | Line 69 | Line 69 | end; | |
|---|---|---|
| 69 | procedure TForm_Extractor.btn_exportClick(Sender: TObject); | |
| 70 | var | |
| 71 | begintime: Double; | |
| 72 | < | files: LongWord; |
| 73 | < | i, done: LongWord; |
| 72 | > | files: Integer; |
| 73 | > | i, done: Integer; |
| 74 | selonly: Boolean; | |
| 75 | < | fileid: LongWord; |
| 75 | > | fileid: Integer; |
| 76 | filename: String; | |
| 77 | path: String; | |
| 78 | begin | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |