|
@@ -359,13 +359,19 @@ begin
|
|
on E: EFCreateError do
|
|
on E: EFCreateError do
|
|
begin
|
|
begin
|
|
DCDebug(E.Message);
|
|
DCDebug(E.Message);
|
|
- msgWarning(rsMsgErrECreate + ' ' + aFileName);
|
|
|
|
|
|
+ msgError(rsMsgErrECreate + ' ' + aFileName);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
on E: EFOpenError do
|
|
on E: EFOpenError do
|
|
begin
|
|
begin
|
|
DCDebug(E.Message);
|
|
DCDebug(E.Message);
|
|
- msgWarning(rsMsgErrEOpen + ' ' + aFileName);
|
|
|
|
|
|
+ msgError(rsMsgErrEOpen + ' ' + aFileName);
|
|
|
|
+ Exit;
|
|
|
|
+ end;
|
|
|
|
+ on E: EReadError do
|
|
|
|
+ begin
|
|
|
|
+ DCDebug(E.Message);
|
|
|
|
+ msgError(rsMsgErrERead + ' ' + aFileName);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|