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

**デフォルトの名無しさん** · 2021/09/24(金) 11:16:27.40

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

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

■ Delphi 11
http://www.embarcadero.com/jp/products/delphi

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

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

■ 便所の落書きレベルの個人的な悪口やきつい言葉（氏ねとか）は禁止だからな。
■ Embarcaderoヲッチャ的な内容も歓迎だ。

■ 誰も立てないから立てた。さあ語れ。

**デフォルトの名無しさん** · 2021/09/24(金) 14:26:27.45

TurboPASCAL
↓
ObjectPASCAL
↓
Delphi ←いまここ

**デフォルトの名無しさん** · 2021/09/24(金) 15:37:03.61

最新OSでもまともに動くMacやiPhoneアプリを作れるの？

**デフォルトの名無しさん** · 2021/09/26(日) 07:29:36.37

OS?アプリ？

**デフォルトの名無しさん** · 2021/09/26(日) 09:09:35.74

>>4
頭悪いな？わざとか？

**デフォルトの名無しさん** · 2021/09/26(日) 13:22:16.57

>>5
君に合わせた。

**デフォルトの名無しさん** · 2021/09/26(日) 14:40:18.05

Mac の自作はハードル高いな

**デフォルトの名無しさん** · 2021/09/26(日) 17:40:02.06

あくまで自分の経験した範囲内だがDelphiで作ったFMXアプリは
Windows版アプリは多少バグを見逃してても動くことがあるけど
MacOS版は少しでもバグが残ってるとアプリが強制終了される

まあバグが残ってること自体ダメなんだが
規模が大きいアプリだとゼロにするのは中々難しい

ちなみに自分はWindows版とMacOS版を必ず作るようにし
可能であればモバイル版アプリも作ってる
（そういえばVCL版アプリはもう何年も作ってないな）

**デフォルトの名無しさん** · 2021/09/26(日) 18:11:28.27

昔からだけどコンポーネントの登録などの時DElphiのパッケージファイル(拡張子 .dpk）が
ちょくちょく壊れるのは何なんだろうな。　
{$IFNDEF CPUX64}～{$ENDIF}とかで条件指定していたり、改行コードがLFのみのを読込ませたりすると、
一部文字が脱落(end. →　 d.）とか余計な文字が付加されたりする。

dpkファイルを作り直して、.dprjファイルを削除して復旧させてるが発生条件が
つかめないんだよな。　読込んだ時点で既に壊れてるから。

**デフォルトの名無しさん** · 2021/09/26(日) 20:58:44.23

>>9
俺もそれ遭遇したわ
先頭の2文字くらい消えるのな

**デフォルトの名無しさん** · 2021/09/27(月) 20:37:45.96

>>9-10
>先頭の2文字くらい消えるの

ファイルのテキストフォーマットが
"ANSI" か "UTF-8(BOM 付き)" の違いじゃないのかな？
"UTF-8" 系Unicodeはバイナリエディタで見ると
先頭２バイトが非テキストのバイナリーコード
それを基本にして内部で"ANSI"扱いなら"ANSI"タイプを突っ込むと
頭２バイトが消えてしまうことに・・・
たしかWindows8かそこら辺からUnicodeが基本になったんじゃなかったっけ？

.dpk とかテキストは一度メモ帳に読み込んでみて"名前を付けて保存"の選択で
(Win メモ帳では)元ファイルの文字コードが選択されているから判別も楽ですよ。

**デフォルトの名無しさん** · 2021/09/27(月) 20:57:22.22

>>10
requires　が o quiresとか、containsが ontains、 end.が d.
とかいうパターンが多い感じ

>>11
ファイルの先頭が化けるとかならわかるんだけど大抵が、requires句、contains句
最後の end.で、それ以外は containsセクションに書いた {$IFDEF ～}が
消えたりするんですよね。　それ以外の部分は化けた経験なし。

タイミングとしては読込んだ直後、ビルドPlatformを切り替えたり　Release、Debugを
切り替えた後。
コンポーネントのビルド以外では発生したことないんですよね。

**デフォルトの名無しさん** · 2021/09/27(月) 21:27:39.14

>>11
ごめん先頭じゃなくて行頭な　>>12の通り
犠牲になるのはend required contains
RADStudioはプラットフォームとビルド構成変えるとプロジェクト変更するからその時に一緒に書き換えてるかもね

**デフォルトの名無しさん** · 2021/09/27(月) 21:29:42.90

IDEの品質はとにかくクソだ
11なんて、ヘルプが10.4のままだからな

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

>>14
Indyのヘルプが10.1.5のもので全く使い物にならないのにバンドルし続けているのも
改善されないよな。現在入っている10.6.2とは関数の呼び出しパラメーターとか変わってて
役に立たない。

**デフォルトの名無しさん** · 2021/09/28(火) 08:28:23.43

>>15
Indyのヘルプ、タイムスタンプだけは更新されてるな

**デフォルトの名無しさん** · 2021/09/28(火) 12:58:24.41

前スレ998です

> Windows 7 for x64-Based Systems 用更新プログラム (KB3140245)

Easy Fixとレジストリ追加だけではダメでこれ適用で無事GetItサーバーに接続できました
アドバイスありがとうございました

**デフォルトの名無しさん** · 2021/09/28(火) 14:55:49.61

>>12
まあ改行を飛ばすときにCRLFのつもりで2バイト（Unicodeなら4バイト）飛ばしちゃってるんだろうね

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

始まるよ
たったの9人ww
https://www.youtube.com/watch?v=mjM1CA9WfSk

**デフォルトの名無しさん** · 2021/09/28(火) 20:30:13.26

>始まるよ
それ、ひと月前ですが

**デフォルトの名無しさん** · 2021/09/28(火) 21:29:54.65

>>18
デフォルトでBOM付きUTF-8の .dprjファイルと　ansiな.dpkファイルの組み合わせに問題があるのかな
エディタのデフォルトを UTF-8に設定しておくのが無難なんだろうか

**デフォルトの名無しさん** · 2021/09/29(水) 08:37:18.74

>>20
えっ？

**デフォルトの名無しさん** · 2021/09/29(水) 20:37:28.50

はっきり喋れる次期 MVP 山下氏のほうが、何もしない旧 MVP の「彼」より良いな。
英断を支持します。

**デフォルトの名無しさん** · 2021/10/01(金) 17:15:00.59

FMXってまともに使えるようになったのかい

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

VCLしか使わないから分からない
どうなの？

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

>>14
10.4はISOに日本語ヘルプが入ってなかったりするしな

**デフォルトの名無しさん** · 2021/10/03(日) 08:30:09.40

>>26
10.4はGetItで更新できたけど、今回はQPから勝手にダウンロードしてレジストリ書き換えろだからな
しかもレジストリ書換の説明が間違ってる

**デフォルトの名無しさん** · 2021/10/03(日) 21:28:10.08

またmvpが糞みたいなアプリを自慢してる

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

Delphi 10.3でビルドしたプログラムをWindows11で動かすと
Enabled := falseにしたBitBtnに背景が透けて見えるな

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

TEdgeBrowserでUserAgentの変更は可能でしょうか？

**デフォルトの名無しさん** · 2021/10/08(金) 14:40:52.72

Delphi 10.4.2 Community Edition で

// 63 になる
WriteLn(CountTrailingZeros64(UInt64($8000000000000000)));

// 64 になる
var AValue: UInt64 := UInt64($8000000000000000);
WriteLn(CountTrailingZeros64(AValue));

というように違う結果が返されます。
AValueがUInt32より大きいと64になるようです。
使い方が間違っているのでしょうか？

**デフォルトの名無しさん** · 2021/10/08(金) 16:49:01.07

>>31
Delphi 10.4.2 Community Editionで試してみたけど
どちらも 63になったよ。

GetItから落とせる　Delphi 10.4.2 Community Edition Patch 1.0 というやつは当ててる？

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

数秒間待つ関数が欲しいんだけど何かない？
メインスレッドのUI動作とかを邪魔しないやつ
（Sleepはナシの方向で）

できればWindowsに依存しないで

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

お手軽にTimer処理

**デフォルトの名無しさん** · 2021/10/09(土) 08:21:02.66

Windowsに依存しないという事は関数内でメッセージボックスでも表示させて
時計みて待ち時間過ぎたらボタン押すぐらいじゃないかと思ったけど
メッセージボックスもWindows依存だからこれもだめか
というかDelphiがWindows依存だからおかしい話だな

**デフォルトの名無しさん** · 2021/10/09(土) 11:04:41.13

>>34
Timerも考えたんだけど、一つの関数内で数秒待ちたいと思ったので
そんな用途はないのかなぁ

>>35
言葉が適切でなかった、ごめん
Windows APIを使わないって意味
FMXアプリで使いたいので

Windows APIを使う例は見つけた

// sleep for 5 seconds without freezing
var Start, Elapsed: DWORD;
Start := GetTickCount;
Elapsed := 0;
repeat
if MsgWaitForMultipleObjects(0, Pointer(nil)^, FALSE, 5000-Elapsed, QS_ALLINPUT)
<> WAIT_OBJECT_0 then Break;
Application.ProcessMessages;
Elapsed := GetTickCount - Start;
until Elapsed >= 5000;

**デフォルトの名無しさん** · 2021/10/09(土) 11:25:40.17

Delphi11でGEtItからSysToolsをインストールしようとすると
以下のようなところでコンパイルエラーになるな

変数c はCharで、エラーはラベルの二重定義エラー

case c of
#130 : bcDigits[bcDigitPos + 1] := 98; {rest are manufactured characters}
#131 : bcDigits[bcDigitPos + 1] := 97;
#132 : bcDigits[bcDigitPos + 1] := 96;
#133 : bcDigits[bcDigitPos + 1] := 98;
　　　　　　　　（以下略）

#nnnがAnsiコードページに存在しないキャラクタだと'?'に変換されてしまうせいかな

**デフォルトの名無しさん** · 2021/10/09(土) 16:45:33.63

Delphi はもちろん、Flutter や Unity, Flash, Android Studio, Xcode, Xamarin,
C++ + SDK なんかでアプリを作ってきたが、色々やってみたことで、なんかもうどんな環境
でもアプリ作れそうな気になる。好き嫌いはあれどね。