Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

• Название: Советы по Delphi. Версия 1.4.3 от 1.1.2001
• Автор: Валентин Озеров
• Жанр: Программирование

…начиная с 1001. Смотрите другие файлы…

---

Пока ..

Igor Nikolaev aKa The Sprite

[[email protected]] 

IDE

Копирование проекта в новый каталог

…я скопировал все файлы (и программу, и базу данных) демонстрационного приложения в новый каталог, чтобы поэкспериментировать с программой, не трогая оригинал…

Самый простой путь сделать это:

1. «Save Project As» (сохранить проект как) в ваш новый каталог.

2. Для каждого PAS-файла проекта сделайте операцию «Save As» (сохранить как)

3. Запустите View/ProjectManager для проверки отсутствия ссылок на старый каталог

Если вы уже скопировали PAS-файлы в новый каталог, то в качестве альтернативы к п.(2) могу предложить воспользоваться кнопками плюс/минус в Менеджере Проекта (Project Manager), это поможет вам удалить старое и добавить файлы из нового каталога.

– Mike Orriss

Использование Tools Interface

Delphi 2

…я все еще ищу *крутой* способ отрисовки содержимого окна редактирования IDE, и уже добрался до списка дескрипторов окон. Я так понял, что для этого нужно использовать инструментальный интерфейс (Tools Interface), только c помощью него, да? Ну и как этим чудом воспользоваться?

Приведенный ниже код может использоваться для включения заголовка исходного кода, представляющего собой шапку с информацией об авторских правах, авторе, версии и пр. при добавлении нового модуля или формы к вашему проекту. TIAddInNotifier - класс, реализованный в ToolIntf и позволяющий "захватывать" такие события, как открытие файлов, их закрытие, открытие и закрытие проекта и др. Я перекрыл процедуру FileNotification для захвата событий AddedToProject и RemovedFromProject. В обработчике события AddedToProject вы можете получить доступ к новому модулю проекта, особенно это касается процедуры InsertHeader. Я создал наследника класса TIEditorInterface, расположенного в файле EditIntf.pas, и создал собственную процедуру InsertHeader.

VCSNotifier создается в другом модуле и здесь не показан. Приведенный ниже код является частью моей программы, осуществляющей контроль версий dll. При создании код "живет" до тех пор, пока работает Delphi. При получении кода AddedToProject, я проверяю наличие файла (должен быть новым), и что он является .pas-файлом. Затем я создаю VCSEditorInterface, мой унаследованный интерфейс, и использую мою процедуру InsertHeader.

В самой процедуре InsertHeader я создаю экземпляр TIEditReader для чтения нового модуля и TIEditWriter для его изменения.

unit VCSNtfy;

interface

uses SysUtils, Dialogs, Controls, ToolIntf, EditIntf;

type

TIVCSNotifier = class(TIAddInNotifier)

 public

  procedure FileNotification(NotifyCode: TFileNotification; const FileName: string; var Cancel: Boolean); override;

 end;

 TIVCSEditorInterface = class(TIEditorInterface)

 public

  procedure InsertHeader;

 end;

var

 VCSNotifier : TIVCSNotifier;

 VCSModuleInterface : TIModuleInterface;

 VCSEditorInterface : TIVCSEditorInterface;

implementation

uses FITIntf, FITStr, Classes;

{ *************************   Начало VCSNotifier  **************************** }

procedure  TIVCSNotifier.FileNotification(NotifyCode: TFileNotification; const FileName: string; var Cancel : Boolean);

var TmpFileName : string;

begin

 case NotifyCode of

 fnRemovedFromProject:

  VCSProject.Remove(LowerCase(ExtractFileName(FileName)));

 fnAddedToProject:

  begin

   if (not FileExists(FileName)) and (ExtractFileExt(FileName) = '.pas') then begin

    { новый файл с исходным кодом }

    VCSModuleInterface := ToolServices.GetModuleInterface(FileName);

    if VCSModuleInterface <> nil then begin

     VCSEditorInterface := TIVCSEditorInterface(VCSModuleInterface.GetEditorInterface);

     VCSEditorInterface.InsertHeader;

     VCSEditorInterface.Free;

    end;

    VCSModuleInterface.Free;

   end;

   TmpFileName := LowerCase(ExtractFileName(FileName));

   if VCSProject.RecycleExists(TmpFileName) then begin

    if MessageDlg('Вы хотите извлечь текущие ' + ' записи из таблицы Recycle' + #13 + #10 + '           ' + VCSProject.ProjectName + '/' + TmpFileName + '?', mtConfirmation,[mbYes,mbNo], 0 ) = mrYes then begin

      VCSProject.Recycle(TmpFileName);

     end;

    end;

  end;

 end;

end;

{ *************************    Конец TIVCSNotifier   *************************** }

{ *********************   Начало TIVCSEditorInterface  ************************ }

procedure TIVCSEditorInterface.InsertHeader;

var

 Module, TmpFileName, UnitName, InsertText, Tmp : string;

 Reader : TIEditReader;

 Writer : TIEditWriter;

 APos : Integer;

 F : TextFile;

begin

 TmpFileName := ExtractFileName(FileName);

 UnitName := SwapStr(TmpFileName, '.pas', '');

 SetLength(Module, 255);

 Reader := CreateReader;

 try

  Reader.GetText(0, PChar(Module), Length(Module));

 finally

  Reader.Free;

 end;

 APos := Pos('unit ' + UnitName, Module);

 if APos > 0 then begin

  try

   InsertText := '';

   AssignFile(F, VCSConfig.HeaderFileLocation);

   Reset(F);

   while not EOF(F) do begin

    Readln(F, Tmp);

    InsertText := InsertText + #13 + #10 + Tmp;

   end;

   CloseFile(F);

   InsertText := InsertText + #13 + #10;

   Writer := CreateWriter;

   try

    Writer.CopyTo(APos - 1);

    Writer.Insert(PChar(InsertText));

   finally

    Writer.Free;

   end;

  except On E : EStreamError  do

   MessageDlg('Не могу создать шапку', mtInformation, [mbOK], 0);

  end;

 end;

end;

{ *********************   Конец TIVCSModuleInterface  ************************** }

end.

– Jim Poe 

Зависание Delphi 4(5)

Сергей Сахаров советует:

Delphi 4(5) виснут при запуске. Видеокарта S3 Virge.

Решение:

Добавьте в реестр строку:

[HKEY_CURRENT_CONFIG\Display\Settings]

"BusThrottle"="on"

Если не помогает, то попробуйте добавить в system.ini:

[Display] "BusThrottle"="On"

Эта проблема устранена в Delphi 4sp3. 

Ошибка 1157 cmplib32.dll

Delphi 2 

Cannot open c:\delphi 2.0\bin\cmplib32.dll Error code 1157 (Не могу открыть c:\delphi 2.0\bin\cmplib32.dll, код ошибки 1157).

Что за ошибка такая с кодом 1157? Я пробовал удалить все DCU-файлы и переустановить PAS– и DFM-файлы, но ошибка не исчезла. Как это исправить?

Убедитесь в том, что все требуемые DLL находятся в search-пути.

– Mike Orriss 

2% ресурсов, в режиме редактирования

Delphi 1 

Если у вас открыты все формы (показаны или минимизированы), а в редакторе кода открыты все модули, ресурсы очень быстро исчерпываются. Попробуйте закрыть все формы и модули, и открыть только те, которыми вы будете пользоваться. В противном случае при компиляции вы можете завесить Delphi и саму машину. 

Активизация и использование в IDE окна CPU

Delphi 2 

Предупреждение: Окно CPU еще до конца не оттестировано и может иногда приводить к ошибкам. Если у вас есть проблемы с отладчиком, или при запуске вашей программы вы не можете им воспользоваться, окно CPU может помочь решить ваши проблемы. Обычно его не требуется включать, если только у вас не «особый случай».

В Delphi 2 эта характеристика встроена, но по умолчанию выключена, называется это окно CPU window, или DisassemblyView. Она легка в использовании, может быть полезной в отладке и сравнении кода при его оптимизации.

Для активизации этой характеристики, запустите REGEDIT и отредактируйте регистры описанным ниже образом. Найдите ключ HKEY_CURRENT_USER\Software\Borland\Delphi\2.0\Debugging. Создайте по этому пути строковый ключ с именем «ENABLECPU». Значение нового ключа должно быть строкой «1». Это все. Теперь в Delphi IDE появился новый пункт меню View|CPUWindow. При его активизации выводится новое окно.

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

Создайте 2 одинаковых обработчика события. В каждом обработчике события разместите приведенный ниже код. Установите точку прерывания на первой строчке каждого обработчика. Запустите приложение и активизируйте события. Сравните ассемблерный код обоих методов. Один короче? В этом случае он будет исполняться быстрее.