くだすれDelphi(超初心者用)その58【Embarcadero】

**デフォルトの名無しさん** · 2020/03/11(水) 18:30:39.03

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の救済をお願いします。

■Delphi 10.3
ttp://www.embarcadero.com/jp/products/delphi

■Delphi Community Edition (無料)
iOS、Android、Windows、macOS向けアプリも開発可能。年間売上5000 US＄以内の商用開発可。
https://www.embarcadero.com/jp/products/delphi/starter

＜前スレ＞
くだすれDelphi(超初心者用)その57
https://mevius.5ch.net/test/read.cgi/tech/1476332514/

**デフォルトの名無しさん** · 2021/01/06(水) 11:20:51.65

シーケンサーと信号のやり取りをするプログラムを作成中なんだけど、相手からの入力を監視する場合ってマルチタスクで監視するかアイドル時に監視するかどっちが負荷が少ないですか？

**デフォルトの名無しさん** · 2021/01/06(水) 11:54:00.61

>>397
マルチスレッドって言いたいとエスパー
スレッド分けて監視しないとメインスレッドがBusyの時信号が来たら取りこぼす

**デフォルトの名無しさん** · 2021/01/06(水) 13:13:15.14

マルチスレッド、その通りです。
ありがとうございます。

**デフォルトの名無しさん** · 2021/01/06(水) 18:47:01.99

負荷を計測する方法は知らないけどスレッド増やしまくったらファンがブォンブォン唸り始めるんだがこれは負荷が高いってことなんでないの？

**デフォルトの名無しさん** · 2021/01/06(水) 19:10:41.59

まず、マルチスレッドかどうかにかかわらずどうやってデータ監視してるの？

データが来なくても、頻繁に無限ループでチェックしたらそりゃマルチスレッドにしたとん、全開のCPUコアが増えるから死ぬだろ

**デフォルトの名無しさん** · 2021/01/06(水) 19:17:25.73

シーケンサがようわからんが、UIスレッド以外の監視スレッドは一つだけでいいんじゃ？

**デフォルトの名無しさん** · 2021/01/06(水) 19:25:44.95

アイドル時をどうやって判断してるのかとか色々疑問が残る吉宗であった

**デフォルトの名無しさん** · 2021/01/06(水) 21:10:21.72

>>398
メインスレッドがbusyにならない様に、スレッド化するんじゃ無いの？
WindowsのメインスレッドってUIの守備範囲だよ、UIが遅くなるソフトは糞ソフトの認識だが。

**デフォルトの名無しさん** · 2021/01/06(水) 21:11:11.60

CPUnの負荷を最小にするには割り込みしか無いよ。

**デフォルトの名無しさん** · 2021/01/06(水) 21:13:14.70

OnIdleとかそういうことじゃね？

**デフォルトの名無しさん** · 2021/01/06(水) 21:43:26.03

>>404
ん？
受信専用のスレッド側で監視してメインがBusyでも受信できるようにってそこまで詳しく説明しないと伝わらなかった？

**デフォルトの名無しさん** · 2021/01/06(水) 22:17:47.00

>>407
それが成立するのはPPLを使った場合だけで無いの？
同一コアでの実行ならメインがbusyなら子スレッドもbusyになり結果受信できなくなると思うが違う？

**デフォルトの名無しさん** · 2021/01/06(水) 22:49:58.18

同一コア?
実行環境が1コアでも、OSのスレッドで分けてればタイムスライスでメインがbusyでも、子スレッドはbusyじゃないが

エスパーして、子スレッドで受信したデータを子スレッドでTThread.synchoronizeしてUIスレッドに同期とってUIスレッドに渡したりしたらメインがbusyなら子スレッドも引きづられるけど
その場合はTThread.Queueでいいのかな
つか、受信したデータどうするのか知らんが..

**デフォルトの名無しさん** · 2021/01/06(水) 23:05:19.23

ごめん、1コアの話は忘れてくれw

同一コアって、OSのスレッドでわけてれば、OSがスレッドの実行をコアが複数あれば適切に振り分けるし、仮に同一コアになってもタイムスライスでメインがbusyでも子はbusyにならん

**デフォルトの名無しさん** · 2021/01/06(水) 23:07:23.62

>>408
は？

**デフォルトの名無しさん** · 2021/01/06(水) 23:11:46.48

>>410
1コアの話は忘れた。

>> OSがスレッドの実行をコアが複数あれば適切に振り分けるし、

PPL使えばね

>>仮に同一コアになってもタイムスライスでメインがbusyでも子はbusyにならん

メインCPUがbusyってCPU使用率が100%近いって事だよね、子スレッドはどのCPUで動いてるの？

もっとググって！

**デフォルトの名無しさん** · 2021/01/06(水) 23:22:00.30

>>412
いや、君は根本が間違ってる...

DelphiのPPLって内部でOSのスレッド使って実装してて、
スレッドやスレッドプールをもっと使いやすくしたものがライブラリがPPL

**デフォルトの名無しさん** · 2021/01/06(水) 23:24:18.56

>>412
問題です

WebBrokerアプリケーションを新規で作ります

デフォルトのHttp応答にDateTimeToStr(Now)を追加して時間が表示されるようにします

メインフォームにボタンを追加して
d := now;
while True do begin
if secondsBetween(now,d) > 10 then break;
end;
を実行するようにします

コンパイルし、Httpサーバーを起動します
デフォルトのブラウザを開くボタンを押します

追加したボタンを押してメインフォームを応答なしにします

ブラウザ側を更新します

さてどうなるでしょう

**デフォルトの名無しさん** · 2021/01/06(水) 23:25:52.63

答え

メインフォームが応答なしでもブラウザは更新された正常に現在の時間を表示します

WebBrokerは意識せずマルチスレッドを実験できる良いコンポーネントですね

**デフォルトの名無しさん** · 2021/01/06(水) 23:34:47.78

DelphiのPPLって内部でOSのスレッド使って実装してて、
スレッドやスレッドプールをもっと使いやすくしたものがPPLというライブラリ

文末がおかしかくて放置しようかと思ったけど、彼は根本的に間違ってるのでちゃんと修正しときます

**デフォルトの名無しさん** · 2021/01/07(木) 00:08:05.04

>>412
>メインCPUがbusyってCPU使用率が100%近いって事だよね、子スレッドはどのCPUで動いてるの？

だから、タイムスライスとかでOSがスレッド(例えばメインスレッド)の実行を強制的に停止するんだって、で、他のスレッドにそのCPUを割り当てる

https://ascii.jp/elem/000/000/672/672088/
タイムスライスとかプリエンプティブとか、スレッドの実行がどうなってるか勉強しよう

**デフォルトの名無しさん** · 2021/01/07(木) 00:22:12.33

>>417
前にも書いたがCPU負荷が100%近いってのが前提だが、その状態で子プロセスにCPUが割り当てられても殆ど動かん。

Webbrokerの話はそもそも、http serverは固まったアプリの子プロセスでないんで無いの？

**デフォルトの名無しさん** · 2021/01/07(木) 00:36:01.13

>>418
メインCPU100%とか具体的にあげてきたのは途中からでしょ
最初はメインスレッドがbusyしか君いってないけど

**デフォルトの名無しさん** · 2021/01/07(木) 00:41:06.78

だから、メインスレッドがbusyっていってんだから、負荷の原因はそのメインスレッドの処理が主で、そのメインスレッドの実行をOSが強制的に停止して他のスレッドに割り当てるんだから

**デフォルトの名無しさん** · 2021/01/07(木) 00:41:31.32

>>418
？？？
そもそもCPU使用率が100%なんて前提は誰も話してないわけで（まぁOSのタスクスケジューリングさえなんとか稼働してりゃ例に出したコードは動くが）
机上の空論はいいからコードで示して

**デフォルトの名無しさん** · 2021/01/07(木) 00:50:04.29

あと面倒だけど確認の為にソースおさらいしてきた
WebBrokerの送受信はTThreadから派生したTidThreadが担当してて立派にメインスレッドの子スレッドだった事をお知らせしておきます

**デフォルトの名無しさん** · 2021/01/07(木) 00:51:53.74

メインスレッドがbusyってどんな状態？
もしかして、*****中って表示されてる事？
それならあなたの言う通りです。

ウィンドウが真っ白、無応答時のCPU負荷見てみて。
Windows95だとマウスすら動かんかったわ。

**デフォルトの名無しさん** · 2021/01/07(木) 00:55:48.92

>>422
嘘はいけないよ

**デフォルトの名無しさん** · 2021/01/07(木) 00:59:01.61

>>423
君嘘はいわないでね
君は>>407でPPLなら大丈夫といってるんだけど

**デフォルトの名無しさん** · 2021/01/07(木) 01:00:53.79

君が勝手に想定する状態でもPPLなら大丈夫っていってるんだけど
どういうことなの？

**デフォルトの名無しさん** · 2021/01/07(木) 01:08:10.16

>>424
だから嘘だと言うならソコード示してって

**デフォルトの名無しさん** · 2021/01/07(木) 01:08:41.78

ソコードってなんじゃｗ
コードね

**デフォルトの名無しさん** · 2021/01/07(木) 01:10:13.52

>>425
407だけどアンカー間違いだよね？

**デフォルトの名無しさん** · 2021/01/07(木) 01:11:03.96

>>423の君なんか勝手に前提コロコロ変えすぎだろ

>>407の時はPPLなら大丈夫とかいってて、

>>423では
>ウィンドウが真っ白、無応答時のCPU負荷見てみて。
>Windows95だとマウスすら動かんかったわ。
の時でもPPLなら大丈夫なんだろ？

それとも前提を大幅に変えたから>>423ではPPLは駄目になったの？

**デフォルトの名無しさん** · 2021/01/07(木) 01:11:50.55

>>426
面倒くさいのでこれが最後ね
PPLは並列プログラミングライブラリーの略で、スレッドを複数のCPUに振り分けて高速化が出来る。
通信スレッドでPPLを使う事は通常少ないと思うが、PPLを使い子プロセスを実装した場合はメインスレッドとCPUが違うので取りこぼしは無いって事。

因みにこのスレはDelphiユーザーが多いからか、話が噛み合わない、日常的にマルチスレッドアプリを作成してるC++builderでした。

おやすみ

**デフォルトの名無しさん** · 2021/01/07(木) 01:13:00.20

いやだから逃げる前にコードをー・・・

**デフォルトの名無しさん** · 2021/01/07(木) 01:13:09.84

>>429
ごめん、間違えた
>>407じゃなく>>408ね

**デフォルトの名無しさん** · 2021/01/07(木) 01:13:55.72

受信用にスレッド作る
メインで全部やると取りこぼす可能性がある
ってだけの話が何故ここまでこじれるかなぁ

**デフォルトの名無しさん** · 2021/01/07(木) 01:16:44.70

>>431
>CPUが違うので

ダウト！
どのスレッドがどのCPU（論理コアか？？）使うかはOSのタスクスケジューラーが決める事で違う論理コアか同一論理コアかは一般的なWin32アプリケーションでは意識することができない

**デフォルトの名無しさん** · 2021/01/07(木) 01:23:47.23

すげえC++BuilderでPPL使うとCPU使用率100%の壁突破して動けるのか
未来技術やんけ

**デフォルトの名無しさん** · 2021/01/07(木) 06:24:47.98

なんでメインスレッドがbusy＝cpu使用率100%前提で話しているの？

メインスレッドbusyっていうのはメインスレッド側の処理が手一杯で受信処理に時間が割り当てられず
取りこぼしてしまうような状態を言うんでないの？　
一つのスレッドがCPU食い潰して他のスレッド止めてしまうのはもはやバグの類だろう

**デフォルトの名無しさん** · 2021/01/07(木) 06:44:54.69

コード実行時のタイムスケジュールの問題とハードウエアであるCPUのリソースの問題を混ぜこぜにして論ずるからこんなことになる。
シーケンサ、乱暴に言ってしまえばプログラマブルリレー回路の出力信号の受信の話だから前者の話だと思うんだけどな。
せいぜい数ms程度の信号でしょ　

**デフォルトの名無しさん** · 2021/01/07(木) 14:24:42.44

なんかやけに伸びてるな
10年近くC++Builder使ってるけど>>431が何を言っているのか理解が追いつかん

**デフォルトの名無しさん** · 2021/01/07(木) 21:39:31.17

ざっと読んでみたけどPPLの並列スレッドとメインスレッドからCreateしたTThreadは別物って考えてそうだね。
メインスレッドのビジー状態が子スレッドを引きずるってTThread.Createで実行するかSynchronize内で実行しないとそんな事にはならないんだけども。
むかーしそれこそDelphi使い始めた頃、TThread.Create内にスレッドでやりたい処理書いちゃって応答なしになったの思い出したわ。なつかしいな。

**デフォルトの名無しさん** · 2021/01/08(金) 07:33:08.43

そもそも>>397は負荷を聞いてて
アプリケーションのフリーズの話はしてない

メインVCLスレッドでも別スレッドでも同じ処理の負荷は変わらない
もし割り込みなし、OSのタイムスライスも気になるレベルで
入力監視がしたいと言うなら
sleepもなしにビジーウェイトを全力で回し続けるという事で、
そのスレッドはコア一つを可能な最大限まで食いつぶす
スレッドの優先度を上げれば取りこぼしや遅延が減る代わりに
他のプロセス、スレッドの実行に支障が出る可能性がある

そんだけの話では?
質問が言葉不足で意図や前提条件が不明だから本当に欲しい答えは分からんけど

**デフォルトの名無しさん** · 2021/01/08(金) 10:09:57.74

>>441
そんな実装メインスレッドでやったらそれこそずっと応答なしのアプリが完成するわ

**デフォルトの名無しさん** · 2021/01/08(金) 10:11:08.99

どうやったら応答しないアプリを作れるか考察するスレですね

**デフォルトの名無しさん** · 2021/01/08(金) 15:11:32.92

>>396
TValueListEditor と RTTI を使えば
GUIはほったらかしが可能かも

**デフォルトの名無しさん** · 2021/01/10(日) 16:47:14.22

Turbo Pascal 6.0(pc98)流したら嬉しい？

**デフォルトの名無しさん** · 2021/01/10(日) 17:32:11.28

>>445
流す、とは？

**デフォルトの名無しさん** · 2021/01/10(日) 18:38:31.06

流すのはトイレかそうめんぐらいしかない

**デフォルトの名無しさん** · 2021/01/10(日) 18:50:01.17

背中もお願いします

**デフォルトの名無しさん** · 2021/01/10(日) 19:59:15.57

>>445
ありがとう

**デフォルトの名無しさん** · 2021/01/11(月) 01:31:52.59

Kylix3なら封も開封して無いのが内にあるぞ
使えねー

**デフォルトの名無しさん** · 2021/01/11(月) 14:46:44.02

ディスク壊れてた

**デフォルトの名無しさん** · 2021/01/12(火) 15:31:20.64

SQLサーバーからデータを読み込んでExcelの表を作るソフトを作ろうと考えています。
会社のPCにDelphi10.4が入っています。
すごくざっくりした質問なのですが標準のVCLの機能だけで作れますでしょうか？
DelphiからExcelを扱うのは練習してできるようになりました。
出来るか出来ないかならできるという答えなのでしょうが、この程度の質問をするような
レベルの人間にはハードルが高すぎますか？

**デフォルトの名無しさん** · 2021/01/12(火) 15:43:48.11

>>452
簡単
むしろ元々そういうDBのフロントエンド開発ツールだった

**デフォルトの名無しさん** · 2021/01/12(火) 15:45:57.35

何をやろうとしていて
今はこうやってるけど
ここの動作ができないので方法を知りたい
またはここでこういうエラーが出る

みたいな情報があれば優しい兄貴達がメッセージくれるよきっと

**デフォルトの名無しさん** · 2021/01/12(火) 16:22:19.37

でもこんな頭の弱い人が作ったプログラムを使わされる方、もしくは辞めたり移動した後にメンテされられ方にとっては迷惑なんだよ

**452** · 2021/01/12(火) 17:07:33.71

ありがとうございます。
ぼちぼち調べながらやっていきます。
また、質問させてもらうと思いますがよろしくお願いします。
自分の勉強の為なので、周りには迷惑かけるような事には
ならないと思います。
ご心配どうもです。

**デフォルトの名無しさん** · 2021/01/12(火) 19:24:04.36

>>456
初めはみんな、そんなもんだよ。
続ければそれが経験になる。

**デフォルトの名無しさん** · 2021/01/12(火) 22:25:33.13

>>456
がんばれー

**デフォルトの名無しさん** · 2021/01/13(水) 00:30:16.80

>>452
Excelだけで作れるし下手したらプログラムすら必要ないだろ
頭悪いの？

**デフォルトの名無しさん** · 2021/01/13(水) 09:36:17.06

>>459
こういうバカっていなくならないよねw

**デフォルトの名無しさん** · 2021/01/13(水) 17:28:25.54

>>460
上司にクソコード怒られてイライラしてるんだよきっと

**デフォルトの名無しさん** · 2021/01/13(水) 17:30:18.19

まぁどっちの気持ちもわかる

**デフォルトの名無しさん** · 2021/01/13(水) 17:35:13.75

TListViewのヘッダが白くなるバグ回避法教えてよ

**デフォルトの名無しさん** · 2021/01/13(水) 17:50:37.60

OwnerDrawで塗りつぶし処理実装すりゃいいんじゃね

**デフォルトの名無しさん** · 2021/01/13(水) 17:53:22.33

>>464
ヘッダの色を変えるならそれでいいんだけど
デフォでヘッダが真っ白になっててアレ
どうやらOSの設定に依存しているみたいって事がわかったんだけど
Win10の場合どこでその設定があるのかがわからない

TListViewのヘッダの色に影響するWin10の設定教えてエロくさい

**デフォルトの名無しさん** · 2021/01/13(水) 18:04:52.43

ちな、TStringGridの固定セルも同様にデフォで白になっとぇｒ
設計時にTStringGridやTListViewを貼り付けたら既に白
それでexeを作成し実行しても白なんだけど、
別のPCで実行するとちゃんとヘッダに色がついてるのでOS設定っぽい
何か気が付いたらこんなんなってた何時設定かえたんだろか

**デフォルトの名無しさん** · 2021/01/13(水) 18:17:32.16

自分でどっかのプロパティいじった結果ならまっさらなプロジェクトで最初から作り直せばいいんじゃね

**デフォルトの名無しさん** · 2021/01/13(水) 19:09:29.35

TListviewの諸問題にはもしtsReportで使ってるなら
いっそVirtualTreeviewなどに乗り換えるのも一つの手
TListviewの描画遅いし

**デフォルトの名無しさん** · 2021/01/13(水) 20:58:05.24

10.4.1のTSpeedButtonおよびそれに派生するバグの件

**デフォルトの名無しさん** · 2021/01/13(水) 21:02:26.10

10.4.1のTSpeedButtonおよびそれに派生するバグの件
QCのコメントが荒れてて、Marco Cantuが釈明する羽目になってるな。
Marcoはβテストに参加してくれといってるが、フリーソフトコミュじゃあるまいし
仕事でDelphiを使っててその開発上でバグに遭遇して困っているわけで、
俺たちはバグFixを期待してサブスク料を払ってるんだという突っ込みは当然だよな。

**デフォルトの名無しさん** · 2021/01/13(水) 21:43:58.51

>>465
2009の設定だけど

プロジェクト→オプション→アプリケーション→ランタイムテーマを有効にする　のチェックを外したら「昔ながらの表示」になった

**デフォルトの名無しさん** · 2021/01/18(月) 20:25:38.96

超基本機能のデグレのバグ指摘したらβテストに参加せよって
なんてメーカーだよ
今は何人が作ってるんだっけ？

**デフォルトの名無しさん** · 2021/01/18(月) 23:45:51.46

アメリカ人

**デフォルトの名無しさん** · 2021/01/21(木) 17:45:55.62

良い
https://i.imgur.com/MGtfM4X.png
https://okoneya.jp/font/download.html#dl-gemn

**デフォルトの名無しさん** · 2021/01/23(土) 17:02:57.42

>>20
メモリーリークを防ぐためにParentを指定するというのは、どうやってやるのですか？

**デフォルトの名無しさん** · 2021/01/23(土) 20:04:23.97

ParentじゃなくてOwnerだなぁ
Thoge.Create(AOwner);
AOwnerが破棄される時に一緒に破棄される（はず）
俺はなんだか気持ち悪いからCreateした物は明示的にどっかで破棄してるけど

**デフォルトの名無しさん** · 2021/01/24(日) 01:46:16.84

>>476
ありがとう

**デフォルトの名無しさん** · 2021/01/28(木) 00:28:57.27

レンタルサーバーのMySQLに接続したいのですがFDConnectionにSSHのパスフレーズを書く場所ってどこでしょうか.
よろしくお願いします。

**478** · 2021/01/28(木) 00:31:26.38

すみません、途中で送ってしまいました。
そもそも接続に使うのはFDConnectionでよかったでしょうか。

**デフォルトの名無しさん** · 2021/01/28(木) 00:51:39.09

>>478
http://docwiki.embarcadero.com/RADStudio/Sydney/ja/MySQL_%E3%82%B5%E3%83%BC%E3%83%90%E3%83%BC%E3%81%B8%E3%81%AE%E6%8E%A5%E7%B6%9A%EF%BC%88FireDAC%EF%BC%89

**478** · 2021/01/28(木) 10:28:21.01

有難うございます。
私に知識がなくMySQL Workbenchで接続ができたので、MySQL Workbenchと比べて設定内容が
違うので戸惑っている現状です。
>>478の質問以前に理解してなさすぎとわかりました。
（ネットの知識もあまりありません。）

MySQL WorkbenchとFDConnectionの比較になるのですが確認と質問をさせて下さい。　
私が借りているサーバーのことをAサーバーとさせてもらいます。
１．ServerはAサーバーのIPアドレス？
２．MySQL Workbenchにはデータベースのホスト名とデータベース名を設定するのですが
　　FDConnectionではデータベースのホスト名はどこに書くのでしょうか？
３．Aサーバーへの接続時のユーザー名とパスワードはどこに書くのでしょうか？
４．教えていただいたヘルプにはSSLの事が書いてあったのですが、SSHでの接続はできないのでしょうか？

長くなって申し訳ないですがよろしくお願いします。

**デフォルトの名無しさん** · 2021/01/28(木) 10:48:33.00

>>481
SSH TunnelとFireDACのMySQL接続は全く別の機能
何某かのSSH Clientコンポーネント（またはSSH Tunnel機能を持つSSHクライアントソフト）でサーバーにSSH接続してlocalhoatへFireDACを接続する

どこに書くのでしょうか？とか丸投げしてないでちょっとは自分でトライアンドエラーしよう

**デフォルトの名無しさん** · 2021/01/28(木) 14:45:42.45

>>482
有難うございます。
丸投げしたつもりはないのですが申し訳ないです。
ググってもDelphi関係は英語ばかりでMySQL Workbenchの説明を見ながら何とか接続できた感じなので
FDConnectionのテストで全然接続できなくて何が間違えているのかさえ良くわからなくて質問させてもらいました。
自分の知識ではだめそうなので他の手を考えます。
ありがとうございました。

**デフォルトの名無しさん** · 2021/01/28(木) 17:17:16.92

初心者スレなんでいいと思うぜ
回答してくれる人がいるかは別だが

**481** · 2021/01/29(金) 15:09:24.05

>>482さんの
何某かのSSH Clientコンポーネント（またはSSH Tunnel機能を持つSSHクライアントソフト）でサーバーにSSH接続してlocalhoatへFireDACを接続する

をもとにググりまくってなんとか外部サーバーのMySQLと繋ぐことが出来ました。
ありがとうございました。

**デフォルトの名無しさん** · 2021/01/29(金) 15:27:17.80

>>485
おめでとう
頑張ればできる

**デフォルトの名無しさん** · 2021/01/29(金) 22:59:53.84

10.3だけどListViewのGroupsってクリアしちゃまずいの？
クリアしてもIDの値がリセットされずに増え続けて
このあやしいIDをListViewItemのGroupIDに割り当てると項目が表示されなくなる

ListView1.Groups.Clear;
var gi := ListView1.Groups.Add;
// gi.ID => 0
ListView1.Groups.Clear;
gi := ListView1.Groups.Add;
// gi.ID => 1
ListView1.Groups.Clear;
gi := ListView1.Groups.Add;
// gi.ID => 2

この現象のせいで外部ファイルを読み込んでGroupsを(再)構成するというやり方が破綻する
Clearする前なら設計時のGroupsを使ったり動的にAddしていっても正常に動作している

今はClearせずにGroupsを検索してすでにあったらその項目を使い回すというコードでしのいでいるけど実質的なメモリリーク状態になっている

**デフォルトの名無しさん** · 2021/01/30(土) 01:19:38.77

ソース見て何してるか調べたほうが早いのでは

**デフォルトの名無しさん** · 2021/01/30(土) 09:51:46.34

>>487
なんかバグっぽいね
ListView.Groups.Clear したら NextGroupIDは1に設定されるのに
Groups.Addしたら反映されずCrear前のGroupID + 1になってしまう

**デフォルトの名無しさん** · 2021/01/30(土) 10:01:14.58

>>489
と書いた後にソース見たんだけど

ListView.Groups.Clear じゃなくて ListView.Groups.ClearAndResetID を使えば
IDも0にリセットされるのに気付いた。

**デフォルトの名無しさん** · 2021/02/01(月) 09:36:39.55

そういう仕様か

**デフォルトの名無しさん** · 2021/02/02(火) 01:05:38.43

Delphi10.4を使っています。
TEditにデータを入力してからMySQLに対してTFDQueryでSQL文を実行しています。
SQLは実行はできてデータベースも更新されるのですが、DBGridが真っ白になり表示がされません。
そこでSQLを実行した後に下記のようにしています。

FDQuery1.ExecSQL;
FDQuery1.sql.text := 'select * from DB_hoge';
.FDQuery1.open;

これでDBGridに表示はされるのですが、皆さんもこんな感じですか？
また、これだと先頭行に選択行が行ってしまいます。
例えば10行目の内容変更後も10行目が選択された状態にするにはどうすればいいでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · 2021/02/02(火) 05:07:12.22

>>492
どーしてもSQL文でやりたい場合

procedure hogehoge;
var
Qry : TFDQuery;
begin
Qry := TFDQuery.Create(nil);
try
Qry.Connection := FDQuery1.Connection;
Qry.SQL.text := 'update nantoka kantoka';
Qry.ExecSQL;
finally
FreeAndNil(Qry);
end;

if FDQuery1.Active then begin
FDQuery1.Refresh;
end else begin
FDQuery1.Open;
end;
end;

**デフォルトの名無しさん** · 2021/02/02(火) 05:09:47.68

>>492
FDQueryの関数を使う場合

procedure hogehoge;
begin
FDQuery1.Edit; //DBのカーソルを編集したいレコードに合わせる事
FDQuery1.FieldByName('fugafuga').Value := something;
FDQuery1.Post;
end;

**デフォルトの名無しさん** · 2021/02/02(火) 05:10:33.84

トランザクションとかその他の面倒な事はすべてすっ飛ばしてるから適宜追加して

**デフォルトの名無しさん** · 2021/02/02(火) 06:03:32.97

>>492
既存行の状態を管理したいならTBookmarkを使えばよいかと思う