Советы по Delphi. Версия 1.4.3 от 1.1.2001

В самой процедуре 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