現在、(Delphi ではなく) DelphiScript を使用する Altium Designer でピン リスト - ピン名を抽出しています。DelphiScript と Delphi には違いがあり、そのうちの 1 つがファイル I/O コンポーネントだと思います。Altium Docs for DelphiScript によると、テキスト ファイルと csv ファイルのみを生成できます。出力ファイル .csv を作成する場合、カンマで区切られたテキストをスローして、拡張子 '.csv' を付けて保存するだけで簡単に保存できます。私の問題は、eDocEngine VCL、LibXL、TQExport4Xlsx などのプラグイン/拡張機能をインポートおよび/またはダウンロードせずに .xls ファイルを作成する方法です。TBook、TSheet、TgtXLSEngine、またはスプレッドシートを作成する他の方法を宣言しようとしましたが、宣言されていない識別子であるというエラーが表示されます。皆さん、何か考えはありますか?
レポート ライターのコード スニペット:
Procedure BeginReportPinList(AFilename: String);
Begin
gv_FileName := AFilename + '.csv';
AssignFile(gv_FileReport, gv_FileName);
Rewrite(gv_FileReport);
End;
Procedure WriteReportDUT(AReport : String);
Begin
WriteLn(gv_FileReport, Format('%s', [AReport]));
End;
Procedure EndReport(Dummy : Boolean);
Begin
CloseFile(gv_FileReport);
End;
上記のプロシージャを呼び出す文字列パーサーのコード スニペット:
if dutlistX.Count = 1 then
Begin
PinFilename := copy(gv_Board.FileName, 1, Pos('-05', gv_Board.FileName)-1) + '-14';
BeginReportPinList(PinFilename);
For I := 0 To finalreport.Count - 1 Do
Begin
WriteReportDUT(finalreport[I]);
End;
EndReport(0);
End;