Rev 17 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17 | Rev 25 | ||
---|---|---|---|
Line 98... | Line 98... | ||
98 | 98 | ||
99 | if not FileExists(FileName) then |
99 | if not FileExists(FileName) then |
100 | begin |
100 | begin |
101 | ShowMessageFmt('File not found: %s', [FileName]); |
101 | ShowMessageFmt('File not found: %s', [FileName]); |
102 | Close; |
102 | Close; |
- | 103 | exit; |
|
103 | end; |
104 | end; |
104 | 105 | ||
105 | Memo1.Clear; |
106 | Memo1.Clear; |
106 | Memo2.Clear; |
107 | Memo2.Clear; |
107 | Memo3.Clear; |
108 | Memo3.Clear; |