paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-14 05:59:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed test program to new interface

Browse Source
This commit is contained in:
michael 2002-05-18 13:38:30 +00:00
parent 06ebac4e27
commit f4cea23eb8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/tests/testproc.pp
View File

@ -16,7 +16,10 @@ Var S : TProcess;
I,Count : longint;
begin
S:=TProcess.Create(theprogram,[poExecuteOnCreate,poUsePipes,poNoConsole]);
S:=TProcess.Create(Nil);
S.Commandline:=theprogram;
S.Options:=[poUsePipes,poNoConsole];
S.execute;
Repeat
Count:=s.output.read(buf,BufSize);
// reverse print for fun.
@ -26,7 +29,10 @@ begin
writeln;
S.Free;
end. $Log$
end. Revision 1.2 2000-07-13 11:33:04 michael
end. Revision 1.3 2002-05-18 13:38:30 michael
end. + Fixed test program to new interface
end.
end. Revision 1.2 2000/07/13 11:33:04 michael
end. + removed logs
end.
}