From 0756bf12d10cf1b7f78c571de0a9ad69cbaeb7ca Mon Sep 17 00:00:00 2001 From: curtis <curtis@i-mps.com> Date: 星期一, 30 三月 2026 14:24:17 +0800 Subject: [PATCH] fix: 更新內部引用方法參照 --- scripts/dist/OldCaseInfo.pas.io.csv | 18 ++++++++++++++++++ 1 files changed, 18 insertions(+), 0 deletions(-) diff --git a/scripts/dist/OldCaseInfo.pas.io.csv b/scripts/dist/OldCaseInfo.pas.io.csv new file mode 100644 index 0000000..027731f --- /dev/null +++ b/scripts/dist/OldCaseInfo.pas.io.csv @@ -0,0 +1,18 @@ +[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段 +[V],"TOldCaseInfoForm.Down_Img","OldCaseInfo.pas","131","FileExists","","if FileExists(Path+CaseID+'.zip') then" +[V],"TOldCaseInfoForm.LoadImg","OldCaseInfo.pas","185","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat') then" +[V],"TOldCaseInfoForm.LoadImg","OldCaseInfo.pas","186","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat');" +[V],"TOldCaseInfoForm.DocNo2DocName","OldCaseInfo.pas","233","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat') then" +[V],"TOldCaseInfoForm.DocNo2DocName","OldCaseInfo.pas","234","LoadFromFile","","DocNo_DocNameList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',TEnCoding.UTF8);" +[V],"TOldCaseInfoForm.Docdir2Pages","OldCaseInfo.pas","261","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then" +[V],"TOldCaseInfoForm.Docdir2Pages","OldCaseInfo.pas","262","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');" +[V],"TOldCaseInfoForm.ShowImage","OldCaseInfo.pas","317","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then" +[V],"TOldCaseInfoForm.ShowImage","OldCaseInfo.pas","318","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');" +[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","382","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat',Tencoding.UTF8);" +[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","400","RenameFile","","RenameFile(iPath+OldFile,iPath+NewFile);" +[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","401","SaveToFile","","FileList.SaveToFile(iPath+'Context.dat',Tencoding.UTF8);" +[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","412","MoveFile","","//MoveFile(PWideChar(iPath),PWideChar(iiPath));" +[V],"TOldCaseInfoForm.ISBClick","OldCaseInfo.pas","595","LoadFromFile","","ISB1.LoadFromFile(SelectISB.FileName,1);" +[V],"TOldCaseInfoForm.LoadBtClick","OldCaseInfo.pas","812","FileExists","","if not FileExists(imageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then" +[V],"TOldCaseInfoForm.LoadBtClick","OldCaseInfo.pas","814","DirectoryExists","","if DirectoryExists(ImageSavePath+CaseID+'\'+UseCaseID) then" +[V],"TOldCaseInfoForm.LoadBtClick","OldCaseInfo.pas","815","_DelTree","","_Deltree(ImageSavePath+CaseID+'\'+UseCaseID);" \ No newline at end of file -- Gitblit v1.8.0