{ Подсветка синтаксиса }

procedure TForm1.Button1Click(Sender: TObject);

var

  Number, I, X: Integer;

begin

  {$IFDEF WIN32}

  Number := 654321;

  {$ELSE}

  Number := 123456;

  {$ENDIF}

  Caption := 'The number is ' + IntToStr(Number);

  for I := 0 to Number do

  begin

    Inc(X);

    ListBox1.Items.Add(IntToStr(X));

  end;

  asm

    MOV AX, 1234H

    MOV Number, AX

  end;

end; 

// Подсветка синтаксиса

void __fastcall TForm1::Button1Click(TObject *Sender)

{

  Caption = "The number is " + IntToStr(i);

  int i = 123456;

  double d = 123.45;

  char c = 'a';

#ifdef FULLMOON

  asm

  {

     ASM MOV AX, 0x1234

     ASM MOV i, AX

  }

#endif

'******** Visual Basic syntax highlighting example ********

'**********************************************************

Option Explicit

' User-defined type to store information about child forms

Type FormState

    Deleted As Integer

    Dirty As Integer

    Color As Long

End Type

Public Document() As New frmNotePad

Public gFindString As String

Public Const ThisApp = "MDINote"

Function AnyPadsLeft() As Integer

    Dim i As Integer        ' Counter variable

    ' Cycle through the document array.

    ' Return true if there is at least one open document.

    For i = 1 To UBound(Document)

        If Not FState(i).Deleted Then

            AnyPadsLeft = True

            Exit Function

        End If

    Next

End Function

Select BUYERID, max(PRICE) 

  from ANTIQUES 

  group by BUYERID 

  having PRICE 1000; 

Select BUYERID 

  from ANTIQUES 

  where PRICE > (Select avg(PRICE) + 100 from ANTIQUES);

alter table ANTIQUES 

  add (PRICE DECIMAL(8,2) Null); 

insert into ANTIQUES (BUYERID, SELLERID, ITEM) 

  values (01, 21, 'Ottoman'); 

delete from ANTIQUES 

  where ITEM = 'Ottoman' 

  And BUYERID = 01 

  And SELLERID = 21; 

update ANTIQUES 

  Set PRICE = 500.00 

  where ITEM = 'Chair'; 

create index OID_IDX On ANTIQUEOWNERS (OWNERID); 

drop index OID_IDX;