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

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

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

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

unitVCSNtfy;

interface

usesSysUtils, Dialogs, Controls, ToolIntf, EditIntf;

type

TIVCSNotifier = class(TIAddInNotifier)

public

procedureFileNotification(NotifyCode: TFileNotification; constFileName: string; varCancel: Boolean); override;

end;

TIVCSEditorInterface = class(TIEditorInterface)

public

procedureInsertHeader;

end;

var

VCSNotifier : TIVCSNotifier;

VCSModuleInterface : TIModuleInterface;

VCSEditorInterface : TIVCSEditorInterface;

implementation

usesFITIntf, FITStr, Classes;

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

procedure TIVCSNotifier.FileNotification(NotifyCode: TFileNotification; constFileName: string; varCancel : Boolean);

varTmpFileName : string;

begin

caseNotifyCode of

fnRemovedFromProject:

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

fnAddedToProject:

begin

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

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

VCSModuleInterface := ToolServices.GetModuleInterface(FileName);

ifVCSModuleInterface <> nil then begin

VCSEditorInterface := TIVCSEditorInterface(VCSModuleInterface.GetEditorInterface);

VCSEditorInterface.InsertHeader;

VCSEditorInterface.Free;

end;

VCSModuleInterface.Free;

end;

TmpFileName := LowerCase(ExtractFileName(FileName));

ifVCSProject.RecycleExists(TmpFileName) then begin

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

VCSProject.Recycle(TmpFileName);

end;

end;

end;

end;

end;

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

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

procedureTIVCSEditorInterface.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);

ifAPos > 0 then begin

try

InsertText := '';

AssignFile(F, VCSConfig.HeaderFileLocation);

Reset(F);

while notEOF(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 OnE : EStreamError do

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

end;

end;

end;

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

end.

– Jim Poe

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

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

Решение:

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

[HKEY_CURRENT_CONFIG\Display\Settings]

"BusThrottle"="on"

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

[Display] "BusThrottle"="On"

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

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

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

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

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

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

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

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