Delphi Peak

iste ilk tiborun uygulamamiz karsinizda
bilesen isimlerinden metod isimlerine kadar herşey artık unicode…
Artik butonlara ya da diger nesnelere isim verirken tirsmadan ı,ü,ğ,ş,ç,ö gibi karakterleri kullanabilirsiniz. Biraz fantezik bir kisiyseniz 尔福 gibi harfleri de kullanabilirsiniz Tabi biz yine geriye uyumluluk ve free pascal gibi diger pascal derleyicilerle herhangi bir sorun yasamamaniz icin string ifadeler haricinde cok gerekli olmadigi surece ingilizce karakterleri kullanmanizi tavsiye ediyoruz

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, CategoryButtons, ScreenTips, RibbonActnCtrls,
  ToolWin, ActnMan, ActnCtrls, Ribbon,shellapi;

type
  TForm1 = class(TForm)
    TürkçeDüğme: TButton; // turkce karakterleri artik
                                    //  bilesen isimlerinde de kullanabilirsiniz.
    Memo1: TMemo;
    delphipeak: TButton;
    procedure TürkçeDüğmeClick(Sender: TObject);
    procedure delphipeakClick(Sender: TObject);
  private
    { Private declarations }
  public
  procedure  德尔福高峰();  // hatta prosedur ve fonksiyonlara
                                    // cince isim bile verebilirsiniz.
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.德尔福高峰;
begin
  //德尔福高峰 -->delphipeak
  ShellExecute(0,'open','http://tr.delphipeak.com',nil,nil,0);
end;

procedure TForm1.delphipeakClick(Sender: TObject);
begin
 德尔福高峰;
end;

procedure TForm1.TürkçeDüğmeClick(Sender: TObject);
begin
  memo1.Lines.Clear;
  memo1.Lines.Add('دلفي (arapca delphi)');
  memo1.Lines.Add('德尔福 (cince delphi)');
  memo1.Lines.Add('Δελφοί (yunanca delphi)');
  memo1.Lines.Add('डेल्फी (hinduca delphi)');
  memo1.Lines.Add('デルファイ (japonca delphi)');
  memo1.Lines.Add('Делфи (rusca delphi)');
end;

end.