uses in sehr vielen pas-Dateien anpassen

[alzaimar]

Delphi-Quellcode:

Procedure AddToUsesClause (aCode : TStrings; aUnitName : String);
Var
  CodeStr : String;
  upcCodeStr : String;
  p,q : Integer;

Begin
  CodeStr := aCode.Text;
  upcCodeStr := Uppercase(CodeStr);
  p := Pos ('IMPLEMENTATION',upcCodeStr);
  if p=0 then exit;
  q := PosEx('USES',upcCodeStr,p);
  if q=0 then
    Insert(#13#10+' uses '+aUnitName+';'+#13#10,CodeStr, p + 14)
  else
    Insert(' '+aUnitName+',',CodeStr, q + 4);
  aCode.Text := CodeStr;
End;

Procedure AddUnitIfRefExists (aPasFileName : String; aUnitName, aRefName : String);
Var
  code : TStringlist;

Begin
  code := TStringlist.Create;
  code.LoadFromfile (aPasFileName);
  Try
    if Pos (Uppercase(aRefName), Uppercase (code.Text))<>0 then
      AddToUsesClause(code, aUnitName);
  Finally
    code.Free;
  End
End;
(*
 Aufruf
   AddUnitIfRefExists ('MyPasFile.Pas','NewUnit','SomeFunctionCall');
*)

Sollte funktionieren. Fügt die Uses-Klausel aber auch dann ein, wenn 'SomeFunctionCall' in auskommentiertem Code steht. Einen Parser zu schreiben war mir grad zu umständlich.