Subversion Repositories checksum-tools

checksum-tools/trunk/Windows/Unit3.pas @ 10 – Rev 17 → 25



 
  if not FileExists(FileName) then
  begin
    ShowMessageFmt('File not found: %s', [FileName]);
    Close;
    exit;
  end;
 
  Memo1.Clear;
  Memo2.Clear;
  Memo3.Clear;

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;