くだすれDelphi(超初� ..
[2ch|▼Menu]
178:デフォルトの名無しさん
10/01/25 15:09:59
ポップアップ出すだけなら、非表示どころかそもそも作る必要すらない
スプラッシュウィンドウも然り
TPopupMenuとTMenuItemを動的生成するだけでいい

179:デフォルトの名無しさん
10/01/29 19:48:25
DMonkeyってやたらexeのサイズが大きくなるけど
マイナーな機能取っ払ってサイズを劇的に小さくする技ってないの？

180:デフォルトの名無しさん
10/01/30 03:00:37
あの程度のサイズ増加を気にするのはお前だけ

181:デフォルトの名無しさん
10/01/31 06:57:17
>>179
あるよ

182:デフォルトの名無しさん
10/02/01 15:02:08
>>179
ないよ

183:デフォルトの名無しさん
10/02/01 23:30:50
>>99
TurboDelphiお願いします

184:デフォルトの名無しさん
10/02/02 01:25:39
いくら出せますか？

185:デフォルトの名無しさん
10/02/02 02:31:12
>>183
URLﾘﾝｸ(turbomirror.com)
他にもググればいくらでも出てくる

186:デフォルトの名無しさん
10/02/02 02:40:57
はいおつかれｗ
予想どうりｗ

187:デフォルトの名無しさん
10/02/05 15:30:54
？？

188:デフォルトの名無しさん
10/02/05 21:39:13
質問です。
あるツールのフロントエンドを作っています。
そのツールがパスの通っているディレクトリのどこかに存在するか否か確認する方法を教えてください。
ツールの実行ファイル名はわかっています。

189:デフォルトの名無しさん
10/02/05 21:41:17
SearchPath

190:188
10/02/05 21:46:13
>>189
ありがとうございます！

191:デフォルトの名無しさん
10/02/10 13:38:38
はじめまして。
以前から興味があったのですが、今回思い切って初めてDelphi2010Proを購入してしまいました。
頑張って勉強していきたいと思います。
じつは、IDEの挙動について気になった事があり、お尋ねしたいと思います。
VCLその他の機能などをツールバーボタンに並べてみたのですが、マウスカーソルをボタンに持っていってもツールチップが表示されません。
ぼんやりとした記憶なのですが、インストール直後はちゃんと表示されていたような気がするのです。
まだまだボタンのアイコンと機能が頭の中で繋がらないため、ツールチップが表示されると大変助かるのですが(とくにVCL)…元々表示されないものでしたでしょうか。
ぐぐっても答えになりそうなページが見つからず、ご助言頂ければ幸いです。よろしくお願いいたします。
追伸　オプション内ツールパレット→「ボタンのキャプションを表示」にはチェックを入れてあります。

192:デフォルトの名無しさん
10/02/10 16:23:04
チェックしないで下さい

193:デフォルトの名無しさん
10/02/11 09:47:17
>>191
ShowHintプロパティ
URLﾘﾝｸ(docwiki.embarcadero.com)

194:191
10/02/11 11:31:15
>>192さん、
チェックの有無では変化ありませんでした。ツールバーカスタマイズメニュー下のツールチップON/OFFでも効果ありませんでした。
>>193さん、
アプリではなくIDEそのもののチップなので…でも紹介下さったページ勉強になりました。

再インストールとか色々調べてみましたら、やっと原因が判りました。
犯人は同時起動しているタブブラウザのタブ数でした。
60個近く開いているタブ数を減らしましたらチップが表示されるようになりました。
タブ数何個以下とは決まっていないみたいなので、よく分かりませんがリソースを食い合いしてたって事なんでしょうか。
IEコンポーネントベースだからなのかプログラム自体の問題なのかXPの問題なのか…勉強不足でわからないのですが、とりあえず自分の環境の所為と言う事がわかりました。

変な原因ですみません。ご回答頂きありがとうございました。



195:デフォルトの名無しさん
10/02/13 02:25:36

ツールバーのカスタマイズの実装方法について教えてください。

CustomizableプロパティをTRUEに設定して、
OnCustomizeCanDeleteとかOnCustomizeNewButtonとかのイベントを使うのだと思うのですが、
具体的にどのようなプログラムを書けばいいのでしょうか？

196:デフォルトの名無しさん
10/02/13 15:06:15
まず自分で分からないなりに書いてみたの？

197:デフォルトの名無しさん
10/02/15 09:01:02
TCollectionから派生させたTGraphItemのItemsに、TCollectionItemから派生させたTGraphItemsをリストするのはできました。

で、質問なのですが、
TGraphItemから派生させたTGraphBox,TGraphAxsis,TGraphLegend,TGraphDataなどの子クラスを同じTGraphItems.Itemに
リストしたいのですが、どうすればいいのでしょうか？
同じクラスしかリストできない？

ちなみにD6です。
よろしくお願いします。



198:デフォルトの名無しさん
10/02/15 09:05:00
あ、間違いです。

TCollectionから派生させたTGraphCollectionのItemsに、TCollectionItemから派生させたTGraphItemをリストするのはできました。
で、質問なのですが、
TGraphItemから派生させたTGraphBox,TGraphAxsis,TGraphLegend,TGraphDataなどの子クラスを同じTGraphColection.Itemsに
リストしたいのですが、どうすればいいのでしょうか？

です。
よろしくお願いします。


199:デフォルトの名無しさん
10/02/15 14:00:40
つD2010

200:デフォルトの名無しさん
10/02/15 14:04:43
D2010だと簡単にできるのですか？

D2006だっけ(?)は持ってるけど使ってないんです。


201:デフォルトの名無しさん
10/02/15 14:23:51
つかTListを委譲したクラスを作ればいいじゃん。
TCollectionから派生させるいみがわからん。

202:デフォルトの名無しさん
10/02/15 14:52:42
オブジェクトインスペクタに出すならTCollectionの方が向いてるとかじゃないの？
コンポ作らないからよくわかってないけど。

203:デフォルトの名無しさん
10/02/15 15:09:29
ＴListなりに放り込んで、各子クラス用のプロパティエディタを作ったほうが簡単だって事？



204:デフォルトの名無しさん
10/02/15 15:26:29
201みたいに答えわからない奴は書き込まなきゃいいのに。

って思う。
まぁ、俺もそうだけど…


205:デフォルトの名無しさん
10/02/15 16:16:42
>>198
リストしたいのですがって、派生クラスならできるでしょ
結局のところ何がしたいの？

206:デフォルトの名無しさん
10/02/15 16:47:50
>>205

要はグラフのコンポーネントなんですが、軸だとか凡例だとか項目名の子クラスをリストして、
リスト順に描画しようかと思ったわけです。

簡単そうではないので、仕方ないので各子クラス用のTCollectionを拵えて、
描画順は固定でいくようにします。



207:デフォルトの名無しさん
10/02/15 17:13:24
TListやTCollectionを継承する人はdelphi初心者というよりプログラム初心者な感じがするな

208:デフォルトの名無しさん
10/02/15 17:23:34
じゃぁ、今は何使うの？


209:デフォルトの名無しさん
10/02/15 17:25:16
>>206
描画順用のTCollection作って、個別のTCollectionと中身共有すればいいだけじゃないの？
簡単そうではないという判断基準はどこから出たの？

>>207
自分はバカだという新手の自己紹介ですか？

210:デフォルトの名無しさん
10/02/15 17:27:43
初心者かどうかはともかく10年以上も前のテクニックだとは思う

211:デフォルトの名無しさん
10/02/15 17:30:20
なぜだ

212:デフォルトの名無しさん
10/02/15 17:35:30
>>209
>描画順用のTCollection作って、個別のTCollectionと中身共有すればいいだけじゃないの？
なるほど、描画順はほかのリストで管理って言うのはいいですね。

>簡単そうではないという判断基準はどこから出たの？
そのCollectionにItemを追加する時に、どの子クラスを追加するかを指定する術をオブジェクトインスペクタが持っていないので
追加するときは規定クラスを追加して、その基底クラスのKindプロパティみたいな物を弄ると、そのプロパティに沿った子クラス
が作られる。みたいなものを考えていたのですが･･･

単一のCollectionにそんな機能を盛り込むよりも、一つの子クラスに一つのCollectionを与えたほうが簡単かなっと。
あとは描画順だけの問題なので、描画順のリストなりCollectionで対応しようと思います。

昔、「Visualこんぼ」っていうActivXコントロールがあったのですが、そのグラフ機能を模倣しようとしていたわけです。
だれか使ったことがある人いますか？



213:デフォルトの名無しさん
10/02/15 17:37:20
>>210

リストすることが10年前のテクニックなのか？
古いも何も、リストする事は普通だろ？配列とか使わないの？あなたは。

どこを指して古いと言っているのかわからないからおせーて。


214:デフォルトの名無しさん
10/02/15 17:47:12
元質問者そっちのけで申し訳ないけど、俺もその今時だか中級車向けだかのテクニックを教えてほしい。
煽りとかでなく、自分が古い知識のまま止まってる気がするので。

215:デフォルトの名無しさん
10/02/15 17:55:28
今はジェネリッククラスの時代だ

216:デフォルトの名無しさん
10/02/15 17:56:11
まさか、動的配列とか言わないですよね。


217:デフォルトの名無しさん
10/02/15 17:56:50
>>212
そういうことならオブジェクトインスペクタでボタン押した時に、
独自の編集フォームを表示するようにして、そこで追加クラス選べるようにすればいいんじゃない？
ぱっと思いつく範囲ではGLSceneがそういうことしてたと思う
描画順を別にしておいた方が実装は楽だろうけど

＞その基底クラスのKindプロパティみたいな物を弄ると、
＞そのプロパティに沿った子クラスが作られる。みたいなものを考えていたのですが･･･
子クラスが作られるという処理自体は簡単に作れるけど、
子クラスだけ持ってるプロパティがオブジェクトインスペクタに表示されるわけはないよね
さすがに発想からしてちょっと無理があると思う
基底クラスに派生で使われるプロパティが全部乗ってるとかならできると思うけど、
それだったらわざわざクラスを派生させずに単一のクラス内部で分岐すればいいだけになっちゃうし

218:デフォルトの名無しさん
10/02/15 18:05:41
>>217

どうもありがとうです。

>それだったらわざわざクラスを派生させずに単一のクラス内部で分岐すればいいだけになっちゃうし

そうなんですよね。
で、先ほど書いたように、各々の子クラス用のCollectionを用意しました。
あとは、描画順のコードを足してどうにかしようと思います。



219:デフォルトの名無しさん
10/02/15 18:20:21
コレクション系のクラスを継承してAddにobjectを指定する糞コード書く奴は間違いなくPG歴1ヶ月未満。

220:デフォルトの名無しさん
10/02/15 23:40:44
>>219でスレが止まってるの見てこのAA思い出したｗ
ｽﾚﾘﾝｸ(gline板:1番)n

221:デフォルトの名無しさん
10/02/18 02:25:50
クリエイトプロセスについての質問です。
win2k pro, Delphi 6 personalを使用しており、
ボタンをクリックするとエディタが起動するようにしておりますが、以下のコードによって
エディタが終了する前にshowmessageの'ok'が表示されてしまいます。
ググッてみたもののだいたい同じ内容のものしかヒットしませんでした。
エディタが終了した後に、残りの処理をする場合はどのようにすればよいのでしょうか？
教えてください。
パソコンが2コアだからとかは、関係ありますか？

procedure TForm1.Button1Click(Sender: TObject);
Var
PI : TProcessInformation;
SI : TStartupInfo;
begin
GetStartupInfo(SI);

CreateProcess(Nil,
'D:\Wintools\Dana\Dana.EXE test',
Nil,
Nil,
False,
0,
Nil,
Nil,
SI,
PI);

while WaitForSingleObject(PI.hProcess, 0) = WAIT_TIMEOUT do
Application.ProcessMessages;
showmessage('ok');
end;

222:デフォルトの名無しさん
10/02/18 02:30:26
状況としては、エディタが終了した後にshowmessageを表示したいのです。
現在は、エディタが起動したすぐ後にshowmessageが実行されてしまいます。


223:デフォルトの名無しさん
10/02/18 03:58:00
CreateProcessの2行目を
'notepad.exe',
にしたら待機できました。

なぜ、
'D:\Wintools\Dana\Dana.EXE test',
ではだめなのか、もう少し調べてみます。

224:デフォルトの名無しさん
10/02/18 04:08:03
あー、わかりました。
danaが常駐モードで起動していたため、うまく動いていませんでした。
常駐モードを切って、通常に起動すれば、待機するようになりました。

225:デフォルトの名無しさん
10/02/18 14:30:53
うん

226:デフォルトの名無しさん
10/02/18 19:09:22
だな

227:221
10/02/18 19:51:40
うーん、かなり初心者的なつまずきをしています。

テキストファイルの管理ソフトを作っているのですが、テキスト編集機能を自前で持つのではなく、
すでに優秀なエディタソフトがあるので、テキスト編集については、その外部ソフトで編集し、
編集した結果を管理ソフト側に持ってきたいと思っています。

Createprocessで起動していないソフトであれば、待機するということができるのが確認できたのですが、
常駐機能のあるDanaというエディタの場合は、待機できないことがわかりました。
（以降の処理が待機できない。）

こういう場合、外部のソフトで編集した結果を自分のソフト側に持ってくるとしたら、どういう機能を
使ったらよいのでしょうか？


228:デフォルトの名無しさん
10/02/18 20:00:33
ファイル更新監視

229:デフォルトの名無しさん
10/02/18 20:03:07
もう少し、わかりやすく説明した方がいいですね。

テキストデータ管理ソフトは、データベース(sqlite3)上にデータを格納しようと考えております。
管理ソフト側では、Memoコンポーネントをビューワーにして、新規作成および編集については、
外部のエディターソフトに任せて、その編集結果をMemoコンポーネントに取り込みたいと思っています。
現在は、管理ソフト側でtestというファイルを作成し、外部ソフト側はそのtestファイルを読み込み、
編集結果をtestファイルに書き込んだ後、管理ソフト側でtestファイルを読み込むということを
想定しています。

外部ソフトと管理ソフトとで、データのやりとりをしたいのですが、通常どのようにデータのやりとりを
するのでしょうか？

230:デフォルトの名無しさん
10/02/18 20:05:51
>>228
おー、ありがとうございます。
findfirstchangenotificationというのを調べておりました。
ファイルの更新をやはり監視して変更があった場合に、取り込みすればいいのですね。
ありがとうございます。
その手順で考えていきたいと思います。

231:デフォルトの名無しさん
10/02/18 20:58:44
JVCLにコンポーネント化されたものがあったはず。ところでCtrl-Sで頻繁に保存をするような
人もいるので一回きりじゃない動作を考えておくべきかも。たとえばプロセスの終了までは
監視を続けるとか。

232:デフォルトの名無しさん
10/02/18 21:07:24
>>231
どーもです。
そうですね。今いろいろとテストしていたんですけど、外部プロセスが終了していない間に
ファイルの削除（今回でいえば、test）とかをした場合など、困りますね。
外部プロセスの状態（起動中か終了しているのか）とか調べることも必要ですね。
教えていただいたjvclも調べてみます。ありがとうございます。

私のやりたいことは、CreateProcessとWaitForSingleObjectでそのまま動けば、
簡単なんですけど、常駐しているエディタもあることを考えるとそのまま使えないんですね。
ちょっと難しくなっちゃったな。とほほ。

233:デフォルトの名無しさん
10/02/18 21:14:01
そのエディタが編集中のファイルをロックしてるなら
Timerで1秒ごとに排他オープンを試みて成功したら処理するというのも出来るかも
タイムスタンプ監視で大体はうまくいくと思うけどね

234:デフォルトの名無しさん
10/02/18 22:58:57
>>233
そのエディタは、開いているだけの状態では、ファイルをロックしてませんでした。
ファイルの削除とか外部からできちゃいました。
ファイルの更新自体だけだと、エディタで処理が終わってファイルを書き込んだのか、
編集途中でファイルを書き込みをして、続けて処理しているのかが、はっきりわかりませんね。
困ったな。

プロセスの監視も実は、常駐モードだと常に起動状態なので、それだけだと状態の監視ができないです。
そうなると、エディタのWindowの状態を見て、testという文字列が表示されているかどうかを確認すれば、
良いのかな？
もう少し考えてみます。アドバイスありがとうございます。

235:デフォルトの名無しさん
10/02/19 00:36:26
エディタなんて星の数ほどあるのにプロセスの監視をするのは現実的じゃない
キャプションにファイル名等が表示されないエディタだってある
エディタ以外のプロセスが一時的にロックすることもある（アンチウイルスとか）

236:デフォルトの名無しさん
10/02/19 01:03:55
>>235
そうなんですよね。
vectorのサイトでeditorのレビューで一通りエディター画面見てみたんですけど、タイトルバーに
今編集してるファイル名が表示されてないのもある（9割以上は表示してる。）し、今使ってるDanaでさえも
複数ファイル編集していて、違うファイル開いているとタイトルバーがそのファイル名に
なってしまっているので、すべてのパターンに対応できないですね。

考えが浅はかだったかな？エディター部分を自分で作るよりは、すでにあるアプリで対応して、
ビューアー部分（将来的にはブラウザで表示しようとしてました。）とデータの格納部分だけ
作り込めばいいかなと思ってました。

ちょっと設計自体考え直す必要がありますね。
エディター部分の作り込みはあまりしたくないんだけどなぁ。自分の能力だと大した物できそうにないし。

237:デフォルトの名無しさん
10/02/19 04:32:50
なんで監視だけじゃだめなんだよ

238:デフォルトの名無しさん
10/02/19 06:32:00
>>237
何の監視ですか？
プロセスの監視は、常駐機能のあるエディタだと、ファイルの編集が終了した後でも、
起動したままですし、ファイルの更新状況の監視は、そのファイルが編集継続中であるのか、
すでに編集が終わっているのかの判断がつかないからです。

エディタで編集中であるのに、管理ソフト側を終了してしまうと、保存されないデータが出てくると
思われます。確実にファイルの編集が終わっている状況というのを管理ソフト側で把握できないと
確実なデータの受け渡しは難しいのではないかと思っています。

以上の点から、プロセスの監視もファイル更新の監視も、今の私の知識では無理じゃないかと思って
いるのですが、何か良い案をお持ちでしょうか？

239:デフォルトの名無しさん
10/02/19 09:22:56
文字列型と違い動的配列はコピーオンライトじゃないとだけは認識してたが、
SetLengthで長さ変えるとコピーされるんだ・・・
var
　A, B: array of Byte;
begin
　SetLength(A, 10);
　B := A;
　SetLength(B, 5); // コピーされて、AとBは別物
end;
ずっと、コピーされないと思ってたよ・・・


240:デフォルトの名無しさん
10/02/19 09:35:21
メモリ確保するためポインタ使う代わりに動的配列使ってたけど、
TClassA = class
FArray: array of Byte;
procedure TClassA.Method;
begin
　SetLength(A, 10);
end;
そうすると、FArrayが他の変数によって参照されてるか否か意識しなきゃいけんのか・・
素直にポインタ使ったほうが安全なのかな。

241:デフォルトの名無しさん
10/02/19 09:48:42
まぁ、型にうるさい言語だから
FArray: array of Byte;
とか単独で宣言すれば、まちがっても他の変数によって参照されることはコンパイルエラーが
でるからありえないけど、例えば、Typesユニットで定義されているTByteDynArrayとか使って
FArray: TByteDynArray;
とすると危険か。まぁ、いっか。普通に使うか。


242:デフォルトの名無しさん
10/02/19 11:02:46
すいません質問です
Delphi-MLの過去ログ検索のサイトが無くなっていたんですが
引き継ぎ先などの情報をお持ちの方おられるでしょうか？


243:デフォルトの名無しさん
10/02/19 11:04:57
過去ログブラウザおすすめ
C#はさらにおすすめ

244:デフォルトの名無しさん
10/02/19 11:07:42
サービス止まってるね
面白そうだし引き継ぎ挑戦してみようかな

245:デフォルトの名無しさん
10/02/19 11:28:30
「私の投稿メールを削除していただけませんか」
メールが来るから覚悟しておいた方が良いぞ > 244

246:デフォルトの名無しさん
10/02/19 11:30:02
ならやめたｗ


247:242
10/02/19 11:42:15
あの過去ログは宝の山でした・・・
あそこで使っていた過去ログって2008/05が最終なんでしょうか？

248:デフォルトの名無しさん
10/02/19 12:15:25
google の方に過去ログ追加しようかねぇ

249:デフォルトの名無しさん
10/02/19 12:18:10
2006/11 以降は URLﾘﾝｸ(groups.google.co.jp) にもバックアップされている。

250:デフォルトの名無しさん
10/02/19 13:17:03
>>239-241
ジェネリクス利用したコピーオンライト配列使えば問題なし

251:デフォルトの名無しさん
10/02/23 12:07:40
TQueryに新規作成した参照項目を元に整列表示させることはできないですか？
SQLのOrder節には入れられないし

252:デフォルトの名無しさん
10/02/23 13:53:52
Delphi6 ProとDelphi7 Pro、今使うならどっちがいいと思う？

253:デフォルトの名無しさん
10/02/23 13:59:20
7

254:デフォルトの名無しさん
10/02/23 14:15:25
7は6のマイナーチェンジな感じだからあえて6を選ぶ理由は少ないと思う。
6はXPのマニフェスト対応にも難有りだし。

255:デフォルトの名無しさん
10/02/23 22:08:08
難の前に未対応じゃん
XP出る前なんだから

256:デフォルトの名無しさん
10/02/23 22:31:21
del7使いなんだけど、最新のDelにしたら
マルチコアなCPUに対応したアプリって
簡単に作れるの?

257:デフォルトの名無しさん
10/02/23 22:46:01
>>255
難ってのはTheme Managerのことだろ
それにD2010はWin7出る前なのにWin7対応を謳ってますが

>>256
マルチスレッドじゃあかんの？

258:デフォルトの名無しさん
10/02/23 22:48:12
マルチスレッドなプログラム書けば特に意識しなくても複数のコア使うようになる。
簡単かは別。排他処理とかやらないと普通に死ぬ。

259:デフォルトの名無しさん
10/02/24 00:37:25
>>257
Del6の発売はXPの存在自体が発表される前なんですけど？
Win7はDel2010開発の段階でβ出てるじゃん
頭悪いね

260:デフォルトの名無しさん
10/02/24 00:39:02
>>258
明示的にAPIで指定しない限り複数のコアを使うとは限らない
嘘書くのはやめよう

261:デフォルトの名無しさん
10/02/24 01:46:31
>>260
>>258は別に嘘では無い。

262:デフォルトの名無しさん
10/02/24 03:11:00
本当でもないだけ。

263:デフォルトの名無しさん
10/02/24 03:28:30
OpenJaneのソース、HogeTextView#1839行より

Move(#13#10[1], result[Position], 2);

とあるのですが、この1つめの引数にある『#13#10[1]』とはどういう意味なのでしょうか？
ついでに、同じ意味になる別の表記方法もあるのであれば、教えて頂けると助かります。

264:デフォルトの名無しさん
10/02/24 04:13:54
VBでいうところの vbCR, vbLF 、　まぁ改行コードのことやね

265:デフォルトの名無しさん
10/02/24 09:26:24
明示的にAPIで指定するとどのコアでスレッドを動かすかなどを細かくコントロールできる。
明示指定してない場合でも、複数のコアをプロセスに割り当てる。
いくつ割り当てるかは、OS の種類によって細かく違いがある。
ただし一般的なコンシューマ版(Vista とか Windows7) ではデフォルトですべてのコアが
利用可能となる。

そんだけだ


266:デフォルトの名無しさん
10/02/24 11:27:56
private
function GetHoge(const Index: Integer; Idx: Integer): String;
procedure SetHoge(const Index: Integer; Idx: Integer; const Value: String);
public
property hogeA[Idx: Integer]: String index 0 read GetHoge write SetHoge;
property hogeB[Idx: Integer]: String index 1 read GetHoge write SetHoge;

こんなPropertyが使いたいのですが read GetHoge で"互換性の無い型です"って怒られます。
hogeA,hogeB毎に read write の関数作らないと駄目なんですかね。

ちなみにfunction GetHogeとprocedreu SetHogeはCtrl+Shift+Cで自動生成したものです。


267:デフォルトの名無しさん
10/02/24 11:34:30
266です。自己解決しました。

自動生成された
function GetHoge(const Index: Integer; Idx: Integer): String;
procedure SetHoge(const Index: Integer; Idx: Integer; const Value: String);

を下記に書き換えたら通りました。
function GetHoge(Idx: Integer; const Index: Integer): String;
procedure SetHoge(Idx: Integer; const Index: Integer; const Value: String);

自動生成だと、配列の添え字とインデックス値が逆になって、値の渡し方の問題でエラーになるみたいです。


268:デフォルトの名無しさん
10/02/24 14:12:06
配列プロパティにはデフォルト値与えられない？？
property Items[Index: Integer = 0]: Integer read Get....


269:デフォルトの名無しさん
10/02/24 14:30:48
そんなことをするような設計が悪い

270:デフォルトの名無しさん
10/02/24 15:14:41
配列コピーの高速化って無理だよね

インラインアセンブラでMMX命令で32bitコピーとかやってもちっとも速くならねぇ

271:デフォルトの名無しさん
10/02/24 15:21:32
fastcode projectにmoveがあったような

272:デフォルトの名無しさん
10/02/24 20:37:10
>>264
理解できました。 thx!

273:デフォルトの名無しさん
10/02/25 07:22:20
>>260
あほか

274:デフォルトの名無しさん
10/02/25 08:46:15
あほです



このすれにまじめなこと書くはずないだろ

275:デフォルトの名無しさん
10/02/25 12:49:24
>>262
本当だし

276:デフォルトの名無しさん
10/02/25 14:36:43
はいはい知らなかったなら素直に言おうね

277:デフォルトの名無しさん
10/02/25 14:57:45
Windowsのスレッド配分アルゴリズムは同一プロセス内のスレッドは物理的に同じプロセッサに優先的に割り当てるようになってる。
これはダイ間の通信がコア間の通信に比べて顕著に遅延が発生する等、別個に割り当てると問題が生じるからで、
割当先候補が減っている分、その時の処理状態によっては同一コアに複数スレッドが割り当てられるという事態は普通に発生する。
つまり「明示的にAPIで指定しない限り複数のコアを使うとは限らない」は真。
Delphiには並列ライブラリがないからこういった情報の浸透が遅れているんだろうね。

278:デフォルトの名無しさん
10/02/25 15:45:17
それ、完全にお前の誤解。

スレッド A が Core 1 に割り当てられたときに、
タスク切り替えやスレッド休止後の再起床時に
同じ Core を「優先」して使う。

および同じプロセスに所属するスレッドは、できるだけ「有利」なコアを使う。
というだけ。

この場合の「有利」は、キャッシュを共有しているコアとかが選ばれる。

スレッドが二つ、A と B があったときに、
A と B が「かならず」物理的にひとつのコアしか使わない。のだとしたら
マルチスレッドの利点なんか残らないだろう？

それくらい実験すればすぐわかるのに...

279:デフォルトの名無しさん
10/02/25 16:01:25
Win32APIスレ池

280:デフォルトの名無しさん
10/02/25 17:49:09
こんなクズども寄越さないでください

281:デフォルトの名無しさん
10/02/25 17:52:40
>>278
必ずなんて一言も書いてないんだけど
OSに任せると必ず分散するとは限らないってだけ
お前はまず日本語を勉強してこい

282:デフォルトの名無しさん
10/02/25 18:03:22
その辺はMSDNにも
「スレッドの割り当ては考えてやってるから、分散してなくてもSetProcessAffinityMask使うのはあんまりおすすめしないよ」
みたいに書いてある
XPにはあまり賢くないアルゴリズムが載ってたからある程度自分でやった方が良かったけど

283:デフォルトの名無しさん
10/02/25 18:04:04
SetThreadAffinityMaskだった

284:デフォルトの名無しさん
10/02/25 18:06:27
　　　　　　　　　ノ´⌒ヽ,,
　　　　　γ⌒´　　　 　 ヽ,
　　　　／／ ""⌒⌒＼　　）
　　 　 ｉ /:::::::::　ノ　 ＼ ヽ　）
　　 　 !:::::::::::(･ ）｀ ´( ･） ｉ/
　　 　 |:::::::::::::::（__人_）　 |
　　　　＼:::::::::::::｀ー'　 ／ ﾁｯ うっせーな…
　　　　／:::::::::::::::::::::::::::＼

285:デフォルトの名無しさん
10/02/25 18:07:18
使うとしたらこっちだな。SetThreadIdealProcessor


286:デフォルトの名無しさん
10/02/25 18:21:52
みなさん。
実験すればわかることなので、煽りは無視して自分で検証してみましょう。

一般向けの CPU では、物理的に存在する CPU コアのすべてが
プロセス内のスレッドに割り振られます。

個別にコントロールする API は別途ありますが、通常は OS に任せておいて
問題ありません。


287:デフォルトの名無しさん
10/02/25 19:58:17
>>286
何となく興味あったから実験してみたけど、
中でsleepするスレッド4つ作って動かしたら全部一緒になったよ
環境はXP SP3 Core2 Quad
なんで？

288:デフォルトの名無しさん
10/02/25 19:59:32
　　　　　　　　　ノ´⌒ヽ,,
　　　　　γ⌒´　　　 　 ヽ,
　　　　／／ ""⌒⌒＼　　）
　　 　 ｉ /:::::::::　ノ　 ＼ ヽ　）
　　 　 !:::::::::::(･ ）｀ ´( ･） ｉ/
　　 　 |:::::::::::::::（__人_）　 |
　　　　＼:::::::::::::｀ー'　 ／ ﾁｯ うっせーな…
　　　　／:::::::::::::::::::::::::::＼

289:デフォルトの名無しさん
10/02/25 20:05:57
>>287
sleepしてるスレッドがどのコアで動いてるか分かるの？

290:デフォルトの名無しさん
10/02/25 20:34:33
タロット占いをするソフトを作りたいと思います。（実際に当たるかどうかは別にして）

TEditにタロットのカード名(魔術師とか、女教皇とか、愚者とか）
を表示させようと思うのですが、
Edit1～Edit6に表示させる際
それぞれが重複しない値にさせるに
はどうすればいいでしょうか。

単純にrandom(22)を使うと
重複してしまう場合があります。

291:デフォルトの名無しさん
10/02/25 20:44:26
リアルでのやり方と同じ。
カード全部を配列に突っ込んでシャッフルして頭から6枚取得する。
配列 シャッフルで検索かければそのコードが見つかるからDelphiに書き直せばいい。

292:デフォルトの名無しさん
10/02/25 21:07:56
WinXp＋D7で質問です。
trunc関数で誤差が出るようなのですが何がいけないのでしょうか。
フォームにEdit1,2,3とButton1を配置し以下の計算をしますとEdit3だけが769になります。
Trunc内で計算せずにEdit1のようにすれば大丈夫なのでしょうか。

procedure TForm1.Button1Click(Sender: TObject);
var
Su : double;
Kin : double;
kei : double;
begin
Su := 1.4;
Kin := 550;
kei := Su * Kin;
Edit1.Text := Floattostr(trunc(kei));
Edit2.Text := Floattostr(trunc(1.4*550));
Edit3.Text := Floattostr(trunc(Su * Kin));
end;

293:290
10/02/25 21:12:22
>>291
アドバイスありがとうございます。
検索したらFisher-Yatesという方法も見つかりました。
これでやってみます。

294:デフォルトの名無しさん
10/02/25 21:31:36
>>292
参考になるかどうかわからないけど、過去ログからコピペ。

857 ：826 ：2008/03/02(日) 20:57:07
SimpleRoundToの個人的まとめ。
正解かどうかわからないので、必要な人は追試してください。

・SimpleRoundToは意図した結果が得られない場合(ADigit<0 ？)がある。

・Truncは引数に変数を使った式を与えると意図した結果が得られない場合がある。
　○a := 10; Trunc(0.25 * a + 0.5) / a;
　○Trunc(0.25 / 0.1 + 0.5) * 0.1;
　×a := 0.1; Trunc(0.25 / a + 0.5) * a; //SimpleRoundToの中がこれ
・引数に指定する計算式の結果を一度変数に代入してから、Truncに与えれば大丈夫そう。
　○a := 0.1; b := 0.25 / a + 0.5; Trunc(b) * a;

・Floorも内部でTruncを使ってるので同様。
・Ceilは内部でTruncを使っているものの大丈夫そう？？


295:デフォルトの名無しさん
10/02/25 23:01:02
>>289
APIも知らないの？

296:デフォルトの名無しさん
10/02/25 23:01:54
>292
おもしろいね。時間があったら追試してみたいけど、気になったポイントを。
Edit1は計算結果が一旦Double型に代入されてそれがTruncに渡されている。
Edit2は予めコンパイラが計算した浮動小数点数の定数値をTruncに渡している。
Edit3は式の値がおそらくExtendedで一時的に保持されてそれがそのままTruncに渡されている。
CPUウィンドウでコンパイル結果がどのようなアセンブル命令に展開されているのかを見ると違いが
わかるのかも。

297:デフォルトの名無しさん
10/02/25 23:02:22
　　　　　　　　　ノ´⌒ヽ,,
　　　　　γ⌒´　　　 　 ヽ,
　　　　／／ ""⌒⌒＼　　）
　　 　 ｉ /:::::::::　ノ　 ＼ ヽ　）
　　 　 !:::::::::::(･ ）｀ ´( ･） ｉ/
　　 　 |:::::::::::::::（__人_）　 |
　　　　＼:::::::::::::｀ー'　 ／ ﾁｯ うっせーな…
　　　　／:::::::::::::::::::::::::::＼

298:デフォルトの名無しさん
10/02/25 23:29:53
>>295
どれ使うか分からんので教えて。

299:デフォルトの名無しさん
10/02/26 00:08:58
>>290
procedure TForm1.Button1Click(Sender: TObject);
const
　CARD : array [0..5] of string = ('THE FOOL','THE MAGICIAN','THE HIGH PRIESTESS',
　　　　　　　　　　　　　　　　　　　　'THE EMPEROR','THE LOVERS','The HIEROPHANT');
　function tekitou(a,b:integer):TPoint;
　begin
　　result.X := b;
　　result.Y := a;
　end;
var
　CardNum: array [0..5] of Integer;
　i,r1,r2 : integer;
　p : TPoint;
begin
　Memo1.Clear;
　for i := 0 to 5 do
　　CardNum[i] := i;
　for i := 0 to 999 do begin
　　r1 := random(6);
　　r2 := random(6);
　　p := tekitou(CardNum[r1],CardNum[r2]);
　　CardNum[r1] := p.X;
　　CardNum[r2] := p.Y;
　end;
　for i := 0 to 5 do
　　Memo1.Lines.Add(CARD[CardNum[i]]);
end;

駄目な例

300:デフォルトの名無しさん
10/02/26 00:44:44
>>298
URLﾘﾝｸ(msdn.microsoft.com)

301:デフォルトの名無しさん
10/02/26 06:39:48
OSに任せておけばいいだけやん。あほか。

302:デフォルトの名無しさん
10/02/26 07:10:59
>>287
GetCurrentProcessorNumberやCPUIDで調べる方法は知ってるけど、
Sleepしてる最中に調べるのは無理だろって話さ。
ThrreadIDと違って、コアは実行途中でも入れ替わるんだし、
SleepしてたらCPUはつかんでないだろ。


303:デフォルトの名無しさん
10/02/26 07:43:33
sleep したスレッドが１０００個あったとして、それに意味があるの？

それこそ「特殊な」プログラムだと思うのだが。

304:デフォルトの名無しさん
10/02/26 12:54:02
>>302-303
だからいい加減出て行けよ
バカに噛みつくのもバカ
必死にしか見えない

305:デフォルトの名無しさん
10/02/26 12:54:45
はいはい本人乙

306:デフォルトの名無しさん
10/02/26 12:56:05
馬鹿というのは鳩山のAAを張ってる奴だな
いい迷惑だ

307:デフォルトの名無しさん
10/02/26 12:57:17
即レスとかどんだけ張り付いてるんだよｗ
そんなに悔しかったのか

308:デフォルトの名無しさん
10/02/26 12:59:29
>>302
そんなことしなくても外部からいくらでも観測する方法あるだろ…
必死になるあまり視野が狭くなってないか？落ち着けよ

309:デフォルトの名無しさん
10/02/26 13:02:13
本日も質問者不在のままおっさん鬱病患者達が頑張っていますね

310:デフォルトの名無しさん
10/02/26 13:06:52
必死必死うるせえんだよ
必死って言う方が必死なんだよばーーーーーーーーーーーーかｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
もうこんな気持ち悪いところ来ないから一人で勝手に喋ってろｗｗｗｗｗｗｗｗｗｗきめえｗｗｗｗｗｗ

311:デフォルトの名無しさん
10/02/26 13:08:47
これで静かになるな
ありがたやありがたや

312:デフォルトの名無しさん
10/02/26 13:16:25
TBase = class
public
　　class const Value: Integer; abstract;
end;
TBaseClass = class of TBase;

TExtend1 = class(TBase)
public
　　class const Value: Integer = 1;
end;

TExtend2 = class(TBase)
public
　　class const Value: Integer = 2;
end;

var
　　cls: TBaseClass;

cls := TExtend1;
a := cls.Value; //1が入って欲しい


もちろんこんなコードは書けないんですけど、
上記のようなクラス定数（もしくはクラス変数）の継承みたいなことって何かで代用できますかね

313:デフォルトの名無しさん
10/02/26 13:38:23
代替にはならないと思うがReadプロパティで対応するのが一般的だと思う。

314:デフォルトの名無しさん
10/02/26 18:44:42
引数なしの関数は変数にも見えるから

function Value : Integer; virtual;

を使う手もある





315:312
10/02/26 19:01:32
>>313-314
ありがとうございます
そうなんですよね、実装部に書くことを許容すればできるんですけど、
宣言部だけで継承先の振る舞いを変えられたらと思ったんですが、やはり仕様上難しそうですね…

316:デフォルトの名無しさん
10/02/26 22:52:20
Delphi、VisualStudioに付いてくるやつ以外で
TAnimateで使えるようなAVIファイルを集めた
市販の素材集はないでしょうか？

317:デフォルトの名無しさん
10/02/26 22:56:51
TStringListの内容をINIファイルの一行データとして安全に書き込んだり読み込んだりするための変換処理ってどう書けばいいですか？

318:デフォルトの名無しさん
10/02/26 23:29:37
具体的にどういう変換をしたいのかが見えない

319:デフォルトの名無しさん
10/02/26 23:37:10
ini[0] = TStringList.Parse(sl[0]);
sl[0] = TIniFile.Parse(ini[0]);

320:デフォルトの名無しさん
10/02/26 23:41:10
>>317
例えば、iniファイルに
key=aaa;bbb;ccc
と書かれていた場合に、

その値を
aaa
bbb
ccc

と、変換して取得したい。
または、逆変換してiniファイルに書き込みたい。ってこと？

単純にTStrings#DelimitedTextプロパティを通せば、自動的に変換してくれる。
ただし落とし穴があって、スペースもデリミタとして扱ってしまう。(Del 7の場合。以降のDelphiは使用したことないのでシラネ）

厳密に指定したデリミタのみで分割したい場合、JCL(URLﾘﾝｸ(jcl.delphi-jedi.org))に含まれる、JclStrings#StringsToStrやJclStrings#StrToStringsを使用してます。

iniファイルへの読み書きはTIniFile使えばいいじゃね？。安全にが何を指してるか知らないけど。


321:デフォルトの名無しさん
10/02/26 23:42:39
mailto:sage　てｓ


322:デフォルトの名無しさん
10/02/26 23:47:32
正直な話、オレだったらTStringlistの内容をinifileに保存なんてしない。
何を目指してるのかは分からないけど。

323:デフォルトの名無しさん
10/02/27 03:53:55
>>320
個々にAnsiQuotedStr（読み込み時は逆にAnsiDequotedStr）を適用すれば外部ライブラリはいらない

324:デフォルトの名無しさん
10/02/27 09:18:11
マルチコアの話に便乗なんですが、要は1つのスレッドを
OSが適当に割り振るからあんまり考えなくて良いよって解釈しました。
言い方変えると1スレッドを複数のコアで処理はしないってこと?
マルチコア対応とか書いてあるアプリって、重い処理でも1スレッドに書いたほうが
プログラムが簡単なのにマルチスレッドに出来るだけ分けてるって事?

325:デフォルトの名無しさん
10/02/27 09:44:07
>>323
TStringListの個々の要素であるStringは#0-#20(当然#13#10も)なんかも格納できるバイナリコンテナだからもうひとひねり必要だな。
標準でやるには例えばURL Encode/Decodeとかできっちり処理しないと破綻する。

326:デフォルトの名無しさん
10/02/27 10:26:53
だがほとんどの処理で #0 以降の文字は欠落するから
もう忘れてもいいんじゃないかな？

327:292
10/02/27 14:37:50
どの程度誤差が発生するのかちょっと調べてみました。
memo1,2,3を配置して誤差が出たとき追加していきます。

procedure TForm1.Button3Click(Sender: TObject);
var
Su : double ;
Kin ,sux : integer;
kei ,ans : double;
a1,a2,a3 : double;
t :string;
const
sucon = 0.00000001;
begin
memo1.Clear;
memo2.Clear;
memo3.Clear;
for Sux := 1 to 1000 do
begin
su := sux / 10;
for Kin := 1 to 1000 do
begin
kei := Su * Kin ;
a1 := trunc(kei);
a2 := trunc( Kin * su);
a3 := trunc( Kin * su+ sucon);
ans := trunc((sux * kin / 10)) ;

328:292
10/02/27 14:40:31
if a1<>ans then
begin
t := Floattostr(kin) + ' , ' + Floattostr(su) + ' , ' + Floattostr(ans) + ' , ' + Floattostr(a1) + ' , ' + Floattostr(a2) + ' , ' + Floattostr(a3);
memo1.Lines.Add(t);
end;
if a2<>ans then
begin
t := Floattostr(kin) + ' , ' + Floattostr(su) + ' , ' + Floattostr(ans) + ' , ' + Floattostr(a1) + ' , ' + Floattostr(a2) + ' , ' + Floattostr(a3);
memo2.Lines.Add(t);
end;
if (a3<>ans) then
begin
t := Floattostr(kin) + ' , ' + Floattostr(su) + ' , ' + Floattostr(ans) + ' , ' + Floattostr(a1) + ' , ' + Floattostr(a2) + ' , ' + Floattostr(a3);
memo3.Lines.Add(t);
end;
end;
end;
memo1.Lines.SaveToFile('c:\memo1.csv');
memo2.Lines.SaveToFile('c:\memo2.csv');
memo3.Lines.SaveToFile('c:\memo3.csv');
end;


どうやら単に計算してからtruncしただけでは発生頻度が減るだけで完全な対策にはならなそうです。
小さい数を足してやって切り捨てるのが良いようです。

329:デフォルトの名無しさん
10/02/27 14:58:05
問題の所在を理解していないような希ガス…

330:デフォルトの名無しさん
10/02/28 07:34:09
やべー、俺も>>292の原因知りてぇ。
>>296さんのExtendedになぜなるのかが知りてぇ。

こういう場合、Edit1の方法で計算しないと間違った答えが出ることもあるってことだよね。

331:デフォルトの名無しさん
10/02/28 07:47:13
URLﾘﾝｸ(homepage1.nifty.com)

↑ここに同じようなやりとりがあった。

332:デフォルトの名無しさん
10/02/28 07:52:04
つーことで、実数型使うときはdoubleを使わないでextendedを使えってこと？

333:デフォルトの名無しさん
10/02/28 08:02:36
おー、すまん。一人でとっちらかっていた。
URLﾘﾝｸ(homepage1.nifty.com)
ここ読んでわかったけど、
Trunc(X: Extended): Int64;
で型変換してる。
Trunc使うときは、Extended型で使わないと誤差がでるってこと。

もしくは小数点移動させて、整数にしてから処理すればいいね。

334:330-333
10/02/28 08:20:53
浮動小数って、意味がわかりました。そういうものなんですね。
使ったことなかったものですから、、、今回よくわかりました。
332も違うつーことで。

335:デフォルトの名無しさん
10/02/28 18:43:16
それは不動少数

336:デフォルトの名無しさん
10/02/28 20:36:04
すみません教えて下さい。
Form1 に直接 Image1 を置いていたのですが後から Panel1 を追加して Image1 の親コントロールを Panel1 に変更したいのですが、IDE でやる方法はありませんか？

337:デフォルトの名無しさん
10/02/28 20:53:34
floatとdoubleで結果が異なる例は見たことあったけど
doubleとextendedで差が出る実例は初めて見た。
64bit厨はどうするのだろうか。

338:デフォルトの名無しさん
10/02/28 21:14:15
それ 64bit 関係ないし
x64 なら 128bit 浮動小数点数が必ず使えるし


339:デフォルトの名無しさん
10/02/28 21:51:41
337は64ビットネイティブバイナリでFPU命令が使えないと思っているんじゃないだろうか

340:デフォルトの名無しさん
10/02/28 22:00:26
>>336　切り取って貼り付ける。


341:デフォルトの名無しさん
10/02/28 22:02:28
>>340
！
なるほど！ありがとうございます！

342:337
10/02/28 23:33:39
>>338, 339
ごめん、知らなかった。
>128bit浮動小数点と、64bitネイティブでFPU
エンバカスレに帰るよ。

343:デフォルトの名無しさん
10/03/01 01:26:40
>>338
64bit2個をまとめて扱えるだけであって128bitが1個じゃないから

344:デフォルトの名無しさん
10/03/01 02:02:25
実装がどうなってるかは関係ないだろ
扱えることに変わりはないし

345:デフォルトの名無しさん
10/03/01 17:58:10
実装は関係ないだろキリッ！って言われてもなぁ

346:デフォルトの名無しさん
10/03/01 19:12:48
はいはい

347:デフォルトの名無しさん
10/03/01 19:25:15
>>345
お前がそう思うんならなんやらかんやら

348:デフォルトの名無しさん
10/03/01 19:25:56
delphi2011っていつでるの？

349:デフォルトの名無しさん
10/03/01 20:00:32
さあ

350:デフォルトの名無しさん
10/03/01 20:56:48
>>348
もうすぐじゃないの？　ただし32ビット

351:デフォルトの名無しさん
10/03/02 21:21:42
特定の位置からバイナリを読み取って、違うファイルとして保存するというプログラムを書いています。
fileopen関数で開いて、FileRead(F, Buff^, Size);でバッファに格納はできたのですが、
この格納したものはテキストでならstringですので取り出せますが、バイナリとして保存する場合はどのように取り出せばよいのでしょうか？
お力をお貸しください。

352:デフォルトの名無しさん
10/03/02 21:35:10
そのままでいいだろ

353:デフォルトの名無しさん
10/03/02 21:36:16
>>344
実装がどうとか以前に扱えないし
SSE2が四倍精度浮動小数点数扱えると思ってんの？

354:デフォルトの名無しさん
10/03/02 21:41:13
>>352
バッファはテキストとして保存可能ですが、そのバイナリがテキストでない画像とかを
どうやってバイナリとして保存するかがわからなくて・・・。


355:デフォルトの名無しさん
10/03/02 21:49:37
>>354
MemoryStream


356:デフォルトの名無しさん
10/03/02 21:57:44
>>355
それやろうと思ったんだけど、うまくいかなくて・・・
var
ms:tmemorystream;
begin
ms := tmemorystream.create;
ms.loadfromfile('TEST.dat');
//このseekがよくわからない。例えばSizeが300の地点から500までを読む場合の位置設定がわからないところ

ms.seek(？);

ms.read(Buff^,sizeof(buff));
ms.savetofile('TEST2.dat');
ms.free;

これでできなかったんです・・・。



357:デフォルトの名無しさん
10/03/02 22:05:49
>351
ファイルストリームで元ファイルを開く→所定の位置にseekする→メモリストリームにコピーする
→メモリストリームのPositionを0に戻す→メモリストリームをファイルに書き込む

358:デフォルトの名無しさん
10/03/02 22:13:33
>>357
レスありがと。
メモリストリームにコピーとは？どのような関数ですか？

359:デフォルトの名無しさん
10/03/02 22:34:57
CB_SETCURSELってチェンジイベントみたいなのって起きないのかな。
他アプリのコンボボックスを操作するのに、CB_SETCURSELで選択項目を
変えるんだけど、一回コンボボックスにクリックメッセージを送らないと
認識しないみたいなんだ。
これって、相手のアプリの作りの問題？
別のAPIがあるの？

360:デフォルトの名無しさん
10/03/02 22:50:08
>>354
意味分からん
何もしてないのにバッファが書き換わるとでも言いたいのか

361:デフォルトの名無しさん
10/03/02 22:51:47
>>360
簡単にいうとどうやってこの格納されたバッファをファイルとして保存するかなんです。

362:デフォルトの名無しさん
10/03/02 23:11:16
ファイルストリームでもメモリストリームでも好きなの使えば素敵やん

363:デフォルトの名無しさん
10/03/02 23:43:28
>>361
b: array[0..4095] of byte;
MS: TMemoryStream;
begin
for i:= 0 to 4095 do b[i] := $FF;
MS:= TMemoryStream.Create;
MS.Write(b, 4096);
MS.SaveToFile('c:\gomi.dat');
MS.Free;

364:デフォルトの名無しさん
10/03/02 23:58:58
>>363
書き込むだけの用途ならTFileStream使え
Create-Freeはtry-finallyで囲め
ハードコーディングすんな

365:デフォルトの名無しさん
10/03/03 00:07:55
>>364
うわ…

366:デフォルトの名無しさん
10/03/03 00:30:48
>>358
とりあえず、マニュアル（ヘルプ）読んでから、質問しろ

function CopyFrom(Source: TStream; Count: Int64): Int64;

ってのが見つかるはずだから


次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch
5080日前に更新/277 KB
担当:undef