home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / BIN / CORIDE40.BPL / 0 / RCDATA / SAMPLE < prev    next >
Text File  |  1998-06-16  |  523b  |  23 lines
  1. { Syntax Highlighting }
  2. procedure TForm1.Button1Click(Sender: TObject);
  3. var
  4.   Number, I, X: Integer;
  5. begin
  6.   Number := 12356;
  7.   Caption := 'The number is ' + IntToStr(Number);
  8.   asm
  9.     MOV AX,1234H
  10.     MOV Number,AX
  11.   end;
  12.   X := 10;
  13.   { Search Match, Text %Block& }
  14.   { Invalid breakpoint }
  15.   for I := 0 to Number do { execution point }
  16.   begin
  17.     Inc(X); { Enabled breakpoint }
  18.     Dec(X); { Disabled breakpoint }
  19.     X := X + 1.0; { Error line }
  20.     ListBox1.Items.Add(IntToStr(X));
  21.   end;
  22. end;
  23. |