ConboＢoxからファイルを開くには？

あい 2006-01-27 01:08:57 No: 19838

ConboBoxの中から選んだ項目のファイルを開くにはどうすればいいのでしょうか？

倒壊 2006-01-27 02:03:03 No: 19839

最終的に何をしたいのか良くわからないので・・・、
こんなもんでどうでしょうか？

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  F: TextFile;
  S: String;
  L1, L2, L3, L4: String;
begin
  S := ComboBox1.Items[ComboBox1.ItemIndex];
  AssignFile( F, ExtractFileDir(ParamStr(0)) + '\' + S );

  {$I-}
    Reset(F);
  {$I+}
    case IOResult of
      NO_ERROR:
      begin
        Readln(F, L1);
        Readln(F, L2);
        Readln(F, L3);
        Readln(F, L4);
      end;
      ERROR_FILE_NOT_FOUND:
      begin
        L1 := 'E01';
        L2 := 'E02';
        L3 := 'E03';
        L4 := 'E04';
      end;
      else
      begin
        L1 := 'E11';
        L2 := 'E12';
        L3 := 'E13';
        L4 := 'E14';
      end;
    end;

closeFile( F );

  Label1.Caption := L1;
  Label2.Caption := L2;
  Label3.Caption := L3;
  Label4.Caption := L4;

end;