くだすれDelphi(超初心者)その28

procedure TForm1.Button1Click(Sender: TObject);
begin
　flag := Random(15);
　ShowMsg(Format('%d-%d', [count,flag]));
　Inc(count);
end;

こういうことじゃないのか？

＞格納して出し入れしたい

ｴﾛｽ

>>951

あはっ、そうでした。たんに配列を使うだけでしたね。>>948 で解決ですよね。

CheckBox1.Checked := True　って値を入れると
CheckBox1のOnClickイベントが発生しちゃいますよね

OnClickイベントを通らずに、CheckBox1.Checkedの値を変更したいんですけど、
何か良い方法があればご教授おねがいします

CheckBox1がForm1に貼り付けられているとして、
メンバー変数にブーリアン値を用意する。
で、それを起動時にfalseにでも初期化して、
CheckBox1のChecked値を変える直前にそのブーリアンをtrueにして、
変更したらブーリアンをfalseに戻す。
OnClickイベント内では、最初に、ブーリアンをチェックして、trueならexitする。

＞９５６
begin
　CheckBox1.OnClick := nil;
　CheckBox1.Checked := True;
　CheckBox1.OnClick := CheckBox1Click;

>>957-958
ありがとうございました。うまく動きました。
958さんの方法をお借りしました。
957さんの方法のほうが分かりやすいんですけど、あまり変数は増やしたくなかったんで。
でもいろんなものに応用は利きそうですね。

脳みそにしわが１本増えました。どうもです。

そろそろ次スレの季節でございます．とりあえずテンプレを貼りますのでご意見よろしくお願いします．すいませんがまた連投いたします．
タイトル：くだすれDelphi(超初心者用)その29
※『用』がしばらく抜けていたので復活
-----------------------
このスレッドはBorland（ボーランド）のDelphi（デルファイ）について、
他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

＜前スレ＞
くだすれDelphi(超初心者)その28
http://pc8.2ch.net/test/read.cgi/tech/1131168199/l50

＜雑談・討論などはこちらへ＞
バカボンのDelphi不買談話室その28
http://pc8.2ch.net/test/read.cgi/tech/1134668922/l50

＜その他＞
Borland Home Page
http://www.borland.co.jp/

＃過去スレは>>2-10のどこかに
-----------------------

過去スレ
27 ttp://pc8.2ch.net/test/read.cgi/tech/1126590039/
26 ttp://pc8.2ch.net/test/read.cgi/tech/1121249711/
25 ttp://pc8.2ch.net/test/read.cgi/tech/1119008091/
24 ttp://pc8.2ch.net/test/read.cgi/tech/1115581376/
23 ttp://pc8.2ch.net/test/read.cgi/tech/1110470895/
22 ttp://pc5.2ch.net/test/read.cgi/tech/1107332482/
21 ttp://pc5.2ch.net/test/read.cgi/tech/1104511938/
20 ttp://pc5.2ch.net/test/read.cgi/tech/1101530485/
19 ttp://pc5.2ch.net/test/read.cgi/tech/1097454588/
18 ttp://pc5.2ch.net/test/read.cgi/tech/1093996761/
17 ttp://pc5.2ch.net/test/read.cgi/tech/1091671391/
16 ttp://pc5.2ch.net/test/read.cgi/tech/1089779142/
15 ttp://pc5.2ch.net/test/read.cgi/tech/1087823906/
14 ttp://pc5.2ch.net/test/read.cgi/tech/1085239007/
13 ttp://pc5.2ch.net/test/read.cgi/tech/1081003641/
12 ttp://pc5.2ch.net/test/read.cgi/tech/1076610073/
11 ttp://pc5.2ch.net/test/read.cgi/tech/1076609666/
10 ttp://pc5.2ch.net/test/read.cgi/tech/1074523803/
09 ttp://pc5.2ch.net/test/read.cgi/tech/1071294733/
08 ttp://pc5.2ch.net/tech/kako/1068/10682/1068201045.html
07 ttp://pc5.2ch.net/tech/kako/1065/10651/1065195699.html
06 ttp://pc5.2ch.net/tech/kako/1063/10632/1063202727.html
05 ttp://pc5.2ch.net/tech/kako/1061/10610/1061090908.html
04 ttp://pc5.2ch.net/tech/kako/1058/10588/1058834815.html
03 ttp://pc5.2ch.net/tech/kako/1055/10559/1055986736.html
02 ttp://pc5.2ch.net/tech/kako/1053/10537/1053757982.html
01 ttp://pc5.2ch.net/tech/kako/1051/10518/1051882835.html
-----------------------

-----------------------
過去スレ（保管庫）
27 ttp://makimo.to/2ch/pc8_tech/1126/1126590039.html
26 ttp://makimo.to/2ch/pc8_tech/1121/1121249711.html
25 ttp://makimo.to/2ch/pc8_tech/1119/1119008091.html
24 ttp://makimo.to/2ch/pc8_tech/1115/1115581376.html
23 ttp://makimo.to/2ch/pc8_tech/1110/1110470895.html
22 ttp://makimo.to/2ch/pc5_tech/1107/1107332482.html
21 ttp://makimo.to/2ch/pc5_tech/1104/1104511938.html
20 ttp://makimo.to/2ch/pc5_tech/1101/1101530485.html
19 ttp://makimo.to/2ch/pc5_tech/1097/1097454588.html
18 ttp://makimo.to/2ch/pc5_tech/1093/1093996761.html
17 ttp://makimo.to/2ch/pc5_tech/1091/1091671391.html
16 ttp://makimo.to/2ch/pc5_tech/1089/1089779142.html
15 ttp://makimo.to/2ch/pc5_tech/1087/1087823906.html
14 ttp://makimo.to/2ch/pc5_tech/1085/1085239007.html
13 ttp://makimo.to/2ch/pc5_tech/1081/1081003641.html
11 ttp://makimo.to/2ch/pc5_tech/1076/1076610073.html
11 ttp://makimo.to/2ch/pc2_tech/1076/1076609666.html
10 ttp://makimo.to/2ch/pc2_tech/1074/1074523803.html
09 ttp://makimo.to/2ch/pc2_tech/1071/1071294733.html
-----------------------
テンプレ案は以上です．問題点等があればご指摘願います．
以下は私見ですが新スレがたっても速攻埋め立てはしない方がよいのではないかと思います．
旧スレにレスしたい場合もあるでしょうし，現状では速攻でdat落ちさせる必要もないと思うのですが．
この点についてもご意見を伺いたく思います．

ｲﾗﾈ

もうどうでもいいです、はい

乙。BDNも追加して欲しぃ
http://bdn.borland.com/delphi/

乙。これも追加して欲しぃ

Visual Studio 2005 Express Edition
http://www.microsoft.com/japan/msdn/vstudio/express/maninstall/

Microsoft .NET Framework Version 2.0 Redistributable Package (x86)
http://www.microsoft.com/downloads/details.aspx?FamilyId=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&displaylang=en

Microsoft .NET Framework 2.0 日本語 Language Pack (x86)
http://www.microsoft.com/downloads/details.aspx?FamilyID=39c8b63b-f64b-4b68-a774-b64ed0c32ae7&DisplayLang=ja

Microsoft .NET Framework 2.0 SDK 日本語版 (x86)
http://www.microsoft.com/downloads/details.aspx?familyid=FE6F2099-B7B4-4F47-A244-C96D69C35DEC&displaylang=ja

DelWikiのところは>>833に差し替えかな？
>>966はイラネ、必要なときはいつでもVSのスレに見に行きゃいいし

966に反応するな

俺はたるんだ某へのプレッシャーになるから>>966はあったほうがいいな。
いや、かならず入れるべきだよ。

>>960
すみません。入力ミスで、その１からず〜っと気にしていたことですが・・・。

＞何が何だが（×）
＞何が何だか（○）です。

訂正をおねがいします。

ところでInternet Archive から本家 DelWikiってみられない気がするんだが。

ポート番号付けたら見られるよ。

>>972
サンクス。見られました。

某社がアレだという点には同意ですが，このスレにいらっしゃる方というのは基本的にDelphiについて情報を得たい方です．
そう考えるとそういう人たちにとってはDelphiと無関係の情報はノイズでしかないと思うのです．
このスレでしつこくリンクを貼り付けるより，Visual Studioのスレを盛り上げて興味を引かせる方が効果的でしょう．
と，いうわけで，ほぼ全部取り入れてみた新しい >>1 です．BDEは役に立つ方がどれくらいいるのかという気もするのですがとりあえず入れました．
-----------------------
このスレッドはBorland（ボーランド）のDelphi（デルファイ）について、
他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

＜前スレ＞
くだすれDelphi(超初心者)その28
http://pc8.2ch.net/test/read.cgi/tech/1131168199/l50

＜雑談・討論などはこちらへ＞
バカボンのDelphi不買談話室その28
http://pc8.2ch.net/test/read.cgi/tech/1134668922/l50

＜その他＞
Borland Home Page
http://www.borland.co.jp/
DelWiki 避難所。
http://wiki.s54.xrea.com/delphi/
BDN（Borland Developer Network）※英語
http://bdn.borland.com/delphi/

＃過去スレは>>2-10のどこかに
-----------------------
これから帰宅なので帰宅後もう一度来るつもりですが，徹夜明けなので爆睡してしまうかもしれません，そのときはごめんなさい．

同じxreaというか無料鯖にwiki作っても旧wikiと同じ末路を辿るとしか思えないんだが。
というわけで有料鯖か自鯖でよろしく。

wikiってログイン必須に出来ないの？

>>975
何もできない猿がよく言うよ┐(；´〜`)┌

MediaWikiなら編集者の履歴が残るが…マァ折角置いてくれたんだし、どうこう言うこともなかろう
問題は、Wikiは情報を溜める場所であって議論のための議論は他所でやれ、ってのがどこまで徹底できるか、かな

すきにやればいいじゃないの。やなら見なけりゃいいんだし。

ライブドアのwikiならログイン必須

乙。BDNも追加して欲しぃ

駅で階段見上げたら女子中学生がいてさ、スカートの中見ちゃったんだよ。
そんでその女子中学生にいきなり振り向かれて
「せ、責任とってお嫁に貰ってください・・・」
って言われちゃったんだ。
俺は慌てちゃってさ
「・・え？は、はぁ・・・」
みたいに返してそのまま通り過ぎようとしたら
俺のシャツをﾁｮｺﾝと指で掴んでずっとついてくるのね。
そんでとうとう家までついて来ちゃってさ
「はじめてですけど覚悟は出来てます・・・」
とか言うわけよ。
俺もう理性が吹っ飛んじゃって

（全てを読むにはワッフルワッフルと書き込んでください）

ワッフルワッフル

すいません、THashedStringListの使用方法について教えてください。

やりたいことは「キー」と「値」をハッシュで管理したいのですが、使用方法が分かりません。
データを追加するときはAdd('キー=値')で登録するとして、データを取り出すときはどうするのでしょうか。
IndexOfName(キー)でインデックスは取得できるようですが、値は自分で分解するのでしょうか？
もっとスマートなやりかたが有りそうな気がするのですがヘルプを見ても分からないし・・・

よろしくお願いします。

LoadFromFileじゃダメだった？

今年も残り少ないのですが質問です。動的配列にExtended型のデータを入れて
いるのですが、これをファイルに保存したり読み出したりする方法をご存知の
方がいましたらご教授お願いします。（Delphi7Pro,WindowsXPです）

>>983
TMemIniFile.ReadStringのソース見ると
Copy(Strings[Strings.IndexOfName(キー)], Length(キー) + 2, Maxint);
って感じで取ってるからそーゆーことなんじゃ？

つーかTHashedStringListの代わりにTMemIniFile使った方が扱いは楽かもよ

>>985
やり方は山ほどある。
俺なら、TFileStreamを使って、
配列の中身を一個ずつ
filestream.write( ex , sizeof(ex) ) ; // ex : extended ;
とかするかな。

>>983
i := hoge.IndexOfName('キー');
Value := hoge.Values[hoge.Names[i]];

ごめ、IndexOfNameに気を取られすぎてた('A`)
Values['キー']で充分だな

ワッフル！

>>984
プログラムの中でしこしこしたかったもので。

>>986
TMemIniFileなんてあるのですか。なんでIniFilesユニットなのかと不思議でした。

>>988,989
あ、なるほど。この様に使うのですか。

皆さん、有難うございました。やっと使えそうです。

>>987 ありがとうございます。TFileStream で検討したいと思います。
ただ、配列の要素数が数万件あるのです。試してみるつもりですが、
他の方法もご存知でしたら教えていただけますでしょうか。

１要素のサイズが分かっていて、個数も分かってるんだから一行で TFileStream に書き込めるでしょ。

そういやそうだな

>>993 あ、そうなんですけど、性能が心配だったもので…
でも試してみたところ、1件の動的配列の読み書きはほとんど一瞬で終わりました。
ですが実は数万件の配列要素を複数（ユーザー次第）同時にI/Oする処理が追加に
なる予定ですので、（ブロッキングみたいな？）他の方法を聞いた次第なのです。
と、ここまで書いてきて、TMemoryStream に書いといてから Write する、みたい
な方法も思いついたのでちょっと試したいと思います。

>>995
数が固定されてるならファイルマッピングとか

>>995
Delphiでファイル書き込みってのはさ、基本的に４つなのよ。

１ ファイル変数を使う
２ TStreamの派生クラスを使う
３ その他のクラスを使う
４ Windows APIを使う

３の場合ってのは、今回なら例えば、一項目を一行のテキストデータにしておいて、
TStringListで書き込むとかいう場合ね。

>>996 >>997 色々と情報、ありがとうです。要素数は固定されてないのです。
ファイルのI/Oもいろいろな方法がありますですね。小出しにしてすみませんが
将来は他のバイナリデータやテキストデータもいっしょくたにひとつのファイルに
書かなくてはならないので（さっき思い出しました）、TStream を使って進めて
行きたいと思います。

次スレは？

ワッフルワッフル！

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。