aus China

Just found a wonderful and deep look into generics, anonymous routines and routine references here . Written by Sébastien Doeraene.

Generics were introduced in Delphi 2009, and I'm a big fan of them, as they help me do less type casting on TObjectList's items for example.

Want to know how sorting a TObjectList<TWhatever> works? Here's how it works:

type
  TDBObject = class
    Name: String;
  end;
  TDBObjectList = TObjectList<TDBObject>;
  TDBObjectComparer = class(TComparer<TDBObject>)
    function Compare(const Left, Right: TDBObject): Integer; override;
  end;

procedure TMainform.btnOkClick(Sender: TObject);
var
  o: TDBObject;
begin
  Result := TDBObjectList.Create(TDBObjectComparer.Create);
  o := TDBObject.Create;
  o.Name := 'foo';
  Result.Add(o);
  o := TDBObject.Create;
  o.Name := 'bar';
  Result.Add(o);
end;

function TDBObjectComparer.Compare(const Left, Right: TDBObject): Integer;
begin
  Result := CompareText(Left.Name, Right.Name);
end;

In the beginning was the word.
And the word was content-type: text/plain

Found somewhere as a forum signature.

Teig:

• 250g Butter
• 250g Zucker
• 5 Eier
• 1 Päckchen Vanillezucker
• 350g Mehl
• 1 Päckchen Backpulver
• 1kg Äpfel

Äpfel schälen und in kleine Stücke schneiden. Die Butter schaumig rühren. Eier, Zucker und Vanillezucker dazugeben und gut verrühren. Dann Mehl mit Backpulver unterrühren. Die Apfelstücke unter den Teig heben.

Die Mischung auf ein eingefettetes Backblech oder auf Backpapier streichen und bei 200 bis 220° Celsius 30 Minuten lang backen.

Puderzucker mit Zitronensaft glatt rühren und auf den heissen Kuchen verteilen. Zitronensaft kann auch weggelassen werden, aber der Puderzucker sollte schon drüber.