くだすれ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/02/10(水) 22:53:51.82

規約を守ってないかどうか、どうやって判定してるんだろう

**516** · 2021/02/10(水) 23:21:25.21

>>517
色々テストして数字のみのテーブルの時は少数があっても問題が出ない。
商品名などの文字列データを含むとオーバーフローと出たり、エラーメッセージで
'1000@'は整数ではありませんと出たり、また、文字列データの列順を変えると
数字の変わり方に変化が出たりしました。
なので、サーバーの照合順序の文字コードとアプリ側が合ってないのが原因と思いました。

＞FDQuery -> Datasource -> DBGridで問題が出ないのは、多分、ClientdatasetのFieldDefsのDataTypeの
様にカラム毎のデータタイプをしていないからだと思います。
数字のみの時は正常なのでFDConnectionのCharacterSetを色々いじってcsSjisにしたら落ち着いた感じです。
データベース側はutf8mb4_general_ci,FDConnectionはcsSjisの組み合わせです。
理屈がわかってる訳ではないのでこれで正しいのかはわかりません。
長くなりましたが素人の考察です。

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

>>522
世界でも使ってる人が激減しているDelphiが真面目に日本語対応するわけないだろ
そんなことも気付かずにDephiを業務に使おうとするお前の問題

**デフォルトの名無しさん** · 2021/02/11(木) 04:42:02.58

>>521
規約違反は個別に訴えるなり対応して欲しいよね
規約守ってる人を巻き添えにするのは最悪の対応

**デフォルトの名無しさん** · 2021/02/11(木) 05:16:17.51

なんかおかしいのが1匹張り付いてるね

**デフォルトの名無しさん** · 2021/02/11(木) 12:32:54.00

>>520
10.4の品質が改善されないままcommunity版を放流しちゃうと
更に悪評が拡大するから出せない面もあるのでは

ここまで長引くと、もう品質改善にリソースを注ぎ込むための
利益に還元させるビジネスモデルとして難しいんだろうか

機能制限した10.2Starterを継続していき、community版を出さなければよかったのかなぁ

**デフォルトの名無しさん** · 2021/02/11(木) 12:43:59.64

WINUIみたいにPreview出せばいいのに

**デフォルトの名無しさん** · 2021/02/11(木) 12:50:56.84

>>526
10.4に期待してサブスク継続料支払った身としてはリリース後8ヶ月もの間
正式使用できない（回避策はあるがソース修正しないといけない）のでは
「金返せ」と言いたくなるよ

**デフォルトの名無しさん** · 2021/02/11(木) 12:55:14.55

2007を使い続けている俺は勝ち組だな
新しい文字列の取り扱いを覚えたくないだけだが
（実際はもっぱら以前のプログラムのメンテしかやっていないからなのだが）

**デフォルトの名無しさん** · 2021/02/11(木) 14:55:18.92

10.3.3はHiDPI環境でスケーリンクを変えている際タイトルバーのサイズなど
対応し切れてない部分があるから10.4には期待してたんだけどね

**デフォルトの名無しさん** · 2021/02/12(金) 06:55:30.14

10.3が快適すぎて流石に文句行ったらバチ当たるレベル
手持ちのバージョンがXE7までしか無いから
CE切られたら不自由すぎて引退考える

**デフォルトの名無しさん** · 2021/02/12(金) 18:36:00.54

教えてください

**532** · 2021/02/12(金) 18:36:45.24

■；パネル　｜：splitterの時に

**532** · 2021/02/12(金) 18:38:05.16

■｜■とするとSplitterが全然動かないけど特別な設定ってありますか？

**デフォルトの名無しさん** · 2021/02/12(金) 18:50:43.33

>>534
AlignLayoutが左からLeft Left Clientになってるか確認

**532** · 2021/02/12(金) 19:22:30.78

レスありがとうございます
AlignはLeft Left Clientにしていますが、なぜか動かないんです。
PanelじゃなくMemoとかだとカンタンなんですが・・。

**デフォルトの名無しさん** · 2021/02/12(金) 19:50:30.74

すげえな
質問が全然わからないわｗ

**532** · 2021/02/12(金) 19:59:15.09

言葉足らずですみません

**532** · 2021/02/12(金) 20:00:17.82

Splitter使うのが初めてでさっぱり判らないんです。

**デフォルトの名無しさん** · 2021/02/12(金) 20:18:52.16

ホントにSplitter使ってる？何か別のコンポの可能性は？
そもそもDelphiのバージョンはいくつ？

**デフォルトの名無しさん** · 2021/02/12(金) 20:21:03.60

ひょっとしてIDEでデザイン時に動かそうとしてない？
ちゃんとコンパイルビルドしてから動かしてる？

**デフォルトの名無しさん** · 2021/02/12(金) 20:34:29.57

！やっとわかったわ533は記号の説明か
サンプルでパネル２つとスプリッタ１つ配置した画面でも動かないわけ？

**デフォルトの名無しさん** · 2021/02/12(金) 21:21:49.39

まずは気を落ち着けてまっさらなフォームで
panel配置,align=left
splitter配置,align=left
まずはこの2つでやってみると良い
memoで出来てるならpanelも一緒なはずだからなにか勘違い・手違いをしている

全然関係ないけど
exe/dcuの出力先を
$(Temp)\$(Platform)\$(Config)\RbdUeZpU <- パスワードジェネレータで作ったランダムな文字列
にするとクソデカexeをtempフォルダに作れて使い捨てテストプロジェクトなんかは便利だ

**デフォルトの名無しさん** · 2021/02/12(金) 22:37:13.80

質問のIDがhelpだすごい。
memoではうまく行くなら、
splitterをpanelの中に入れちゃってそうだな。

構造ツリーで

Form1
　Panel1
　Panel2
　　Splitter1

のようになっていたら動かない。
下のようにSplitterを作用させるPanelと同じ階層に置く必要がある。

Form1
　Panel1
　Panel2
　Splitter1

**532** · 2021/02/13(土) 09:27:36.91

いっぱいアドバイスありがとうございます

**532** · 2021/02/13(土) 09:36:46.49

送ってしまった。
Panel1(atLeft)
Panel2(atCliant)
Splitter(atLeft)
のようにやると、>>544さんの仰るとおり左側は動きます。
ですが、Panel1とPanel2でSplitterを挟む方法が判りません
急にMemoでもできなくなってしまった。
まさか、インターフェースでつまずくとは思いませんでした。

**デフォルトの名無しさん** · 2021/02/13(土) 10:32:34.68

１　Panel1、Panel2、Splitter1のAlignを全てalNoneにする
２　Panel1を切り取って貼り付けてAlignをalLeftにする
３　Splitter1を切り取ってPanel1の右側に貼り付けてAlignをalLeftにする
４　Panel2を切り取ってSplitter1の右側に貼り付けてAlignをalClientにする
これでどうだ？

**デフォルトの名無しさん** · 2021/02/13(土) 11:05:20.62

こいつ、ホントにわかってんのか？

**532** · 2021/02/13(土) 11:23:07.41

>>547
できました！

**532** · 2021/02/13(土) 11:24:29.86

丁寧に教えてくださりありがとうございました
レベルの低い質問すみませんでした

**デフォルトの名無しさん** · 2021/02/13(土) 11:37:01.98

>>550
せめて「なぜ動かなかったのか？」くらい書けよ
でないと何ひとつ意味ねえじゃないか？

**532** · 2021/02/13(土) 11:45:59.16

ごめんなさい

**デフォルトの名無しさん** · 2021/02/13(土) 11:51:17.55

>>552
きにすることはない
こいつは何一つあなたに有益な情報を与えていないガヤなんで

**532** · 2021/02/13(土) 11:52:10.17

>>554さんのダメなみたいな構造にしてました。

**532** · 2021/02/13(土) 11:57:25.84

また送ってしまった
Panel1
Panel2
Splitter
のようにしてみましたが、動かずに困っていました。
>>544さんの言うようにやってみましたが、最初はなぜかうまくいかずに
試行錯誤していたらできるようになりました
なんか説明が下手で済みません。

**532** · 2021/02/13(土) 12:03:27.37

Splitterを一回切り取って他の場所にコピーしてAlignをLeftにすることで解決しました。
後は水平も必要なんですが、もう少し試行錯誤します。

**デフォルトの名無しさん** · 2021/02/13(土) 12:11:19.67

>>556
縦横のSplitterが必要で例えばメーラのように
縦を画面の上下に通して横を右のパネルを分割するような構成にする場合
簡単なのは
１　画面の中に左から順にPanel1（alLeft）、Splitter1（alLeft）、Panel2（alClient）を配置する
２　Panel2の中に上から順にPanel3（alTop）、Splitter2（alTop）、Panel4（alClient）を配置する
こうするといいかと思う

**532** · 2021/02/13(土) 13:06:05.68

>>557
水平方向についても実現できました。

**532** · 2021/02/13(土) 13:09:10.80

>>557
教えていただいた方法で、水平方向のSplitteの動作を実現できました。
alClientを使うことと,Splitterを一度切り取ることがポイントなんですね。
勉強になりました。ありがとうございました！

**デフォルトの名無しさん** · 2021/02/13(土) 13:10:26.55

>>558
切り貼りしてるとそのうちタブの順番とかもおかしくなるかと思うから注意したほうがいいと思う
がんばりなされ

**532** · 2021/02/13(土) 13:19:32.42

すみません、設計時にも動くと勘違いしていました。
コンパイルしてexeにしたら動きました！

**532** · 2021/02/13(土) 13:30:28.75

>>561
誰？

**デフォルトの名無しさん** · 2021/02/13(土) 16:17:45.60

俺だよ俺

**デフォルトの名無しさん** · 2021/02/13(土) 16:58:08.66

今回のsplitterのようにフォームデザイナ上のドラッグドロップでは難しいコントロールの位置調整は、
オブジェクトインスペクタで座標を編集するといい。

同じ階層にPanel1, Panel2, Splitter1があったとき、
例えばPanel1(Align=alLeft, Left=0, Width=100) Panel2(Align=alClient, Left=100, Width=任意)という状況なら、
オブジェクトインスペクタでSplitter1.Leftを0にすればPanel1の左に、Splitter1.Left=100とすればPanel1とpanel2の間に収まる。
数字はぴったり合わせなくてもデザイナが適当に補正してくれる。

**532** · 2021/02/14(日) 12:26:12.35

座標大事なんですよね。

**532** · 2021/02/14(日) 12:29:14.74

またやっちゃった
ボタンを等間隔で並べるときとかオブジェクトインスペクタで数字を設定すると見栄えが良くなりますし。
今回のsplitterでは切り取りができることを初めて知りましたが、

**532** · 2021/02/14(日) 12:31:27.86

数字で設定すればキレイに行くのが発見でした

無駄にコメント欄使ってしまい申し訳ありません
ついくせでshift+enter押してしまうんです

**デフォルトの名無しさん** · 2021/02/14(日) 13:44:01.50

質問なら答えてあげるけど
ここは日記じゃないからな少し自重したほうがいいのでは

**532** · 2021/02/14(日) 14:29:31.50

すみません、Splitterは設計時にも動くと勘違いしていました。
コンパイルしてexeにしたら動きました！

**デフォルトの名無しさん** · 2021/02/14(日) 14:32:12.88

ゆとり

**532** ◆9NhhNagxEk · 2021/02/14(日) 16:46:10.26

>>562
そうですね。失礼しました。

**532** ◆9NhhNagxEk · 2021/02/14(日) 16:51:36.66

つくっているのは、Panel2にScrollboxにImageを乗せて
ウィンドウの大きさに比例して動的に倍率を変えて画像が表示するものを作っています。
Panel2のサイズをリアルタイムで判らないとできないと思えるのですが
どうやってもうまくいきません。
わかりにくい質問ですみません

**デフォルトの名無しさん** · 2021/02/14(日) 17:16:46.32

>>572
なんか質問がイマイチよくわからんが

Panel2にTImageを貼り付けて、Alignを alClientにして、TImageの2のプロパティ StrechをTrueにするだけでいいような気がするが。
画像のアスペクト比を維持したいのなら多少工夫をする必要はあるけど

Panelのサイズは WidthとHeightプロパティで取得できるでしょ

**532** ◆9NhhNagxEk · 2021/02/14(日) 17:31:13.21

画像のアスペクト比を取得して、元の画像の比率で、
拡大縮小させ方法が判らず悩んでいます

**デフォルトの名無しさん** · 2021/02/14(日) 17:41:11.43

とりあえずソースでもアプしてみなよ
質問内容が意味不明では誰もまともに答えられんよ

**デフォルトの名無しさん** · 2021/02/14(日) 18:09:45.64

・画像はどうやって取り込みするの？その画像のサイズはどうやって知るの？
・倍率の変更って具体的にはどういう仕組みを考えてるの？画像の倍率変更は何を使って行うの？
・PanelにScrollBoxをのせる理由は？
・ImageはTImageとしてそれを使う理由は？どう使うつもり？

**532** ◆9NhhNagxEk · 2021/02/14(日) 18:23:55.25

どうやってもロダに上がらないのでソース貼り助けます
private
{ Private 宣言 }
mWidth : Integer;
mHeight : Integer;
ClientW : Integer;
ClientH : Integer;
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

**532** ◆9NhhNagxEk · 2021/02/14(日) 18:24:23.87

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.AutoSize := True;
Image1.Picture.LoadFromFile(FileListBox1.FileName);
mWidth := Image1.Picture.Width;
mHeight := Image1.Picture.Height;
Image1.AutoSize := False;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Image1.AutoSize := True;
Image1.Width := mWidth div 2;
Image1.Height := mHeight div 2;
//Image1.AutoSize := False;
end;

**532** ◆9NhhNagxEk · 2021/02/14(日) 18:24:30.81

procedure TForm1.Button3Click(Sender: TObject);
begin
//Image1.AutoSize := True;
Image1.Width := mWidth;
Image1.Height := mHeight;
//Image1.AutoSize := False;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//Image1.AutoSize := True;
Image1.Width := mWidth * 2;
Image1.Height := mHeight * 2;
//Image1.AutoSize := False;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
Image1.AutoSize := True;
Image1.Picture.LoadFromFile(FileListBox1.FileName);
mWidth := Image1.Picture.Width;
mHeight := Image1.Picture.Height;
Label1.Caption := inttostr(Panel2.Width);
Label2.Caption := inttostr(Panel2.Height);
Image1.AutoSize := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//
end;
こんな感じなんです。

**デフォルトの名無しさん** · 2021/02/14(日) 18:40:18.53

>>574
手っ取り早い方法としては、TImage のStrechと、PropotionalプロパティをTrueにしておいて、ウインドウサイズが変わったら
再描画すればいいのでは？

**デフォルトの名無しさん** · 2021/02/14(日) 18:40:37.28

こういう手合いは自分で考えることもせずあれもこれもとしつこく粘着してくる

**532** ◆9NhhNagxEk · 2021/02/14(日) 19:03:02.66

見本がこれですパスはすべて123です
https://up2.karinto.in/uploader/download/1613296732.zip
このソフトのautoモードを実装したいのです
よろしくお願い致します

**デフォルトの名無しさん** · 2021/02/14(日) 19:04:30.55

はいはい丸投げ丸投げ

**デフォルトの名無しさん** · 2021/02/14(日) 19:38:46.26

fmxにはimage系の色々便利なコンポーネントがある

**デフォルトの名無しさん** · 2021/02/14(日) 20:26:12.76

>>580
Propotionalは縮小はできても100%を超える拡大は無理みたい

**デフォルトの名無しさん** · 2021/02/14(日) 20:33:00.63

>>585
あ、そうなんだ
画像系はほとんどやんないし縮小くらいしかやったことないから知らなかったよ
まぁそれならコード書くか、適当なコンポーネントでも探すかだな
GDI+あたりを使えば比較的楽にできそうかな

**デフォルトの名無しさん** · 2021/02/15(月) 09:00:31.63

>>582
もうその見本を使い続けろよ、よくできてるじゃないか？ｗ

**デフォルトの名無しさん** · 2021/02/15(月) 18:00:35.98

DBEditやDBComboBoxについて教えてください。
DBEditやDBComboBoxを配置してDBGridのセルを選択すると、そのレコードの各フィールド値が
表示され値を変えれば変更するまではできたのですが、新規のレコード追加がうまくできません。

DBGridをクリックした時点でレコードが選択された状態になっているので、追加できたとしても他の
レコードも変更されたり重複エラーが出てしまします。

DataSetのActiveをFalseにするとDBEditやDBComboBoxの入力が出来なくなるようで、
どうしたものかとググって調べているのですがお手上げ状態です。

普通のEditやConboBoxを使えば追加、更新は出来ますが今後のためにも知っておきたいので
よろしくお願いします。

**532** ◆9NhhNagxEk · 2021/02/15(月) 21:28:19.75

>>587
なんかそれっぽいのができたので、使ってみてもらえませんか？
よろしくお願いいたします。
https://up3.karinto.in/uploader2/download/1613391876.zip
パスは123です

**デフォルトの名無しさん** · 2021/02/15(月) 21:30:39.37

>>588
対象のDataSetにInsertかAppendするだけ

TDBNavigatorでも使ったら？

**デフォルトの名無しさん** · 2021/02/15(月) 23:57:49.51

>>589
rtl220.bplがなくて起動できない

**532** ◆9NhhNagxEk · 2021/02/16(火) 01:23:32.21

https://up3.karinto.in/uploader2/download/1613406050.rar
これでどうでしょうか？

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

なんで実行時パッケージを使う設定でビルドしてるんだろ？
デフォルトでは使わないようになってるよな

**デフォルトの名無しさん** · 2021/02/16(火) 12:36:25.37

デフォは使う設定じゃないのか？

**デフォルトの名無しさん** · 2021/02/16(火) 13:52:36.71

デフォは使うね
VMでスナップショット取って必要なバージョン入れて戻すってのを
やってるけど入れるたびに毎回あーってなる
ほんとに一時的に必要なだけだから入れたのを保持するより入れなおす
ほうがお手軽で

**588** · 2021/02/16(火) 16:43:54.27

>>590
レス、ありがとうございました。

**デフォルトの名無しさん** · 2021/02/16(火) 20:18:46.19

>>594
そうなの？
俺の環境では新規プロジェクト作ってオプション画面開いても、「実行時パッケージを使ってリンク」はfalseなんだけどな

**デフォルトの名無しさん** · 2021/02/16(火) 20:32:30.39

お前の環境の事なんか知らんわw

**デフォルトの名無しさん** · 2021/02/16(火) 20:50:24.13

>>597
［実行時パッケージを使ってリンク］
実行時パッケージをユーザーのプロジェクトに動的にリンクします。
Default = True（C++ の場合）、False（Delphi の場合）

自分はC++だったからTrueがデフォだっただけのようだ

**デフォルトの名無しさん** · 2021/02/16(火) 21:02:14.62

>>598
やーい、お前のほうが間違い～ｗ

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

10.2で試しにAndroidアプリ作ってみたら
普通にできたので（フォームとボタンのみだけど）
今度はある機器とUSB通信できないかなとおもって
Windowsソフトではそういうの作っててAndroidでもやりたくなって
それでCreateFileとか当然使えるわけもなく・・・
シリアル通信でどやってやればいいんですか・・・

**デフォルトの名無しさん** · 2021/02/17(水) 18:16:58.61

Androidアプリは、ファイルを作ったりフォルダを開いたりするのに使用者の許可がいる
この許可処理をプログラム内ですればファイル操作もできる　色々面倒だけど

**デフォルトの名無しさん** · 2021/02/17(水) 18:53:53.60

>>602
ありがとうございます。
やはり携帯端末は色々大変そうですね
ちなみにファイル操作関数てどこで調べたらわかりますかね？

**デフォルトの名無しさん** · 2021/02/17(水) 20:34:37.97

Androidはどこが作っているのか・・そう、グーグルだ!
もうわかったね？ググレ!

**デフォルトの名無しさん** · 2021/02/17(水) 20:46:35.52

単に>>604も知らないだけじゃね？ｗ

**デフォルトの名無しさん** · 2021/02/17(水) 21:08:04.64

>>601
Androidでも使えるシリアル通信コンポーネントを使うのが一番早いかもね
有料だけどWinSoftとかの
GetIt見回ると色々あるよ

あとはBLE(Bluetooth)も検討してみて

**デフォルトの名無しさん** · 2021/02/18(木) 01:25:46.70

>>601
Andoroid ってLinux系だろ
なら
Open(“/dev/tty###”,....)
Write(.......)

じゃあダメなの？

**デフォルトの名無しさん** · 2021/02/19(金) 14:35:10.34

エディタの色設定で ’A’　の時の「’」と「A」を別の色に分けるにはどこを触ればいいでしょうか。

**デフォルトの名無しさん** · 2021/02/20(土) 11:39:46.45

少数2桁まで表示する時に整数の時は　1.00　ではなく　１
1.2は1.20ではなく1.2と表示したい時の関数とかってあります？
Format関数で表現できるのでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · 2021/02/20(土) 11:54:19.60

FormatCurrでできました。
失礼しました。

**デフォルトの名無しさん** · 2021/02/21(日) 00:30:04.49

mvpがまた変な投稿してる、あいつがdelphiの価値を貶める張本人じゃないか、そう思う

**デフォルトの名無しさん** · 2021/02/21(日) 11:33:06.31

馬鹿は氏んでも直らないよな

**デフォルトの名無しさん** · 2021/02/21(日) 12:59:36.97

妬むバカこそいなくなってほしいね

**デフォルトの名無しさん** · 2021/02/21(日) 18:10:06.27

ちーっす

**デフォルトの名無しさん** · 2021/02/21(日) 20:57:01.53

妬むバカとかいる？あのキモ豚を？ｗｗ

**デフォルトの名無しさん** · 2021/02/21(日) 22:08:58.41

Community EditionでLinux 用の実行ファイルを生成する方法ってあるの（有料でも可）？

**デフォルトの名無しさん** · 2021/02/25(木) 15:20:31.38

速報！Delphi / C++Builder / RAD Studio 10.4.2リリース

ってメール来たけどCommunity Editionもリリースされたんだろうか？

**デフォルトの名無しさん** · 2021/02/25(木) 15:55:24.78

Community Editionまだ10.3.3だった

**デフォルトの名無しさん** · 2021/02/25(木) 17:06:31.09

TEditはインスペクタで文字の右寄せの設定がありますが、TLabelEditはないですよね？
右寄せはLabelの表示位置みたいで、Lablは左で文字は右寄せにいたいのですが
描画コードを書かないといけないでしょうか？

**デフォルトの名無しさん** · 2021/02/25(木) 17:16:35.88

>>617
C++だけど指摘した不具合直ってなかったからまだ当分使わない