Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 30 → Rev 31

/trunk/RunPHP.pas
6,14 → 6,14
SysUtils, Forms, Classes, Windows;
 
type
TInputRequestCallback = function: string of object;
TOutputNotifyCallback = procedure(const output: string) of object;
TInputRequestCallback = function: AnsiString of object;
TOutputNotifyCallback = procedure(const output: AnsiString) of object;
TRunCodeExplorer = class(TThread)
private
FInputRequestCallback: TInputRequestCallback;
FOutputNotifyCallback: TOutputNotifyCallback;
FInputWaiting: string;
FOutputWaiting: string;
FInputWaiting: AnsiString;
FOutputWaiting: AnsiString;
protected
procedure CallInputRequestCallback;
procedure CallOutputNotifyCallback;