//OpenDialogで複数選択したファイルをListBoxに追加する


procedure Tform1.Button1Click(Sender: TObject);
var
   i,j:integer;
   flag:boolean;
   currFile:string;
begin
   OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect];
   If OpenDialog1.Execute then
   begin
      for i:=0 to OpenDialog1.Files.Count-1 do
      begin//重複をさせないように
         currFile:=AnsiUpperCase(OpenDialog1.Files[i]);
         flag:=True;
         for j:=0 to ListBox1.items.Count-1 do
         begin                  
            if ansiUpperCase(ListBox1.items[j])=currFile 
                   then flag:=false;
         end;
         if flag then ListBox1.Items.add(OpenDialog1.Files[i]);
      end;
   end;
end;
☆☆☆　　かわいいコードにゃ旅をさせよう　いざサンプル蔵へ!!　☆☆☆
                                 97/10/26(日) 14:02 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。