equal
deleted
inserted
replaced
461 repeat |
461 repeat |
462 begin |
462 begin |
463 // print up to 3 extentions per row |
463 // print up to 3 extentions per row |
464 // ExtractWord will return empty string if index out of range |
464 // ExtractWord will return empty string if index out of range |
465 //AddFileLog(TrimRight( |
465 //AddFileLog(TrimRight( |
466 AddFileLog(( |
466 AddFileLog(Trim( |
467 ExtractWord(tmpint, tmpstr, [' ']) + ' ' + |
467 ExtractWord(tmpint, tmpstr, [' ']) + ' ' + |
468 ExtractWord(tmpint+1, tmpstr, [' ']) + ' ' + |
468 ExtractWord(tmpint+1, tmpstr, [' ']) + ' ' + |
469 ExtractWord(tmpint+2, tmpstr, [' ']) |
469 ExtractWord(tmpint+2, tmpstr, [' ']) |
470 )); |
470 )); |
471 tmpint := tmpint + 3; |
471 tmpint := tmpint + 3; |