くだすれ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ヲッチャ的な内容も歓迎だ。

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

**デフォルトの名無しさん** · 2023/10/02(月) 21:28:45.93

使ってる人教えて
Delphi11 CEのTEdgeBrowserにはOnKeyDownイベントある？

**デフォルトの名無しさん** · 2023/10/03(火) 09:04:26.78

>>963
無いです

**デフォルトの名無しさん** · 2023/10/03(火) 14:16:23.46

>>964
ありがとん

**デフォルトの名無しさん** · 2023/10/07(土) 17:17:45.53

ちょっと教えて

'0'から'9'の数字をUnicodeの数学用特殊文字 $1D7EC から $1D7F5 に変換したいとき
var Ch='1';
var C := Chr($1D7EC + Ord(Ch) - 48);
とかはダメですよね。3バイトのUnicode文字を生成するにはどうしたら？

ちなみに $1D7EC から $1D7F5 を文字列配列定数にしておいて
そこから選んで、例えばMemoに表示するのは問題なくできてます

https://i.imgur.com/4w7mJUy.jpg

**デフォルトの名無しさん** · 2023/10/07(土) 22:00:50.11

そこまで範囲が広くないならその文字の配列でも作ってChを数値に変換してインデックスにでも指定すればいいんじゃ

**デフォルトの名無しさん** · 2023/10/08(日) 10:57:00.47

WideChar()

**デフォルトの名無しさん** · 2023/10/08(日) 11:18:05.77

Unicode文字コードからUTF16エレメントへの変換くらいCharでできなくても
SysUtilsにない?と思ったけど見つからないな

関数書いてみたけどレスしようとしたらブロックされた

**デフォルトの名無しさん** · 2023/10/08(日) 11:30:49.69

>>968
本当?と思って確かめたけどサロゲートペアはCharと同じで無理でしょ

**966** · 2023/10/08(日) 13:45:55.24

レスありがとう

いろいろ探したり試行したりしたらUCS4Stringで可能だった
var St: UCS4String;
SetLength(St, Length(Text) + 1);
i := 0;
for var Ch: Char in Text do begin
if Ch in ['0'..'9'] then
St[i] := UCS4Char(Ord(Ch) - 48 + $1D7EC);
...
Inc(i);
end;
St[i] := 0;
result := UCS4StringToUnicodeString(St);
とか

ただHelpには書かれてなかったけど
UCS4Stringはnullで終端させる必要があるのかなぁ？
少なくともUCS4StringToUnicodeStringで最後の文字が無視される

**966** · 2023/10/08(日) 13:46:17.17

レスありがとう

いろいろ探したり試行したりしたらUCS4Stringで可能だった
var St: UCS4String;
SetLength(St, Length(Text) + 1);
i := 0;
for var Ch: Char in Text do begin
if Ch in ['0'..'9'] then
St[i] := UCS4Char(Ord(Ch) - 48 + $1D7EC);
...
Inc(i);
end;
St[i] := 0;
result := UCS4StringToUnicodeString(St);
とか

ただHelpには書かれてなかったけど
UCS4Stringはnullで終端させる必要があるのかなぁ？
少なくともUCS4StringToUnicodeStringで最後の文字が無視される

**デフォルトの名無しさん** · 2023/10/08(日) 14:57:24.78

SetLength()して使う限り終端は不要

**デフォルトの名無しさん** · 2023/10/08(日) 17:45:45.08

Pascal文字列以外の文字列型はnull末端のために内部的には文字列長+1文字分確保されるけど、
UCS4Stringは文字列型ではなく動的配列なのでnull末端分を配慮してくれない

**デフォルトの名無しさん** · 2023/10/08(日) 18:22:14.40

なるほど

UCS4StringToUnicodeStringのコード見て理解した

ていうか、そこに出てるサロゲートペア文字の文字コードを
2個のWideCharに変換する式だけ抜き出して使えば
UCS4Stringは使う必要がないことに気づいた

emojiを文字コードで処理するときに使えそう

**デフォルトの名無しさん** · 2023/10/09(月) 15:11:38.53

968が正しかっただろ

**デフォルトの名無しさん** · 2023/10/09(月) 17:39:54.26

正しかっただろうと言われてもWideCharというヒントだけじゃ分からないよ

function CharCodeToString(Code: DWord): string;
begin
if Code >= $10000 then
　result := WideChar((((Code - $00010000) shr 10) and $000003FF) or $D800) +
　　WideChar(((Code - $00010000) and $000003FF)or $DC00)
else
　result := WideChar(Code);
end;

var S := CharCodeToString($1F44D); // 👍

**デフォルトの名無しさん** · 2023/10/09(月) 18:16:24.96

つーかそのソースのWideCharをCharに書き換えても動くはずで
>>976はただの恥の上塗り

**デフォルトの名無しさん** · 2023/10/19(木) 15:20:59.03

D6使ってます。
ListView の ViewStyle := vsReport (MultSelect := True) で質問です。
上下用のボタンをそれぞれ配置して１押しで１行入れ替わるというのなら見つけられたのですが
↓こんなのとか
https://forum.lazarus.freepascal.org/index.php?topic=37638.0

Item行が複数ある内の１行(又は複数行)をマウスの左押しSelectedドラッグのでマウス移動のドロップで任意の行に移動挿入させる
分りやすそうなTipsサンプルソースはどこかにありませんか？

**デフォルトの名無しさん** · 2023/10/31(火) 00:03:41.01

>>979
「delphi listview DropTarget」でググったらトップはこのページだったよ
http://hiderin.air-nifty.com/delphi/2007/08/listviewdragdro_3816.html

**デフォルトの名無しさん** · 2023/11/03(金) 08:34:31.15

メンテ続くのか心配になるような寂しすぎる数字だな

CnWizards 1.2.8.1150 Installer (160 times)

**979** · 2023/11/05(日) 15:12:55.90

>>980
ありがとうございます。
参照してみます

**デフォルトの名無しさん** · 2023/11/10(金) 03:36:00.94

Delphi12が出たな
とは言えCE使いの自分は早くて1年後か
アイコンジェネレータ（だっけ？）あれはすぐにでも欲しい

**デフォルトの名無しさん** · 2023/11/12(日) 22:02:25.11

DelphiはプログラミングAIとは無縁だと思ってたけど
Bingでちょっと検索しようとしたら勝手に回答が得られた
内容はメモのキャレット位置に文字を入力

https://i.imgur.com/o62pxWE.png

単に検索した内容をそれっぽく表示しただけだろうけど

**デフォルトの名無しさん** · 2023/11/13(月) 12:00:09.87

>>984
たったこれだけ？ｗｗ

**デフォルトの名無しさん** · 2023/11/14(火) 17:19:59.72

Delphi の所 .net に変えても似たようなもんだったけど

**デフォルトの名無しさん** · 2023/11/16(木) 00:05:16.75

AIにDelphiのちょっと難しい事聞くとありもしない関数でっちあげて、さも動くような回答してくるぞ

**デフォルトの名無しさん** · 2023/11/18(土) 10:27:44.88

Delphi12のヘルプ、Sample Codeとして外部リンクしているやつのURLがおかしいね
TXMLDocumentSaveToFileを例にとると、リンク先が
http://docwiki.embarcadero.com/codeExamples/Yukon/en/TXMLDocumentSaveToFile_(Delphi)
となっててNot Foundになる
Yukon を　Athensに書き換えると表示される

**デフォルトの名無しさん** · 2023/11/18(土) 14:30:52.25

円馬鹿のヘルプは表示されても全然意味ねーヘルプだもんなあ
まったく使い物にならないと思う

**デフォルトの名無しさん** · 2023/11/19(日) 12:34:37.07

Delphi3ぐらいまでのヘルプはムチャクチャ良かったんだぜ、その頃はMSのヘルプも良かった(ただの思い出話)

**デフォルトの名無しさん** · 2023/11/19(日) 16:53:11.23

Delphi6のヘルプは今でも愛用してる

**デフォルトの名無しさん** · 2023/11/21(火) 11:44:15.03

OpenAIとマイクロソフトの件でアンダースヘルスバーグの事を思い出した

**次スレ立てました** · 2023/11/23(木) 20:09:48.90

■ 誰も立てないから立てた。さあ語れ。
くだすれDelphi(超初心者用)その60【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1700737330/l50

間違ってる部分や過去に改善部分の指摘があったのなら
1へのアンカー付けて変更部分含めた全文を次回立てる人向け用で分かるように
2以降に申し送り用として貼っておいてください。

**デフォルトの名無しさん** · 2023/11/25(土) 02:39:11.65

>>993
おつ

**デフォルトの名無しさん** · 2023/11/26(日) 04:50:54.28

>>938
出るπは吸われる

**デフォルトの名無しさん** · 2023/11/26(日) 11:16:37.52

出る腹？

**デフォルトの名無しさん** · 2023/11/26(日) 12:54:39.33

delΦ

**デフォルトの名無しさん** · 2023/11/26(日) 12:54:54.22

うめ

**デフォルトの名無しさん** · 2023/11/26(日) 12:55:25.18

くだすれDelphi(超初心者用)その60【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1700737330/

**デフォルトの名無しさん** · 2023/11/26(日) 12:55:38.68

糸冬

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 793日 1時間 39分 12秒