くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/10/13(木) 13:21:54.84

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

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

■Delphi XE6　Professional/Enterprise/Ultimate/Architect エディション(トライアル版有)
64bit Windows、Mac OS XからiOS、Androidのアプリも開発可能。ライブラリのソースコード付き。アカデミックライセンス有り。
旧バージョン（XE6/5/4/3/2/XE/2010/2009/2007/Delphi 7）のライセンス取得とダウンロードが可能。（アカデミック不可）
ttp://www.embarcadero.com/jp/products/delphi

■Delphi XE6　Starter エディション
個人／5人以下の企業・組織向け。年間売上1000US＄以内の商用開発可。
（※）Delphi、Visual Studio等の有償／無償の開発ツールユーザーが対象。インストール確認は特に行わない。
ttp://www.embarcadero.com/jp/products/delphi/starter

■Embarcadero RAD Studio XE6 （Delphi、C++Builder、HTML5 Builder等を含むビジュアル開発スイート）
ttp://www.embarcadero.com/jp/products/rad-studio

＜前スレ＞
くだすれDelphi(超初心者用)その56
http://echo.2ch.net/test/read.cgi/tech/1405783063/

＜過去スレ＞
DelWiki （Delphi 関連の過去スレッド）※行方不明
ttp://delwiki.info/?

**デフォルトの名無しさん** · 2017/04/18(火) 18:41:12.40

>>326
ソースコード見てみると
FormatDateTimeはDateTimeToStringを呼び出しているだけ。
たぶん利便性（使い分けできるように）の問題だと思う。

ちなみに以下の関数が内部的にDateTimeToStringを呼び出すだけで実装されている。
function DateToStr(const DateTime: TDateTime): string;
function TimeToStr(const DateTime: TDateTime): string;
function DateTimeToStr(const DateTime: TDateTime): string;
function FormatDateTime(const Format: string; DateTime: TDateTime): string;

また同名の関数で引数の最後にTFormatSettings型が追加されたバージョンも
内部的にTFormatSettings型を引数に持つDateTimeToStringを呼び出しているだけ。

**324,326** · 2017/04/19(水) 09:04:32.22

>>329
なるほど、参考になりました。ありがとうございます。

**323** · 2017/04/19(水) 15:21:22.52

>>328
FastMM4のデモで試した結果、ソースの所のFastMM4 in 'FastMM4.pas'をSharememに変えたらリークの場所がわかる余裕になりました。
Sharememが何かはわかりません。w
円バカのサイトに載ってたのでやって見たらなんとか動作したって感じです。

**デフォルトの名無しさん** · 2017/04/23(日) 00:33:57.32

delphi10.1までは問題なかったのにdelphi10.2にしてから
stylebookで指定したstyleが一部反映されなくなりました。

tabcontrolのタブがandroid実機で実行すると
styleが反映されずデフォルトのタブになってますorz

対処方法とか分かる方いらっしゃいますか？
暫くは10.1を使い続けるしかないですかね・・・

**デフォルトの名無しさん** · 2017/04/23(日) 01:24:14.01

>>332
Android用のスタイルを一旦削除してマージ

**332** · 2017/04/23(日) 07:38:09.47

>>333
アドバイスありがとうございます。

Android用スタイルを削除してマージしてみましたが結果は同じでしたorz

もう少し詳細に書くとIDE上ではタブにもスタイルが反映されているが
ビルドしてAndroid実機で動かすとアクティブなタブだけが
デフォルトになってしまう状態です。

同じプロジェクトをDelphi10.1でビルドし直してAndroid実機で動かすと
アクティブなタブも含めてに正常にスタイルが反映されてます。

また、スタイルに使用しているファイルは「AquaGraphite.style」を
使用していますが他のスタイルファイルを使っても同様の結果でした。

実機はXperia Z3ですが他に持っていないので他機種でどうなるかは未検証です。

**332** · 2017/04/23(日) 07:50:06.92

>>333
すいませんTabControlのみしかない最小限のプロジェクトで試したら
正常にスタイルが反映されているのが確認できました。

変な設定がどこかで生きているのだと思います。
失礼しましたm(_ _)m

**デフォルトの名無しさん** · 2017/04/27(木) 08:22:37.61

メッセージダイアログやショーメッセージで改行を
使うとメモリリークが出るけどなんで?

**デフォルトの名無しさん** · 2017/04/27(木) 12:14:19.99

バグってんじゃね

**336** · 2017/04/27(木) 12:36:20.33

delphiがバグってる？
新規作成でシンプルな状態でやってもメモリーリークのメッセージが出るんだけど、どうすりゃ良いんだろう。
俺だけ？

**336** · 2017/04/28(金) 22:34:22.04

メモリーリークを調べているのですが
MessageDlg(IntToStr(123),mtConfirmation, [mbOK, mbCancel], 0);
IntToStr(123)が原因でメモリーリークが起きるみたいです。
Delphiのバグ？コードがダメ？

**デフォルトの名無しさん** · 2017/04/30(日) 09:29:58.72

ソースみれば？

**デフォルトの名無しさん** · 2017/04/30(日) 11:59:29.48

３３６ではないけどソースコード見てみた
ポイントになりそうなところがアセンブリで書かれてた

**デフォルトの名無しさん** · 2017/04/30(日) 12:08:19.89

それがどうかしたか

**デフォルトの名無しさん** · 2017/04/30(日) 23:16:41.78

1. MessageDlg と同じ引数を持つ、そのユニット内にローカルな関数を書いて、MessageDlg のせいかどうか調べる。
2. IntToStr と同じ引数を持ち、適当な文字列を返す関数を同様に書いてみる。
3. コンソールアプリケーションのプロジェクトを作成して、1.を行って調べてみる。
4. 同様に IntToStr も行ってみる。

**デフォルトの名無しさん** · 2017/04/30(日) 23:36:32.18

どのバージョンで発生したのかしら？
こちらのTurbo Delphiは
ReportMemoryLeaksOnShutdown := True;
で再現せず。

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

昔の経験
マルチスレッド内で間違った呼びし､クリティカルセクションの間違った実装

**デフォルトの名無しさん** · 2017/05/02(火) 08:06:56.48

「IntToStr(123)が原因でメモリーリークが起きる」
と判断した理由を開示せよ

**デフォルトの名無しさん** · 2017/05/24(水) 11:04:03.05

32biでも64bitでもinteger型は32bitですか？
Pointer型（とPtrInt型）だけが変化すると考えてよいのでしょうか？

**デフォルトの名無しさん** · 2017/05/24(水) 11:54:37.27

-1 を代入する
pointer を求める
pointer + 0 と pointer + 3 と pointer + 7 あたりを見る

0 を代入する
pointer を求める
pointer + 0 と pointer + 3 と pointer + 7 あたりを見る

**デフォルトの名無しさん** · 2017/05/25(木) 14:51:52.47

Integer は 32 だけど LongInt は 32 とは限らない

**デフォルトの名無しさん** · 2017/05/26(金) 08:47:10.54

>>349
そんなことどこにも書いてないけどホント？
ttp://docwiki.embarcadero.com/RADStudio/Berlin/ja/32_%E3%83%93%E3%83%83%E3%83%88_Delphi_%E3%82%A2%E3%83%97%E3%83%AA%E3%82%B1%E3%83%BC%E3%82%B7%E3%83%A7%E3%83%B3%E3%81%AE_64_%E3%83%93%E3%83%83%E3%83%88_Windows_%E3%81%B8%E3%81%AE%E5%A4%89%E6%8F%9B

**デフォルトの名無しさん** · 2017/05/26(金) 10:06:17.71

そのページは、たぶん、Win32->Win64 だけの頃のやつ。

http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/Delphi_%E5%9E%8B%E3%81%A8_C%2B%2B_%E5%9E%8B%E3%81%AE%E3%83%9E%E3%83%83%E3%83%94%E3%83%B3%E3%82%B0
ここで、C の long は、Wind64 では 32-bit、iOS64/Linux64では 64-bit。

とか

http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/%E5%8D%98%E7%B4%94%E5%9E%8B%EF%BC%88Delphi%EF%BC%89

とか

**デフォルトの名無しさん** · 2017/05/26(金) 10:13:55.43

>>351
iOSだけ特殊な感じ？変なの。
LongIntとLongWordは使わないほうがよさげですね。何でこんな変な仕様にしたんだろ。

**デフォルトの名無しさん** · 2017/05/26(金) 10:22:32.82

あ、iOSにはLinux系も含まれるんですか？
その辺のあやふやさも嫌な感じですね。

**デフォルトの名無しさん** · 2017/07/06(木) 10:33:45.10

シンエディットでプロシージャの名前とファンクションの名前を色分けするような使い方をしたいのですが、
シンジェネラルに設定するキーワードの種類を増やす事はでききませんか?
継承してシンジェネラルも自分で作らないと無理でしょうか?

**デフォルトの名無しさん** · 2017/07/06(木) 10:47:02.39

シンエディットて何？

**デフォルトの名無しさん** · 2017/07/06(木) 12:16:18.45

SynEditのことらしい
これをカタカナで書く感覚が分からん

**デフォルトの名無しさん** · 2017/07/06(木) 13:00:39.86

すまん。
あんまり、キーボードとかスマフォの画面とか触れないから音声のやつで入力した。

**デフォルトの名無しさん** · 2017/07/06(木) 16:56:40.09

キーボードが苦手なプログラマw

**デフォルトの名無しさん** · 2017/07/06(木) 19:47:25.65

>>358

**デフォルトの名無しさん** · 2017/07/08(土) 15:11:41.17

これがアスペか・・

**デフォルトの名無しさん** · 2017/07/30(日) 22:35:33.76

昔MCIをいじっていた者です。覚えている人いるかな？
4年くらいメソッドを書いてなくて、送るでwavを聞きたいなって思って久しぶりにコンパイラを触りました。
何をするソフトなのかというとフォームに対してD&DしてＴＬｉｓｔにD&D元のファイルのフォルダの
ファイル名を取得するソフトなんですが、なぜうまくいかないかわからなくて…。
指摘していただければ幸いです。

**デフォルトの名無しさん** · 2017/07/30(日) 22:37:14.18

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,ShellAPI, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
function SearchFile(SearchDir: string):integer; //SearchDir 検索対象のフォルダ
{ Private 宣言 }
protected
procedure FilesDropped(var Msg1:TWMDropFiles); message WM_DROPFILES;
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

**デフォルトの名無しさん** · 2017/07/30(日) 22:38:16.16

procedure TForm1.Button1Click(Sender: TObject);
var
FileCount :integer;
begin
ListBox1.Clear;
//実行ファイルのあるディレクトリのファイルを列挙
FileCount :=SearchFile(ExtractFilePath(Application.ExeName));
ShowMessageFmt('%d個のファイルが見つかりました。',[FileCount]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, TRUE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, FALSE);
end;

**デフォルトの名無しさん** · 2017/07/30(日) 22:38:43.85

procedure TForm1.FilesDropped(var Msg1:TWMDropFiles);
var
FNameSize: UINT;
Count : UINT;
FileName : array[0..255] of Char;
FileName1: string;
begin
FileName1 := '';
try
Count := DragQueryFile(Msg1.Drop, $FFFFFFFF, nil, 0 );// A
if Count > 1 then Abort; // B
FNameSize := DragQueryFile(Msg1.Drop, 0, nil, 0) + 1; // C
DragQueryFile(Msg1.Drop, 0, FileName, FNameSize); // D
Filename1 := StrPas(FileName); // E
finally
DragFinish(Msg1.Drop); // F
end;
if FileName1 = '' then Exit;
label1.Caption := Filename1;
end;

end.

**デフォルトの名無しさん** · 2017/07/31(月) 00:52:16.24

とこでfmxアプリをタスクトレイに収める方法はないですか？

探すとロシアのサイトにコンポーネントがあったけど
他に方法はないでしょうか？

**デフォルトの名無しさん** · 2017/07/31(月) 05:54:29.90

>>365
Windows専用だけどいい？

**デフォルトの名無しさん** · 2017/07/31(月) 08:21:01.65

>>366
ええもちろん

例えばバックグラウンドでネットにアクセスして
通知したりポップアップしたりする感じ

Androidだとserviceを使うんでしょうが
Windowsデスクトップだとタスクトレイに
常駐させるくらいしか思いつかない

こういうWindowsアプリをfmxで作る場合
どうするんでしょうか？

**デフォルトの名無しさん** · 2017/07/31(月) 12:56:22.59

>>367
WinAPI.WindowsをUSESしてタスクバーから消したいアプリケーションのHWND取得してShowWindow(HWND,SW_HIDE);をぶちかます

タスクトレイにアイコン表示させたりする場合はコード記述でもできるけど面倒だからMonkeyMixerか何か使ってVCLを混在させてTTrayIcon使う

**デフォルトの名無しさん** · 2017/07/31(月) 18:38:00.55

>>368
ありがとう

MonkeyMixerを調べて見ます

**デフォルトの名無しさん** · 2017/08/01(火) 10:29:01.65

TTrayIconはVCL依存がほとんどないから、切り出して使った方が余計なユニットがリンクされなくていいと思う
自分はそうしてる

**デフォルトの名無しさん** · 2017/08/13(日) 13:54:41.72

教えてください。

fmxで矩形以外の多角形領域を
Bitmap(.Canvas)間でコピーするには
どうしたらいいでしょう？

Helpを探したんですが見つけられませんでした

苦肉の策で矩形領域を別のBitmapにコピーし
対象の多角形領域外を完全透過に塗りつぶして
それを最終的に目的のBitmapにコピーしてます

よろしくお願いします

**デフォルトの名無しさん** · 2017/08/26(土) 22:45:11.62

fmxねぇ...

実行ファイルのサイズが
vclの倍以上になるのはビックリ

でもvirustotalなんかでの誤検知は
確実に減るな

**デフォルトの名無しさん** · 2017/08/29(火) 17:10:04.07

DBCtrlのKeyPressメソッドで出てくる
^H　 ^V　 ^X
とかって何を指してるんですか？それぞれ16進で、8,16,18の値なんですが。
ポインタの逆参照以外で ”^” の使い方はヘルプにも無いのですが。

**デフォルトの名無しさん** · 2017/08/29(火) 17:11:49.45

H 48h
V 56h
X 58h
ctrl+H で 08h
ctrl+V で 16h
ctrl+X で 18h

**373** · 2017/08/29(火) 17:15:51.90

>>374
コントロールキーを押しながら…の記述に ”^” を使うということですか。
ありがとうございます。

**デフォルトの名無しさん** · 2017/09/20(水) 09:56:54.97

ちょっと教えてください

ジェネリクスなTListにレコード型を格納しておいて
後でレコード内の一部のフィールドを修正したい場合
どうすればいいんでしょうか

やっぱレコード全体を取り出して、修正後に全体を書き戻す？

**デフォルトの名無しさん** · 2017/09/21(木) 21:39:40.01

うまくいくかはわからないが、
lst: TList<THoge>なリストがあるとして、

for i :=0 to lst.Count-1 do begin
lst.List[i].SomeField := v;
end;

のように、レコードのコピーが発生しないようにすればもしや。

**デフォルトの名無しさん** · 2017/09/22(金) 00:31:23.41

デフォルトプロパティ List[i] に相当する List.Items[i] の
read関数 function TList<T>.GetItem(Index: Integer): T; は、戻り値が
左辺値ではないので、どうしても一時変数が必要です。

**デフォルトの名無しさん** · 2017/09/22(金) 07:31:05.69

>>378
Itemsプロパティではなく、内部で管理している配列を直接返すListプロパティを介してもテンポラリーのコピー発生するんだっけ？
ちょっとうろ覚え。

**デフォルトの名無しさん** · 2017/09/23(土) 14:45:31.84

Delphi 10.2 Update 1で実行しています。

log.d('error だめぽ');

上記コードをiPhone実機で実行して
Xcode -> Window -> Devicesに表示されている実機のログを確認すると
以下のように全角文字が文字化けします。

2017/09/23 14:35:21 Project1[7478]: error \M-c\M^A\240\M-c\M^B\M^A\M-c\M^A\M-=

解決策をご存知の方がいらっしゃいましたらお助けくださいませm(_ _)m

**デフォルトの名無しさん** · 2017/09/23(土) 23:58:16.42

エスケープ文字をデコードすると e3 81 a0 e3 82 81 e3 81 bd なので、UTF-8 ですかね。
エスケープ文字への変換がログの前後かは切り分けてみましょう。od -x で16進表示すると、
\M-c のところが、e3 なのか 5c 5d 2d 63 なのかでわかるでしょう。
前者なら、ログを出力するツールの性格（ASCII以外は変換とか）、
後者ならコンソールへ出力するツールの変換ですかね。
前者なら、デコードツールでも作ってみれば。
\Mは、0x80を or するメタキーを併用したキー入力の名残りで、Emacs/GNU系の方言です。
\M-c は 0x80 + 'c' = 0xe3 、\M^A は 0x80 + 0x01 (Control-A) = 0x81、\240は8進表記なので 0xa0

**380** · 2017/09/24(日) 08:50:50.85

>>381
詳細に解説いただきありがとうございます！

>\M-c のところが、e3 なのか 5c 5d 2d 63 なのかでわかるでしょう。

od -xのやり方が分からなかったのでログをテキストで保存して
バイナリエディタで確認したところ5c 4d 2d 63でした。
これは表示する側の問題ということですよね？

あの後、XCodeでNSLogでデバッグログを出力する簡単なプログラムを書いて確認したところ
XCode上のデバッグコンソールには日本語が文字化けしないで出力されますが
Xcode -> Window -> Devicesに表示されている実機のログでは日本語が文字化けしたので
表示側の問題なのかなと思います。

日本語が表示できないのは不便なので解決できるとうれしいですが
こういう場合、難しいのでしょうか。

**デフォルトの名無しさん** · 2017/09/24(日) 19:16:16.23

>>382
面倒だから試してないけど
NSstr使うとかAnsiStringに一旦格納して出力するとか

**381** · 2017/09/25(月) 02:46:48.72

しまった。前後逆でした。e3 のままなら無変換。

で、ちょっと古いけどXcode6.3.2+ios8.3では日本語表示できてます。

**380** · 2017/09/25(月) 08:55:47.22

>>383
ご回答ありがとうございます！
NSstrを使ってlog.dで出力しようとするとコンパイラに怒られてしまいましたorz
AnsiStringを試したところ出力文字は変化しましたが文字化けは改善されませんでした。

>>384
ご回答ありがとうございます！
なるほど。
現在の環境がXCode8.3 + iOS8.3なので少し古いXCodeを使って試してみようと思います。

**デフォルトの名無しさん** · 2017/09/27(水) 10:22:25.25

iOSってTBannerAdを使ってAdmob表示できないんですか？
docWiki見たらiOSはiAdを使う前提の説明しかなくて・・・

**デフォルトの名無しさん** · 2017/10/17(火) 09:08:55.23

Delphi10.2ってxcode9.0に対応してる？

**デフォルトの名無しさん** · 2017/10/24(火) 09:26:42.32

すみません。どうしたりいいのか分からずに書き込みさせてください。

**デフォルトの名無しさん** · 2017/10/24(火) 09:43:54.24

？

**デフォルトの名無しさん** · 2017/10/24(火) 20:03:21.48

もちつけ！

**デフォルトの名無しさん** · 2017/10/25(水) 11:38:12.62

したり顔

**デフォルトの名無しさん** · 2017/10/30(月) 20:24:16.10

お伺いします。
https://www.axfc.net/u/3858375?key=delphi
アーカイブpass=123456

ですが、AというフォルダにB.zipC.zipD.zip・・・というファイルが入っています。
これにB.zipというファイルをフォームにD&Dで落とすと
1：q:\A\B.zip
2：q:\a
3：q:\a\
と表示されます。
そして、Button1を押すとバイナリがあるフォルダのファイルの数を報告します。
欲しい機能はB.zipをフォームにD&DをしたときにC.zip,D..zip
のAフォルダ内のファイルのすべてをListBox表示に表示させるにはどうしたらよいでしょうか?

最近いろいろやっているのですが、今ひとつ解決できないため、
教えていただけないでしょうか?

**デフォルトの名無しさん** · 2017/10/30(月) 22:19:56.32

>>392
TDirectory.GetFilesとExtractFilePath

**デフォルトの名無しさん** · 2017/11/02(木) 18:58:25.38

すみません。エロい方教えてください。

s := 'ABC'#13#10;

という文字列を、SJISの16進文字列に変換して、
　 '4142430D0A'
にしたいのですが、やり方がわかりません。
どう書けばよいのでしょうか？

**デフォルトの名無しさん** · 2017/11/03(金) 11:14:14.85

これか？
つ http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Classes.BinToHex

**デフォルトの名無しさん** · 2017/11/04(土) 21:02:07.27

D5でよければこんな感じでできるかな

procedure TForm1.FormCreate(Sender: TObject);
var
s, s2: string;
i: Integer;
begin
s := 'ABC'#13#10;
s2 := '';
for i := 1 to Length(s) do
begin
s2 := s2 + IntToHex(Ord(s[i]), 2);
end;
ShowMessage(s2);
end;

**デフォルトの名無しさん** · 2017/11/05(日) 18:50:55.45

>>396
Delphi6でできました。ありがとう。
これ、XE5でも動くのかな？

**デフォルトの名無しさん** · 2017/11/06(月) 21:01:49.83

>>397
自分で試すこともしないのか
試すことができないなら気にしなくてよくないか

**デフォルトの名無しさん** · 2017/11/06(月) 21:26:18.10

すみません。
気にしなきゃいけない状況です。
で、XE5は今環境がないのです。。。
（仕事場が２つあり、いまXE5がない方に常駐しているので）

**デフォルトの名無しさん** · 2017/11/07(火) 07:05:35.29

>>399
じゃあ行ってから試せ

**デフォルトの名無しさん** · 2017/11/07(火) 21:49:52.73

xcode9に対応した？

**デフォルトの名無しさん** · 2017/11/23(木) 12:24:47.52

firemonkeyって一度置いたコンポーネントって削除できないの？

**デフォルトの名無しさん** · 2017/11/23(木) 14:00:39.62

>>402
そんなバナナ

**デフォルトの名無しさん** · 2017/11/23(木) 14:01:03.28

猿だけに…

**デフォルトの名無しさん** · 2017/11/23(木) 23:05:31.51

　　　　　　　　 .┌┐
　　　　　　　　／ /
　　　　　　.／　/ i
　　　　　　|　( ゜Д゜)　
　　　　　　|（ノi　　|）
　　　　　　|　 i　　i
　　　　　　＼_ヽ＿,ゝ
　　　　　　　 U" U

**402** · 2017/11/24(金) 21:05:42.06

imagelistを使うと削除できないみたいです。

選択範囲には継承されたコンポーネント ImageList1 が含まれているため削除できません。.

これって返品で金返してくれないかな

**デフォルトの名無しさん** · 2017/11/24(金) 22:59:59.51

>>406
うちではそんな現象出ないけどバージョンは？

**デフォルトの名無しさん** · 2017/11/25(土) 01:36:58.01

>>406
お前それTFrameの中にあるやつを継承先から削除しようとしてんじゃねーの

**デフォルトの名無しさん** · 2017/11/25(土) 08:22:38.33

すーぐ返金返金言うてからに

**402** · 2017/11/25(土) 09:22:54.97

皆さ、レスありがとうございます。
バージョンは10.2です。
試した感じではボタンだけの貼り付け、削除はできる。
ImageListはListに画像を追加すると削除できなくなります。
その状態になるとボタンの削除もできなくなります。
ImageListの画像リストを削除してもダメです。
Delphiはそんなに触ってないので設定は初期値のままです。

**デフォルトの名無しさん** · 2017/11/25(土) 09:23:27.60

何か最近ヘルプ表示したままdelphi終了しようとすると
ヘルプの終了処理に手間取ってdelphiがなかなか終了しない

心当たりはFCUへのアップデートとMS VisualStudioの再インストールだが...

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

firemonkeyで正規表現ってできる?

**デフォルトの名無しさん** · 2017/11/26(日) 17:35:26.15

>>412
できる

**デフォルトの名無しさん** · 2017/11/26(日) 18:29:30.48

ググったけどdelphiの正規表現しか出てこないです。
サイトとか教えてください。

**デフォルトの名無しさん** · 2017/11/26(日) 20:24:03.68

>>414
System.RegularExpressions

**デフォルトの名無しさん** · 2017/11/26(日) 21:19:52.87

有難うございます。

**デフォルトの名無しさん** · 2017/11/30(木) 11:55:54.04

TRegistryをもちいて、
レジストリの情報を拾いたいのですが、

レジストリ
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanesers\Eras

ひろいたい情報
名前、データ
1868 01 01, 明治_明_Meiji_M
1912 07 30,大正_大_Taisho_T

const
AppKey='\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanesers\Eras';
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey(AppKey,False) then begin

この後どうすればいいんでしょう？

Reg.GetValueNames(MEMO.Lines);

としてもMEMOには何もかえってこないのです。

**デフォルトの名無しさん** · 2017/11/30(木) 16:38:33.08

キーが違うようです。
AppKey='\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras';

**デフォルトの名無しさん** · 2017/11/30(木) 17:26:14.42

>>418
その通りでした。
Reg.OpenKey　で戻りを気にしていなかったので、悩み続けてしまいました。
ありがとうございます。感謝です。

**デフォルトの名無しさん** · 2017/12/08(金) 21:17:46.94

誰か行かないの？
https://techplay.jp/event/639177
https://techplay.jp/event/641383

**デフォルトの名無しさん** · 2017/12/11(月) 15:09:59.51

Calender、Japaneseもわかってない人は論外

**デフォルトの名無しさん** · 2017/12/12(火) 16:52:51.98

昔あったdelphiのフリーコンポーネントを集めたサイトって無くなっちゃた？

**デフォルトの名無しさん** · 2017/12/12(火) 18:31:07.66

古くからのDelphiコンポーネントが全て置いてある
アーカイブ的なサイトってないんだろうか

**デフォルトの名無しさん** · 2017/12/12(火) 21:12:25.60

ふと思ったけどTImageListじゃなく
TSoundListコンポーネントってない？
用途はありそうだが

てかTImageListってどういう仕組みで
画像を保持してるんだろう

**デフォルトの名無しさん** · 2017/12/14(木) 09:04:39.76

DSPとかtorrysとか懐かしいな

**デフォルトの名無しさん** · 2017/12/24(日) 16:19:13.24

Tetheringコンポーネントを使ってアプリ間データ共有を試してるんだけど
コンポーネントをフォームに置くだけでusesに追加される
IPPeerClient/Serverファイルがないって怒られるんだけど

Starterだと実はTetheringコンポーネントは使えない？

**デフォルトの名無しさん** · 2017/12/24(日) 16:33:23.07

>>426
テザリングの項目がStarterは空欄になってるから多分使えない

**デフォルトの名無しさん** · 2017/12/24(日) 19:06:27.16

>>427
そうだよね

だったらTetheringコンポーネントなんか
選択できなくすればいいのに

ただSystem.Tether.*.dcuはすべて揃ってるぽいんだよな