掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListBox に表示できません (ID：32806)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
確認のため以下のようにDispTermを修正して動かしてみました。 ListBoxには最初の行が表示されません。 確認のためRefText4のデータを2行づつ表示させるようにしたのですが、 それでも、最初のデータは1行のみです。 どこか間違っているのでしょうか？ もちろん、エラーは出ずに動いています。 //************************************ procedure TForm1.ButCodeSearchClick(Sender: TObject); begin // Form2 のインスタンスが存在するかどうか if not Assigned(Form2) then begin Form2 := TForm2.Create(Application); end; StatusBar1.Panels.Items[1].Text := ''; Form2.Show; // モードレスで表示 Form2.StatusBar1.Panels.Items[0].Text := '検索中です'; ListBox1.Clear; DispTerm(Edit2.Text); Form2.ListBox1.Items.Assign(OutPutText3); Form2.ListBox1.Items.Add('ZZZ'); // OutPutText3.Free; end; procedure TForm1.DispTerm(term_code: String); var i:Integer; term:String; begin for i := 0 to RefText4.Count - 1 do begin term := RefText4.Strings[i];//デバッグ表示用 OutPutText3.Add(RefText4.Strings[i]); OutPutText3.Add(RefText4.Strings[i]);//2行表示 end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.