source: branches/Pascal Compiler 2/Example.pas

program Text;

{$A+}

type
  TItem = class


    property Text: string read dd write ss index 
0;
  end;

procedure TForm1.FormClose(Sender: TObject; var 
Action: 
TCloseAction);
var
  StringList: TStringList;
  Texts: string;
begin

  with TStringList.Create do try
    Assign(RichEdit1.Lines);
    SaveToFile('Example.pas');

    // dasdComment  
    
    //Here we are
    ddd
{dfsf}
fdfs
asm
end;

    { Comment 2 }
    dddd

    
    (* Ahoj 

    dd
    *)
        
    F := $11;
  finally
    Free;
  end;
end;

asm 
  MOV  AX, BX
  RET 
end;

{$A+}





end.