Реферат: Семь чудес и два фокуса на Дельфи

v:=0;

b := true;

i := 2;

s := '3';

d := StrToDateTime('01/01/01');

x := 5;

v := v+b+i+s+d+x;

ShowMessage(VarToStr(v));

end;

Figure 15.

Не кажется ли вам, что чудо уже то, что этот код компилируется, а ведь он еще и выдает какой-то результат. А ведь все очень просто - "variant можно складывать с чем угодно" и снова получим - variant.

Однажды ко мне обратился один мой знакомый с вопросом нет ли в Delphi чего-то подобного скрытому параметру Self, но для оператора with. Нет - ответил я ему сперва, а потом задумался...

Фокус второй (With-trick)

Предположим у нас есть следующая функция:

procedure ShowText(sl: TStringList);

begin

ShowMessage(sl.text);

end;

Figure 16.

И кнопка на форме:

procedure TfrmAllMiracles.btnWithSelfTrickClick(Sender: TObject);

var

sl: TStringList;

begin

sl := TStringList.Create;

try

sl.CommaText := '1,2,3,4,5,6,7,8,9,0';

ShowText(sl);

finally