Array of constに変数を渡すには (ID:26987)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

米田 昌司殿作成の、"統合アーカイバコンポーネント"を使用してファイルを
解凍しようとしていますが"UnpackFiles"の"FileList"に配列変数が渡せません

直接書き込めば問題なく動くのですが、ユーザーが選択した任意のファイルのみ
解凍したいのです。

"array of const"に配列変数を渡すにはどうしたら良いのでしょうか？
ご教授願います。

function UnpackFiles(Handle:HWND;Options:TArchiverOptions;DstPath:String;FileList:array of const ):Integer;

unit melt_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ARCHIVES, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  arc:TArchiveFile;
  MeltStr:array[0..1] of string;
begin
   arc:= tArchiveFile.Create(form1);  //統合アーカイバコンポの実体を作成
   arc.FileName:=Edit1.Text;   //圧縮ファイルを指定
   arc.Options.x := 1;         // ディレクトリ情報を再現して解凍
   arc.Options.n := 1;         // 経過表示のダイアログを出しません。
   arc.OutputSize := 8192;     // 出力バッファサイズを指定

MeltStr[0]:='01_*.txt';
   MeltStr[1]:='02_*.txt';

//↓こんな感じにしたい
   arc.UnpackFiles(form1.handle,nil,'D:\temp',MeltStr);
   arc.UnpackFiles(form1.handle,nil,'D:\temp',['01_*.txt','02_*.txt']);
   //↑これは通る

arc.Free;                   //統合アーカイバコンポの実体を消去
end;
end.

←解決時は質問者本人がここをチェックしてください。

戻る