warrence
/
pret-pas
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Updated the test file

This commit is contained in:
Stefan Müller 2010-09-29 23:37:40 +02:00
parent d310f804da
commit 470053a135
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
test-file/pret-pas_test.tex
View File

@ -10,15 +10,21 @@ blub { Comment } blub
blub {$R- compiler directive} blub blub {$R- compiler directive} blub
procedure TForm1.Button1.Click(Sender: TObject); procedure TForm1.Button1.Click(Sender: TObject);
var // Delphi Comment var // Delphi Comment
Number, I, X: Integer; Number, I, X: Integer;
begin begin
Number := 12345 * (2 + 9); Number := 12345 * (2 + 9);
Caption := 'The number is ' + IntToStr(Number); Caption := 'The number is ' + IntToStr(Number);
asm asm
MOV AX,1234h MOV AX,1234h
MOV Number,AX MOV Number,AX
end; end;
X := 10; X := 10;
end; end;
\stopPAS \stopPAS
\startPAS
My_Variable := _Variable;
45My_Variable := _Variable45;
&for
\stopPAS
\stoptext \stoptext