Навигация:  Основные рабочие процедуры > Форматирование текста и стили > Форматирование исходного кода >

Примеры

Печать этого раздела Предыдущая страницаНа главную страницуСледующая страница

Код Pascal:

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

 

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

 

C++ код:

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

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 код:

'******** 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

SQL код:

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;