TZblok

unit Singleton;

interface

type
  TSingleton = class sealed
  strict private
    class var FInstance: TSingleton;
  public
    // Global point of access to the unique instance
    class function Create: TSingleton;
    destructor Destroy; override;
  end;

implementation

{ TSingleton }

class function TSingleton.Create: TSingleton;
begin
  if FInstance = nil then
    FInstance := inherited Create as Self;
  Result := FInstance;
end;

destructor TSingleton.Destroy;
begin
  FInstance := nil;
  inherited;
end;

end.

Štítky: Delphi, Delphi programming, design patterns

/// This is example of duck typing in Delphi.
/// Based on: http://en.wikipedia.org/wiki/Duck_typing

program DuckTyping;

{$APPTYPE CONSOLE}

uses ObjComAuto;

{$METHODINFO ON} // important

type
  TDuck = class
  public
    procedure Quack;
    procedure Feathers;
  end;

  TPerson = class
  public
    procedure Quack;
    procedure Feathers;
  end;

procedure TDuck.Quack;
begin
  Writeln('Quaaaaaack!');
end;

procedure TDuck.Feathers;
begin
  Writeln('The duck has white and gray feathers.');
end;

procedure TPerson.Quack;
begin
  Writeln('The person imitates a duck.');
end;

procedure TPerson.Feathers;
begin
  Writeln('The person takes a feather from the ground and shows it.');
end;

procedure InTheForest(V: Variant);
begin
  V.Quack;
  V.Feathers;
end;

procedure Game;
var
  Duck, Person: Variant; // or IDispatch
begin
  Duck := TObjectDispatch.Create(TDuck.Create, True) as IDispatch;
  Person := TObjectDispatch.Create(TPerson.Create, True) as IDispatch;

  InTheForest(Duck);

  InTheForest(Person);
end;

begin
  Game;
end.

Štítky: Delphi, Delphi programming

Klávesové zkratky dokáží ušetřit hodně času. Proto není od věci si je čas od času zopakovat:

Ctrl+J - vyvolá Šablony kódu (Code Templates)

Ctrl+T - smaže slovo vpravo od kurzoru

Ctrl+E - zahájí inkrementální vyhledávání v aktuálním dokumentu od kurzoru

Ctrl+Y - smaže aktuální řádek

Ctrl+Shift+G - vloží nově vygenerovaný GUID na místo kurzoru

Ctrl+Shift+I - odsadí vpravo (Indent) označený blok textu

Ctrl+Shift+U - přisadí (Unindent / Outdent) označený blok textu

Ctrl+Shift+Y - smaže text od kurzoru do konce řádky

Ctrl+Shift+J - vyvolá SyncEdit (přiznám se: ač vyvíjím v Delphi dennodenně 11 let, nevím co to je?)

Alt+[ - skočí na počáteční závorku

Alt+] - skočí na ukončovací závorku

Alt+⇒ - vpřed v historii hotlinků (Hotlink history)

Alt+⇐ - zpět v historii hotlinků (Hotlink history)

Alt+⇑ - najdi deklaraci symbolu, na kterém stojí kurzor (vloží hotlink do historie hotlinků)

F4 - spustí program a zastaví na řádce, kde se nachází kurzor (jakýsi dočasný breakpoint)

F5 - zapne / vypne breakpoint na aktuální řádce

F7 - krok "dovnitř" v debuggeru (Debugger step into)

F8 - krok "přes" v debuggeru (Debugger step over)

Ctrl+F9 - zkompiluje projekt

Shift+F9 - zbuilduje projekt

F9 - spustí program se zapnutým debuggerem

Ctrl+Shift+F9 - spustí program bez debuggeru

Ctrl+F12 - zobrazí seznam unit zařazených v projektu (tedy ne všech unit, které se linkují)

Alt+G - zeptá se na číslo řádku, na který má jít

Ctrl+Shift+R - zahájí / ukončí nahrávání makra

Ctrl+Shift+P - přehraje makro

Ctrl+SPACE - vyvolá Dokončování kódu (Code Completion)

Ctrl+Shift+SPACE - vyvolá Nápovědu k parametrům (Code Parameter Hints)

Ctrl+Enter - otevře soubor, na jehož jméně se právě nachází kurzor

Ctrl+Shift+C - vyvolá Dokončování třídy (Class Completion) pro třídu, ve které právě stojí kurzor

Ctrl+Shift+⇑ - přeskakuje mezi deklarací a implementací metody

Ctrl+Shift+⇓ - přeskakuje mezi deklarací a implementací metody

Ctrl+Alt+⇑ - přeskakuje mezi implementacemi jednotlivých metod třídy směrem nahoru

Ctrl+Alt+⇓ - přeskakuje mezi implementacemi jednotlivých metod třídy směrem dolů

Ctrl+Alt+Home - skočí na implementaci první metody v unitě

Ctrl+Alt+End - skočí na implementaci poslední metody v unitě

Ctrl+/ - přepíná zakomentování / odkomentování aktuální řádky nebo označeného textu

Štítky: Delphi, Delphi programming

Firma Embarcadero dnes oznámila, že Delphi 2009 a C++Builder jsou hotové.

Štítky: C++Builder, CodeGear, Delphi, Delphi programming

Společnost CodeGear zveřejnila dotazník ohledně budoucnosti vývojového nástroje Delphi.

Dotazník je celkem rozsáhlý a detailní, otázek je celkem 95 ve 14 sekcích. Dotazník je anonymní, nechtějí po vás žádné identifikační údaje. Dokonce ho lze odeslat jen částečně vyplněný, jak jsem si bohužel omylem ověřil.

The 2008 Delphi Survey

Prý se tím budou v CodeGearu řídit ;).

Štítky: Borland, CodeGear, Delphi, Delphi programming

Společnost CodeGear (dříve Borland) vyvíjející vývojový nástroj Delphi, zveřejnila roadmap (cestovní mapu) budoucích verzí svých vývojových nástrojů:

Delphi and C++Builder Roadmap

Mimo jiné mě tam nejvíce zaujala nativní podpora Unicode. Konečně, chtělo by se zvolat! A zároveň se ptát: proč tak pozdě?

Tato verze Delphi ještě nemá jméno, pod kterým se bude prodávat (že by Delphi 2008?). Zatím se používá kódové jméno Tiburón. Bude prý k dispozici někdy v první polovině roku 2008.

Štítky: Delphi, Delphi programming

• Delphi
• C++Builder
• C#Builder
• JBuilder
• InterBase
• Turbo produkty

CodeGear by se měla 100% věnovat vývojovým nástrojům (IDE) a nedělat nic jiného.

Štítky: Borland, C#Builder, C++Builder, CodeGear, Delphi, Delphi programming, Internet