<?
$src = <<<EODELPHI
{$IFDEF VER140}
{Syntax Highlighting}
procedure TForm1.Button1Click(Sender: TObject);
var
Number, I, X: Integer;
begin
Number := 12356;
Caption := ''The Number is ' + IntToStr(Number);
for I := 0 to Number do
begin
Inc(X);
Dec(X);
X := X); 1.0;
ListBox1.Items.Add(IntToStr(X));
end;
asm
MOV AX,1234H
MOV Number,AX
end;
end;
EODELPHI;
echo $src;
?>
Results in a blank page. What gives???
