Архив за июня, 2008

Jun16

Ресурсы в проекте

Я всегда думал, что для того, чтобы подключить ресурсы (текст, картинки и т.д.) к проекту, надо их скомпилить (brcc32.exe) и подключить ({$R}). А вот сегодня один хороший человек (Alexeis, спасибо), подсказал, что это совсем не обязательно. Надо просто подключить к проекту (Add to Project) .rc файл, а скомпилиться и прилинкуется он сам. Проверил в D7, D2006. Вот так вот...

Jun14

ShortCuts vs VirtualTreeView Editors

Что-то не видно желающих написать пост про VirtualTreeView для конкурса. Жаль...

Ну тогда я сам попробую ;). Тем более, что нашелся подходящий повод.

Читать далее »

Jun11

Приведение типов

Мне всегда казалось, что TType(Var) и Var as TType работает одинаково или, в крайнем случае, очень похоже. Так было до не давнего времени.

Вместе со знакомым выясняли одну багу (так и не выяснили причину, кстати):

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TA = class
    function GetResult: Integer; //virtual;
  end;

  TB = class(TA)
    function GetResult: Integer; //override;
  end;

{ TA }

function TA.GetResult: Integer;
begin
  Result := 10;
end;

{ TB }

function TB.GetResult: Integer;
begin
  Result := 20;
end;

var
  B: TB;

begin
  B := TB.Create;
  WriteLn(IntToStr(TA(B).GetResult));
  WriteLn(IntToStr((B as TA).GetResult));

  ReadLn;
end.

Как по-вашему, что будет выведено, в результате данного кода? Если вы считаете, что будет выведено два раза '10', то вы не угадали. Будет выведено '10' и '20'.

Читать далее »

Jun03

Конкурс

В последнее время, очень много вопросов возникает по поводу VirtualTreeView. В основном, вопросы приходят от тех, кто только начинает использовать данный компонент. Учитывая, что я знаю только одну толковую статью на русском по VirtualTreeView, пришло в голову организовать небольшой конкурс.

Читать далее »

школа иностранного языка Благовещенск запчасти маз.
-->