名前
題名
▼ snailさん > VB6アプリをDelphiにコンバートしています。 > 開発環境は XE7 です。 > アプリは完成したのですが動作速度が遅くて困っています。 > 問題箇所は単純に TComboBox にデータを追加するところです。 > > 問題を単純にするためにテストプログラムを作成しました。 > > =========== ↓Delphi テストプログラム =========== > procedure TForm9.SpeedButton3Click(Sender: TObject); > const > CnsMax = 5000; > var > WIdx: Integer; > WStr : String; > WStringList : TStringList; > begin > ComboBox1.Items.Clear; > TimeDisp( 'Start Combo' ); > for WIdx := 1 to CnsMax do > begin > WStr := IntToStr( WIdx ); > WStr := WStr + ' , ' + 'aaa' > + WStr + ' , ' + 'BBB'; > ComboBox1.Items.Add( WStr );; > end; > TimeDisp( 'End Combo' ); > end; > > procedure TForm9.TimeDisp( ArgS : String ); > begin > Memo1.Lines.Add( ArgS + Formatdatetime ( 'hh:nn:ss', Now ) ); > Application.ProcessMessages; > end; > > =========== ↑Delphi テストプログラム ↑=========== > 実行結果 > >Start Combo15:20:42 > >End Combo15:21:09 > 約27秒かかっています。 > VBで実行すると１秒もかかりません。 > 何かヒントを下さい。 > > よろしくお願いします。 > なおここは、 > 「そんなつまらない質問をするところではありません。」 > といったお返事でも結構です。ＨＥＬＰ！ >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link