掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ConboＢoxからファイルを開くには？ (ID：19839)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
最終的に何をしたいのか良くわからないので・・・、 こんなもんでどうでしょうか？ 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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.