くだすれ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/?

**736 関数化** · 2019/01/24(木) 06:22:34.57

関数化したものを分けて書こうとすると
Sorry, you have been blocked
You are unable to access 5ch.net

>744　変更
i64 := i64 - $08C1220247E44000;
// Int64 → 2bit String に変換
TextStr := Int64ToBin(i64,False); // 他者さんの参照外部関数を改変
// 上位2bit 文字で utc(1)00, local(2)10 を判定後削除
// 上位ゴミ'0'削除

// i64 := 残りを 10進数数値に変換

**736 関数化** · 2019/01/24(木) 06:38:11.74

function DotNf64bitHexToDateTimeStr(Str8bytesHex : String; Flg,MS : Boolean) : String; // 8 Bytes Hex , Flg check , ms on(True/False)off
（省略 >744冒頭部分近似）
// i64 := 残りを 10進数数値に変換
ib := 0; // 頭"i"Int
ea := 0; // 頭"e"Extended
ilen := Length(TextStr);
for ia := ilen downto 1 do
begin
iBin := StrToIntDef(TextStr[ia],0);
ea := ea + ((power(2,ib)) * iBin);
ib := ib + 1;
end;
i64 := Trunc(ea / 10000); // ミリ秒単位化
ULDateTime := StrToDateTime(DateTimeStr);
ULDateTime := IncMilliSecond(ULDateTime,i64);
if MS then DateTimeStr := FormatDateTime('YYYY/MM/DD HH:MM:SS.ZZZ',ULDateTime);
if MS = False then DateTimeStr := FormatDateTime('YYYY/MM/DD HH:MM:SS',ULDateTime);
end;
if Flg then DateTimeStr := UL + DateTimeStr;
DotNf64bitHexToDateTimeStr := DateTimeStr;
end;
end.

**736 関数化** · 2019/01/25(金) 06:18:32.24

補足

i64 := StrToInt64('$' + Str8bytesHex);
// Int64 → 2bit String に変換　'Int64ToBin' で検索先
// 上位2bit 文字で utc(1)01, local(2)10 を判定
i64 := i64 - $08C1220247E44000;
// Int64 → 2bit String に変換
// 上位ゴミ'0'削除
// i64 := 残りを 10進数数値に変換

流れをこうしないと年日時の結果は同じでも
指定なし(0) 上位2bit 文字 '00' の場合
差し引き結果から'01'のutc判別となってしまう。

**デフォルトの名無しさん** · 2019/01/26(土) 12:43:51.03

DocWikiの内容をzipファイルか何かで一括ダウンロードする方法あったら教えてください

**デフォルトの名無しさん** · 2019/02/10(日) 07:14:24.28

古いD6をまだ使っているが、エディタは VScode にDelphi extension入れて
使っている
デバッグはD6のIDEでやるしかないけど、両方立ち上げておけば
まあ使えますね

**デフォルトの名無しさん** · 2019/02/10(日) 10:26:35.22

俺もD6で、秀丸でコーディングしていたが、VSodeに切り替えてみようかな。
VSCodeは他の言語で使ってるので。

**デフォルトの名無しさん** · 2019/02/10(日) 18:01:50.44

VScodeの注意点：　別PCのファイルを開くと、変更が反映されない事象あり
自動保存されるけど、書きなおしたやつをまた開くと直っているように見えるのに、
実際は直ってないとか。　意味不明

**デフォルトの名無しさん** · 2019/02/10(日) 20:08:43.74

>>751　あっちとこっちで同時にファイル開いてたせいみたい

**デフォルトの名無しさん** · 2019/02/17(日) 19:49:40.12

別に今必要な事じゃないんだけど
エクスプローラーのファイル名で並べたら

ファイル1
ファイル2
・・
ファイル10

って並ぶでしょ。これどんなロジックなんだろ
スマートな方法が思いつかないし興味ある

**デフォルトの名無しさん** · 2019/02/17(日) 21:28:00.77

自分は自作ソフトで似たようなことやってるけど
1文字単位での比較で数値同士の比較の場合に、その先の数値じゃなくなる前まで読んで整数にして比較ってしてる
小数点以下は1文字単位での比較として扱うので整数にしない

ただ　第11話　最終話　のような場合のロジックが面倒

**デフォルトの名無しさん** · 2019/02/19(火) 06:54:39.26

VisualStudioでDelphi使えないかなぁ

**デフォルトの名無しさん** · 2019/02/19(火) 08:12:14.24

Delphi Community EditionとC++Builder Community Editionは同時にインストールできないんだな。

**デフォルトの名無しさん** · 2019/02/19(火) 09:38:23.94

>>753
例えばこういうのは？
ファイル名文字列をバイト単位で数値化して加算
f0 = 0x65 + 0x30 = 101 + 48 = 149
f1 = 150
f2 = 151
f01 = 0x65 + 0x30 + 0x31 = 198
数値化した値で降順ソート

つまり
格納されてるファイル名を文字ではなく文字コードの数値合計でソート

**デフォルトの名無しさん** · 2019/02/19(火) 09:58:03.22

補足
f01 = 0f1 = 1f0 になってしまうので
f(filename)文字列の桁数 len:=length(f) で文字列制限を設けて
for i:=1 to len do
if i<10 then a:=a+Ord(f[i])*10 else a:=a+Ord(f[i]);
適当処理

**753** · 2019/02/19(火) 16:58:58.81

有り難うございます
おもしろい・・・

**デフォルトの名無しさん** · 2019/02/19(火) 17:54:17.46

>>757
それだと

abcd5.txt
bbcd1.txt
というファイルがあった場合に

bbcd1.txt
abcd5.txt
という並び順になっちゃうんじゃね？
あくまで"文字列"＋"数値"　というファイル名に対して"文字列"で比較し、"文字列"が同一なら"数値"で比較する必要があると思うが

>>754の場合、数字が文字列の一部だった場合に正しくソートされないって問題があるけど
そういう場合のファイル名はあまり意味がないから気にしないようにしている
それと先頭が数字の場合は文字列の一部として扱ってる

**デフォルトの名無しさん** · 2019/02/19(火) 19:07:51.51

StrCmpLogicalW

**デフォルトの名無しさん** · 2019/02/19(火) 19:34:05.73

自分の場合、壱弐参なんてのも数値として扱うようにしている（したい）からAPIだと望んだ結果を得られない
「数値もしくは数値に変換可能なもの」同士の比較の場合だけ整数として比較してる

**デフォルトの名無しさん** · 2019/02/21(木) 17:17:10.52

begin
　　var
　　　　i: Integer;
　　i := 0;
end;
コードフォーマッタ使うとこうなってしまうのだけどvarのあとで改行しない設定ってどこ？

**デフォルトの名無しさん** · 2019/03/12(火) 15:37:42.39

ttps://qiita.com/ht_deko/items/41e95154e8da2f901698
コメ欄w

**デフォルトの名無しさん** · 2019/03/12(火) 16:19:08.39

Sorry, my bad. My memory is confused. But, so what?
I mean, the fact is you humiliate Linus and Kernighan in such a way that they never know such a thing as you said.

たしかに恥ずかしい

**デフォルトの名無しさん** · 2019/03/14(木) 12:21:21.05

結局なんだったのアレ？

**デフォルトの名無しさん** · 2019/04/02(火) 23:02:52.38

ちょっと教えてほしいんですが、社内イントラネット環境で50台くらいのクライアントPCと
1台のサーバーで双方向に情報をやり取りするVCLフォームアプリを作りたいですが
Delphiだと何使って構築するのが良いのでしょうか？
上からの命令でDelphi使うことなって調べてみたんですが、検索するとDataSnapとか
RESTとかのキーワードが出てきますが自分の経験がDelphi7でストップしていて
現状についていけてません。よろしくおねがいします。

**デフォルトの名無しさん** · 2019/04/03(水) 02:20:05.63

>>767
情報のやり取りだけでは何とも言えんなー
それだけの要件だとIndyかWinsocksで通信したらええんちゃうってなる

**デフォルトの名無しさん** · 2019/04/03(水) 05:47:42.38

ふつーにIISで鯖立てて、httpでやりあえばよくね？

**デフォルトの名無しさん** · 2019/04/03(水) 06:04:14.50

CのDLLは普通にDelphiでも使える。
つまりcurlとかも普通に選択肢になると思う。

**デフォルトの名無しさん** · 2019/04/03(水) 09:22:36.44

なんでDelphiが指定されたんだろう？
今まで使ってた訳じゃないのに

**デフォルトの名無しさん** · 2019/04/04(木) 06:32:46.99

ネィティブ系だと実質C++かDelphiかの選択肢しかなくね？

**デフォルトの名無しさん** · 2019/04/04(木) 19:27:06.29

そだねー

**デフォルトの名無しさん** · 2019/04/12(金) 06:11:32.75

>>767
Firebird + Apache + SOAP

**デフォルトの名無しさん** · 2019/04/12(金) 06:17:57.84

>>753
[Delphi]Windows XPの規則（自然順ソート・natural sort・natural ordering)ででファイル名をソートする
https://www.gesource.jp/weblog/?p=5947

**デフォルトの名無しさん** · 2019/04/26(金) 08:30:46.09

>>767
https://www.embarcadero.com/jp/products/delphi/starter
Community Editionで使えるか試してみ

**デフォルトの名無しさん** · 2019/04/26(金) 08:31:55.46

>>774
DBはPostgreSQLかMariaDB

**デフォルトの名無しさん** · 2019/05/06(月) 11:11:11.14

UnZIP32.DLLとかUnRAR32.DLLでRARファイルの操作する場合の質問です
例えば

BOOL WINAPI UnrarCheckArchive(LPCSTR szFileName,const int iMode);

と定義されてるUnrarCheckArchive関数をDelphiで定義すると

UnrarCheckArchive: function(szFileName: LPCSTR; const iMode: integer): Boolean; stdcall;

こんな感じなって通常はこれで問題ないのですが、
Unicode文字（バ、ガなどの濁音とか）が混じってるファイル名の場合上手く行きません

szFileNameがLPCSTRだからAnsiString扱いなのでUnicodeのファイル名を渡せないのもの当然なのですが、
なにかプログラム側でできる回避策はないでしょうか？

**デフォルトの名無しさん** · 2019/05/06(月) 12:25:07.78

>>778
使用しているdelphiのバージョンを書いてください。
delphi2009前か後かで回答が変わるかもしれないからです。

UnrarChechArchive関数の仕様に基づいて型キャストしてやれば良さそうな気がします。
例えばnull終端wide stringという仕様なら、渡すファイル名をまずPWideCharにキャストして、さらにPAnsiCharにキャスト。

**デフォルトの名無しさん** · 2019/05/06(月) 13:23:28.45

>>779
レスありがとうございます
使用してるDelphiは2010です

＞UnrarChechArchive関数の仕様
szFileNameはLPCSTRなので32ｂｉｔ系のDLLではnull終端のAnsiChar配列（のポインタ）になってると思います

＞渡すファイル名をまずPWideCharにキャストして、さらにPAnsiCharにキャスト。
var
Path : string;
UnrarCheckArchive(PAnsiChar(PWideChar(Path)), 0);

この型キャストでは残念ながら上手く行かないようです

**デフォルトの名無しさん** · 2019/05/06(月) 20:04:43.46

LongFileNameをShortFileNameに変換すると
幸せになれる

**デフォルトの名無しさん** · 2019/05/06(月) 20:48:15.87

>>781
ナイスアドバイスです
GetShortPathNameで上手く行きました

おかげさまで幸せになれました
ありがとうございました

**デフォルトの名無しさん** · 2019/05/10(金) 10:35:30.18

TDateTime datetime = VarToDateTime("令和元年5月10日9時10分15秒");
今はエラーが出るんだがそのうち対応されるのか？

**デフォルトの名無しさん** · 2019/05/10(金) 20:47:06.76

FormatDateTime('ge', Now);

レジストリに令和を加えてから上記を実行すると令1 って出るね

**デフォルトの名無しさん** · 2019/05/11(土) 03:08:09.14

いずれWindowsアップデートで対応するらしい
https://support.microsoft.com/ja-jp/help/4469068/summary-of-new-japanese-era-updates-kb4469068

コマンドプロンプトでこれを実行するとレジストリに追加される
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras /v "2019 05 01" /t REG_SZ /d "令和_令_Reiwa_R"

**デフォルトの名無しさん** · 2019/05/12(日) 18:37:34.16

vsIconかつAutoArrangeのListViewで、両端のアイテムを選択した状態で左右キーを押すと、
エクスプローラーなら上下の列に移動しますが、DelphiのTListViewだと無反応です
これをエクスプローラーに準拠の動作をさせるにはどうすればよいのでしょうか？

**786** · 2019/05/15(水) 06:10:55.25

自己レスです
通常方向キーなどはVCL側で処理されてOnKeyPress、OnKeyDownなどではトラップできないので、Windowsメッセージを直接トラップすることでエクスプローラー準拠にできました

procedure WMKEYDOWN( var Msg : TWMKEYDOWN ); message CM_CHILDKEY;

procedure TForm1.WMKEYDOWN(var Msg: TWMKEYDOWN);
begin
case Msg.CharCode of
VK_LEFT :
左端か判別して左端なら上の列の右端に移動してResult := 0;
VK_RIGHT :
右端か判別して右端なら下の列の左端に移動してResult := 0;
end;
inherited;
end;

**デフォルトの名無しさん** · 2019/05/15(水) 06:39:29.51

訂正

Result := 1;でした

**デフォルトの名無しさん** · 2019/05/26(日) 19:04:45.15

開発環境だと問題ないのですが
実行したいPCだと
「プロバイダーが見つかりません。正しくインストールされていない可能性があります。」と警告が出ます。
いくつかのDLLを使ってます。
どこから調べれば良いか？？？です。
開発環境は XE3 です。

何かヒントでもありませんか？

**デフォルトの名無しさん** · 2019/05/26(日) 20:54:01.76

>>789
メッセージググればそのまま出てくるけどVBA関連では？
こことか
https://ameblo.jp/realsystems/entry-11946216560.html

**デフォルトの名無しさん** · 2019/05/26(日) 21:22:58.51

有り難うございます
警告メッセージは最初にググったのですがﾋﾟﾝとくる書込は見つけられませんでした
VBAは使ってないし・・
開発環境 Win7 x64 、実行環境 Win10 x64 です。
当初はそんな警告出てなかったのですがﾃﾞﾊﾞｯｸﾞしてるうちに出るようになりました

困った・・・

**デフォルトの名無しさん** · 2019/05/27(月) 06:55:38.20

とりあえず、「動いている状態」ってのに戻してみたらどうかね？
それが再現できるなら話は簡単になる

**デフォルトの名無しさん** · 2019/05/27(月) 09:20:16.88

ｺﾒﾝﾄ感謝します
DLL参照のプロパティ値代入を1行追加してから症状が出るようになった気がするのですが（自信なし）
それをコメントアウトしても症状が消えません
開発環境では出ないので厄介です
Delphiがタイプライブラリを自動で追加したりとかしないですよね？

**デフォルトの名無しさん** · 2019/05/27(月) 09:39:37.30

そうじゃなくて、前の状態のファイルとかシステム一式をバックアップから取り出せないの？
自動でバックアップしながらじゃないとソフト開発は効率わるいよ。

**デフォルトの名無しさん** · 2019/05/27(月) 11:28:59.51

お付き合いホントに有り難うございます
開発環境と実行環境が 1時間の移動距離にあるので
今現在出来てるテストが上記の書込でした
開発ファイル群は毎日のバックアップがあります
先ず、手元に現象を再現できる環境を構築しようと思ってます。

1度ビルドするとソースの変更点をコメントアウトしても元に戻らない
「何か」が有る可能性はあるのでしょうかね？

**デフォルトの名無しさん** · 2019/05/27(月) 12:32:39.96

どうせADOとかOLE DBとかそっちの問題だろ？

**デフォルトの名無しさん** · 2019/05/27(月) 13:08:16.22

>>795
四の五の言ってないでデータベースドライバ入れろ

**789** · 2019/05/27(月) 16:22:46.11

コメント有り難うございます

データベースドライバは入っています
入れ直すということでしょうか？

先の警告メッセージが出たあとOKを押すと一見正常に動作しているように見えます。
そもそも警告が出始める前は一通り正常に動作していました。

原因がわかりません。
旧ソースをビルドし直してテストしてみます。

**デフォルトの名無しさん** · 2019/05/27(月) 20:19:06.04

データベースドライバが32bitか64bitなのかが開発環境と実行環境で違ってたら
そんなようなエラーが出たような気がするが

**789** · 2019/05/27(月) 20:33:13.36

>>799
コメント心から感謝します

警告メッセージをググるとそんなことも書いてありました
只当初は問題なく動作していたので途中でドライバーが変わるようなことも考えにくいですよね
Delphiで書いた実行ファイル以外は一切環境を変えていませんので　謎です

**デフォルトの名無しさん** · 2019/05/28(火) 00:25:44.07

32bit用ドライバ → system32 に入れる
64bit用ドライバ → wow64 に入れる

こういう勘違いをしてるアホは時々見かける

**デフォルトの名無しさん** · 2019/05/28(火) 00:29:31.95

そういう命名にしたMSが最高のアホだろ

**デフォルトの名無しさん** · 2019/05/28(火) 08:25:10.69

アプリのバージョンを表示するコードが上手く行かないんで悩んだがどうやらデバッグ版とリリース版でバージョン情報が共有されない仕様になったんだな
デバッグ版、リリース版でそれぞれバージョン情報をオプション設定しなきゃならないんで面倒くさいわー
デフォの文字コードも英語版になってるしなんかいろいろ使いにくい＞10.3

**デフォルトの名無しさん** · 2019/05/28(火) 09:12:35.07

>>800
開発環境から実行した時に、モジュールのロードで始まる dll や bpl のロード情報を
コピペしてゆっくり眺めてみる

**デフォルトの名無しさん** · 2019/05/29(水) 05:48:35.44

begin
TStringList.Create.Add('メモリリークした');
end;

このメモリリークの型、内容、ソースコードの場所を検出してくれるツールで
フリーかつDelphi10.3で使えるものって何があるますか？

**デフォルトの名無しさん** · 2019/05/29(水) 11:15:02.18

>>805
これじゃあかんの？

EurekaLogでDelphiアプリケーションのメモリリークを検出する – 山本隆の開発日誌
https://www.gesource.jp/weblog/?p=4834

**デフォルトの名無しさん** · 2019/05/29(水) 12:20:29.95

くたばれDelphiに見えた

**デフォルトの名無しさん** · 2019/05/31(金) 07:36:06.37

僕が高校生の頃の記事を紹介されても・・・

**デフォルトの名無しさん** · 2019/05/31(金) 11:36:16.19

ところでandroidのメモリリークって
どうやって検出するの？
少なくとも標準のを書いておいても
今まで報告されたことないんだが

**デフォルトの名無しさん** · 2019/06/04(火) 18:44:33.74

＞フリーかつDelphi10.3で使えるもの

バージョンアップについていけなくて大半の外部ツールやVCLは死亡中
有料ですら10.3に対応してないものが多い

**デフォルトの名無しさん** · 2019/06/04(火) 22:27:56.89

Delphiって有志による外部ツールやVCLで成り立っている文化なのに
メーカーはなんでそのことを理解してないんだろうなあ

**デフォルトの名無しさん** · 2019/06/05(水) 13:40:38.43

バージョン表記自体もわかりにくいんだよな・・・
8からいきなり2005になったと思ったらDelphi 2010を最後にDelphi XEシリーズになってそのままいくのかと思ったらXE8でうちどめして今度はDelphi 10に
10から11～とメジャーバージョン上がっていくかと思ったらマイナーバージョンがメジャーアップデート相当でなんか末尾に都市名つけはじめたし

Delphi 10 Seattle
Delphi 10.1 Berlin
Delphi 10.2 Tokyo
Delphi 10.3 Rio

**デフォルトの名無しさん** · 2019/06/05(水) 15:20:31.40

>>811
エンバカデロが過去の歴史知らないから仕方ない

**デフォルトの名無しさん** · 2019/06/07(金) 08:09:59.63

戦争を知らない～子供たち～さ～

**デフォルトの名無しさん** · 2019/06/17(月) 18:50:44.65

RazorでVB.NET切られるかも知れないのね
まだDelphiの方がクロスプラットフォームで残るかも知れないね

**デフォルトの名無しさん** · 2019/06/19(水) 05:04:09.25

【出資】松本卓朗人工知能詐欺【注意】
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/

**デフォルトの名無しさん** · 2019/07/09(火) 19:56:00.97

質問、D6です
Clipboard関数
ANIS 半角アスキーテキスト(１行128バイト以下)をClipboard.AsTextで送らせます。
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00058.htm
を参照しました。
uses節に「Clipbrd」を追加
Clipboard.AsText := 'String変数';
これだと１秒ごとに送っているとすぐハングアップするので

AsTextより先にクリアさせるようにしてみました
Clipboard.Clear;
～処理～
Clipboard.AsText := 'String変数';
が
カウントさせてみると16回目ぐらいでハングアップしているようです。

上記の次ぎに
FormCreate内でClipboard.Create;
FormDestroy内最後にClipboard.Free;
を追加すると
79回目ぐらいで行ってハングアップします。

なにかスムーズにさせるコツみたいなのありますか？

**デフォルトの名無しさん** · 2019/07/09(火) 20:16:45.77

>>817
ハングアップ、って具体的にどうなってるの？
何かの勘違いじゃないの？

あとClipboard.CreateとClipboard.Freeは要らないと思う;

**デフォルトの名無しさん** · 2019/07/09(火) 21:09:40.47

>>817
ハングアップに対する回答ではないけど……
同じなのに入れ替える必要ないと思うので
if Clipboard.AsText <> 'String変数' then
入れた方がいいのでは？

**デフォルトの名無しさん** · 2019/07/10(水) 08:29:24.86

Lazarusで書き直してみるとかね。
D6ってユニコードAPIとかに対応してないと思うのでそれ関係じゃね？

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

Excelが起動してるとクリップボードの扱いでトラブった覚えあるけど
そういう用途じゃないよね

**デフォルトの名無しさん** · 2019/07/11(木) 18:36:12.29

＞79回目ぐらいで行ってハングアップします。

ハングアップが具体的にどういう状況かわからんので考えるだけ無駄だと思う

**デフォルトの名無しさん** · 2019/07/11(木) 21:28:58.78

てかソース見ると単純にapi呼び出してるだけだから
それってDelphiの問題なのか？

テストプログラムを他のPCで実行してチェックしてみるとかした？

**デフォルトの名無しさん** · 2019/07/12(金) 12:38:08.15

Delphi6とDelphi7のclipbrd.pas比べてみたらFClipboardとかFClipboardWindowの解放処理が追加されてるな。ひどすw

**817です** · 2019/07/12(金) 16:34:53.01

各位レスありがとうございました
>>819 ソレ入れてみます。

ソースも晒そうかとしてましたが
どこでハングアップしてるのかダミー表示させてたどり着き

結局、
クリップボードの処理いれたら顕在化したという
別の部分がエンバグしていたオチでした orz

何かクリップボード使う作法でもあるのか？と思っていたのでQしたわけです。

AsTextより先にClipboard.Clear;
FormCreate内でClipboard.Create;
FormDestroy内最後にClipboard.Free;
結果これは不要でした。

以下↓レスを書きこむ直前に↑脱したので遅くなりました
>818さん
(SSDで入れ替えXPの開発環境デスクトップと実行パソコン XPノート＆XPモバイルとは別です)
ハングアップの具体的
・作ってる物（送り側高bps GPSデータ１秒更新）Clipboard.AsText := 'String変数'; のアプリが>817 の挙動で反応しなくなり操作を受け付けなくなる。
・受け手ソフト(昔のナビ地図ソフト、デフォCOM In 4800bps / オプ Clipboard を)は反映も止るが動作は続けている。
・作ってる物(実行ファイル)を終了させるには[タスクマネージャ]から[アプリケーション]でなく[プロセス]から該当イメージ名を選んで[プロセスの終了]を行わないと終わらなくなる。

**デフォルトの名無しさん** · 2019/07/12(金) 20:44:56.01

読み手に情報が伝わらない書き方だなあ
2、3年後に自分で読んでみるといいよ

まあ関心ないからどうでもいいけど

**デフォルトの名無しさん** · 2019/07/14(日) 01:36:06.45

RADStudioで指定できるまともなフォントないの？
https://i.imgur.com/DF2S9Si.jpg
https://i.imgur.com/FBhZpX7.jpg

**デフォルトの名無しさん** · 2019/07/14(日) 17:57:44.35

>>827
他の環境（エディタ）だとちゃんと表示されるのに、って画像も提示してくれないと
そのフォントがそういうものなんだろ、としか思わない

**デフォルトの名無しさん** · 2019/07/14(日) 21:02:30.19

TrueTypeじゃないフォント使ってるのか？としか思わんな

**デフォルトの名無しさん** · 2019/09/15(日) 07:02:41.90

あるプロジェクトをまるごと新しいフォルダにコピーし
元のプロジェクトを温存したまま
新しいプロジェクトとして始めたいんですけど
IDEの機能として可能でしたっけ？

**デフォルトの名無しさん** · 2019/09/15(日) 07:23:58.99

>>830
できる

**デフォルトの名無しさん** · 2019/09/16(月) 15:08:17.96

面倒だからフォルダごと圧縮比して保存しといた

**デフォルトの名無しさん** · 2019/09/21(土) 14:34:45.15

勿論な事だけど絶対パスとか注意

**デフォルトの名無しさん** · 2019/09/21(土) 15:21:04.87

>>831
どうやってやるの？

**デフォルトの名無しさん** · 2019/09/21(土) 15:50:53.96

あるプロジェクトをまるごと新しいフォルダにコピーし
元のプロジェクトを温存したまま
新しいプロジェクトとして始めてみろ

**デフォルトの名無しさん** · 2019/09/21(土) 23:17:52.31

そうすると、新しいフォルダのソースをいじっているつもりが、元のソースを変更してしまう。
*.dskファイルは消すこと。

**デフォルトの名無しさん** · 2019/09/21(土) 23:32:02.53

>>830
できない

**デフォルトの名無しさん** · 2019/09/22(日) 19:31:31.99

丸っとコピーでプロジェクト系のファイルは修正すればいいよ

**デフォルトの名無しさん** · 2019/09/22(日) 21:18:02.00

「プロジェクトのコピーを作成する」という機能が
発売20年以上経っても実装されてないとは信じられん

**デフォルトの名無しさん** · 2019/09/23(月) 11:30:02.95

pythonでスクリプトでも書けば一発

**デフォルトの名無しさん** · 2019/09/25(水) 08:05:58.59

>>839
いらないからだよ。

**デフォルトの名無しさん** · 2019/09/25(水) 12:09:01.98

>>839
Visual Studio にそういう機能ありますか？

**デフォルトの名無しさん** · 2019/09/25(水) 15:48:30.01

いや、要るだろ普通に　別バージョンとか作りたいときに
*.dsk消せば済むことだけど標準機能であればそれに越したことはない

VSは使ったことないから知らん

**デフォルトの名無しさん** · 2019/09/25(水) 16:33:22.57

てか初心者がプロジェクトの別名保存を誤解して
大変なことになりそう

自分もそうだったけどね