+ Exception objects now descend from EPipeError

This commit is contained in:
michael 1999-07-25 15:34:59 +00:00
parent da54eb594e
commit 2ef9140afe

View File

@ -21,11 +21,11 @@ Interface
Uses sysutils,Classes; Uses sysutils,Classes;
Type Type
EPipeError = Class(EStreamError);
ENoReadPipe = Class(ESTreamError); ENoReadPipe = Class(EPipeError);
ENoWritePipe = Class (EStreamError); ENoWritePipe = Class (EPipeError);
EPipeSeek = Class (EStreamError); EPipeSeek = Class (EPipeError);
EPipeCreation = Class (Exception); EPipeCreation = Class (EPipeError);
TPipeStream = Class (THandleStream) TPipeStream = Class (THandleStream)
public public