KnigaRead.com/
KnigaRead.com » Компьютеры и Интернет » Программирование » Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

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

На нашем сайте KnigaRead.com Вы можете абсолютно бесплатно читать книгу онлайн Валентин Озеров, "Советы по Delphi. Версия 1.4.3 от 1.1.2001" бесплатно, без регистрации.
Перейти на страницу:

Пока ..

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_CONFIGDisplaySettings]

"BusThrottle"="on"

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

[Display] "BusThrottle"="On"

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

Ошибка 1157 cmplib32.dll

Delphi 2 

Cannot open c:delphi 2.0bincmplib32.dll Error code 1157 (Не могу открыть c:delphi 2.0bincmplib32.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_USERSoftwareBorlandDelphi2.0Debugging. Создайте по этому пути строковый ключ с именем «ENABLECPU». Значение нового ключа должно быть строкой «1». Это все. Теперь в Delphi IDE появился новый пункт меню View|CPUWindow. При его активизации выводится новое окно.

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

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

Перейти на страницу:
Прокомментировать
Подтвердите что вы не робот:*