function TFmainForm.GetUniqueUnitName:string; // var I,Count:Integer; begin Result:='Unit1.pas'; Count:=1; if ProjectInfo.UnitItems.Count<1 then Exit; for I:=0 to ProjectInfo.UnitItems.Count-1 do begin if Pos('Unit',ProjectInfo.UnitItems[I])>0 then Inc(Count); end; Result:='Unit'+IntToStr(Count)+'.pas'; end;
function TFmainForm.GetUniqueFormName:string; var I,Count:Integer; begin