소스 검색

* fixed closepipe<>pipeclose and handle<>fhandle typos reported by Jonas.

git-svn-id: trunk@19653 -
marco 13 년 전
부모
커밋
21e04073d8
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      packages/fcl-process/src/pipes.pp

+ 2 - 2
packages/fcl-process/src/pipes.pp

@@ -79,7 +79,7 @@ end;
 
 destructor TInputPipeStream.Destroy;
 begin
-  ClosePipe (FHandle);
+  PipeClose (Handle);
 end;
 
 Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
@@ -109,7 +109,7 @@ end;
 
 destructor TOutputPipeStream.Destroy;
 begin
-  ClosePipe (FHandle);
+  PipeClose (Handle);
 end;
 
 Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;