ミ,,゚Д゚彡フサギコのフサフサDelphi相談室�H
■ このスレッドは過去ログ倉庫に格納されています
0001フサギコ
NGNG ̄ ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄
∧,,∧____
∬ /,ミ゚Д゚,,彡,, /|
□⊂へ ::::⊂,,,ミ //
(_ミ ゛,, ノ~~//
(_丿|_|"" し'
 ̄ ̄
↓初心者の方はこちらへ
フサギコの *やさしい* Delphi質問スレ Ver.12
http://pc2.2ch.net/test/read.cgi/tech/1045476912/l50
0002フサギコ
NGNGDelphi相談室その8
http://pc2.2ch.net/test/read.cgi/tech/1037146781/
Delphi相談室その7
http://pc3.2ch.net/tech/kako/1032/10325/1032576325.html
Delphi相談室その6
http://pc3.2ch.net/tech/kako/1028/10284/1028436692.html
Delphi相談室その5
http://pc3.2ch.net/tech/kako/1022/10229/1022921598.html
Delphi相談室その4
http://pc.2ch.net/tech/kako/1018/10182/1018211735.html
Delphi相談室その3
http://pc.2ch.net/tech/kako/1010/10101/1010153466.html
Delphi相談室その2
http://pc.2ch.net/tech/kako/995/995950803.html
Delphi相談室
http://piza.2ch.net/tech/kako/971/971261573.html
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNGΣ _ _ / \ く ::* :∴ ∴ ::∴ *:∴ ∴ ::∴ *:∴ @∴ :
く |/◎)、 ∠l / \ |::*:∴ ∴ ::∴ι=*●:::∴ :・ ←ターン>>5
\ | | 「....;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;|l∫;;+:;::. └■> \ ::*:∴ @∴ ::*:∴
,/| \__ ;;;;;;;;;;;;;;;;;;;;;;;;| |;:*:;;;:;:;;;;, し-/ |::*:∴ ∴ ::*:∴
/´⌒ヽ____ \| ̄ ̄ ̄ ̄ ̄..|;;;;;;, i ̄ ̄i ゙、 ::*:∴@ ∴ ::*:∴
,/´## ! ヲ=℃/ ̄ |;;;;;;;;, / ゙、 ::*:∴ ∴ ::*:∴
/_レ‐ー――‐"~)_ノ´ )) ヾ;;;;;;;;,,,.. / `i ∴ ::∴ ::*:∴
/ __ r'~ ヾ;;;;;;;;;;;;,,,.トー――――・ 〜_ ∴ ::∴ :::∴
/ _) ヾ;;;;;;;;;;;;;;,,,,.... ┃ ´|
| 、 ノ ヾ;;;;;;;;;;;;;;;;;;;;;;;;;,,,,.... ┃ /
゙、;;;,,..  ̄" );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;....(
0006相談募集中!&rlo;!中集募談相&lro;
NGNG∧,,∧ ∬ /
ミ,,゚Д゚彡っ━~ < ageてみるか...。
_と~,, ~,,,ノ_. ∀ \
ミ,,,,/~), │ ┷┳━  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
 ̄ ̄ ̄ .じ'J ̄ ̄| ┃
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ┻
♪ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ ♪
♪ ∧,,∧ ♪ < 相談募集中! > .♪∧,,∧ ♪
ミ,,゚Д゚彡. ♪\________/♪ ミ゚Д゚,,彡
ミつ[|lllll]). .([lllll|]とミ
〜ミ ミ ミ ミ〜
U U .U U
0007デフォルトの名無しさん
NGNGちゃんと削除依頼しろよ。
0008デフォルトの名無しさん
NGNGの次スレでいいんじゃない?番号同じだけど。
0009デフォルトの名無しさん
NGNGコンパイルとか編集では判らないけど、デバッカで行が合わずにイライラする事ありませんか?
まだD7はメインで使ってないので(いまだにD5) それほど危機感ないけど
これって、どういう操作でなるとか情報出ていません?
改行コード変換ツールでも作らないといけないかな
0010デフォルトの名無しさん
NGNGKylix対策じゃないの?
0011デフォルトの名無しさん
NGNGaaa → bbb
みたいな対応表はありませんか?
0012デフォルトの名無しさん
NGNGそれだけだとわからん
0013デフォルトの名無しさん
NGNGまたは学習用。
0014デフォルトの名無しさん
NGNGDelphi → begin end;
これさえ覚えとけば完璧
0015デフォルトの名無しさん
NGNGttp://hp.vector.co.jp/authors/VA014436/prg_memo/delphi/c_d.html
元ファイルは
ttp://www.tensyo.com/urame/c2delphi.txt
に移動してるよう
0017デフォルトの名無しさん
NGNG間違いハケーン
Cのbreak <> Delphiのcontinue。
Cのbreak = Delphiのbreak。
0018デフォルトの名無しさん
NGNGHTMLにしたときのミスと思われ。
0019デフォルトの名無しさん
NGNG0020デフォルトの名無しさん
NGNGPascalのcase文は
Cのswitch文で分岐処理後にbreakが必ず付いているのと同じだから注意
0021Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ /
ミ,,゚Д゚彡 < こんな感じすか?
U つ∀ \
〜ミ ミ ┴  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪
Borland Delphi,C++Builder
http://www2d.biglobe.ne.jp/~katsu_k/borland.html
C-C++プログラマのためのPascal講座
http://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-003.html
Delphi&C++Builder&VisualBasic徹底比較
http://member.nifty.ne.jp/h_kova/procomp.htm
Object Pascal, C-C++, VBのデータ型
http://homepage1.nifty.com/susho/windoze/datatype.html
Switching Delphi/VB Deepforest
http://member.nifty.ne.jp/deepforest/vbdel.htm
c2delphi
http://www.tensyo.com/urame/c2delphi.txt
0022デフォルトの名無しさん
NGNG最近の言語ではだだ漏れswichは悪みたいだね。
0023デフォルトの名無しさん
NGNGC#ではbreakかgotoを強要されるね
0024デフォルトの名無しさん
NGNGbreak無くてもいいようにしてるんだと思うけど、こう言語ごとにちがっちゃ、
逆にバグを増やしてしまいそうな気がしないでもない。
0025デフォルトの名無しさん
NGNGそりはPascal(つーか元々はALGOLかな)よりもCに責任があると思うなり。
0026デフォルトの名無しさん
NGNG0027Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ だろうね
ミ,,゚Д゚彡旦~~
( / ̄ ̄ ̄ ̄ヽ
彡(三三/
0028デフォルトの名無しさん
NGNG0029&rlo;
NGNG∧,,∧ ∬ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
ミ,,゚Д゚ノ,っ━~ < Skill Up ! >A6VzDeLphI、あとよろしく
_と~,,, ~,,,ノ_. ∀ \_________
.ミ,,,/~), .| ┷┳━
 ̄ ̄ ̄ .し'J ̄ ̄|... ┃
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ .┻
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNG10代前半の思春期に生えてきます
0032デフォルトの名無しさん
NGNG0033デフォルトの名無しさん
NGNG0で埋めた後に別の値をセットするのは無駄でしょ。という考え。
0034デフォルトの名無しさん
NGNGDelphiでAVIファイルなどから、各CODECデコーダを使って
各フレームの画像を取得したいんですが、方法が分からないので
教えていただけませんか? 少なくとも方向性だけでも。
現在はVFAPIプラグインとして動作していて、動画の入出力は
他のVFAPIプラグインに頼っているんですが、やっぱり独自に
AVIファイルのデコード/エンコードの機能を実装したいので。
もしよかったら、よろしくご教授ください。
0035デフォルトの名無しさん
NGNGhttp://hp.vector.co.jp/authors/VA019656/
0036デフォルトの名無しさん
NGNG茨の道じゃないような気がするなぁ…)
0037デフォルトの名無しさん
NGNGよろしく。
0038デフォルトの名無しさん
NGNGうるせー馬鹿。
よろしく。
0039デフォルトの名無しさん
NGNGリンクの貼り付け、ありがとうございます。
AviFile関連のAPIを使うみたいですね。SDKでも確認したんだけど、
当然だけど、例がすべてC用で、Cの苦手なオイラには結構大変そう。
でも、ちょっと がんばってみます。
0040デフォルトの名無しさん
NGNG0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNGForm2上のImageへ拡大して表示したいのですが、
表示される画像が、マウスの位置とずれて表示されます。
なぜでしょうか?
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
DestRext,SrcRect: TRect;
begin
begin
DestRext := Rect(0,0,Form2.Image2.Width,Form2.Image2.Height);
SrcRect := Rect( (x + 20),(y + 20),(x - 20),(y - 20));
BMP.Assign(Form1.Image1.Picture.Graphic);
Form2.Image2.Canvas.CopyRect(DestRext,BMP.Canvas,SrcRect);
end;
end;
0043デフォルトの名無しさん
NGNGRect( (x + 20),(y + 20),(x - 20),(y - 20))
なんとなく、これ上下左右が逆の気がする。
0044デフォルトの名無しさん
NGNG0045デフォルトの名無しさん
NGNGアドレスを登録してもメールが来ません
解決方法を知ってる方教えてください
0046デフォルトの名無しさん
NGNG違うIPのメールアドレスを使う
0047デフォルトの名無しさん
NGNG0048デフォルトの名無しさん
NGNG0049デフォルトの名無しさん
NGNG俺が登録した時は一瞬で返ってきたけどな…
>>45
まぁ、メール鯖の環境や、その日によって
届く時間が違うかも知れないから
ある程度まって、届いてなかったら
ダウンロードし直して、再インストールしてみたら?
0050デフォルトの名無しさん
NGNG0051デフォルトの名無しさん
NGNGどうやるの?
0052デフォルトの名無しさん
NGNGキージェネ
0053デフォルトの名無しさん
NGNG違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
違うIPのメールアドレスを使う違うIPのメールアドレスを使う違うIPのメールアドレスを使う
0054デフォルトの名無しさん
NGNGください。
0055デフォルトの名無しさん
NGNG0056デフォルトの名無しさん
NGNG0057デフォルトの名無しさん
NGNG苦しいな・・・。
0058デフォルトの名無しさん
NGNGVBのwithステートメントみないなのって
ないんですか?
0059デフォルトの名無しさん
NGNG同名、同機能の物がありますが。なめてるんですか?
0060デフォルトの名無しさん
NGNG>>58はwith構文は見つけたけど、with手続きは見つけられなかったんだよ、きっと。
006142
NGNG上下左右逆でした。
マウスのX YではImageのサイズを変更したときに、変更前と、変更後では、
X,Yの指す画像が違います。
この調整をしなくてはいけないと思うのですが、どうすればよいのでしょうか?
マウスでImageの右下が、X=100,Y=100を指したとき、
Rect( (0),(0),(100),(100))
で表示したら、画面の半分ぐらいしか表示されませんでした。
0062デフォルトの名無しさん
NGNG0063デフォルトの名無しさん
NGNG0064デフォルトの名無しさん
NGNGボケにしては微妙・・・
0065デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNG言ってる事がよく解らん。
>X,Yの指す画像が違います
確かにそうだろうけど、ちゃんとしたコードが書かれていれば、
マウスポインタの直下の画像がImage2に描画される事には変わりないはず。
上手くいかないのは、
妙な勘違いとか、ちょっとした見落としとかが原因の気がするんだが。
0067デフォルトの名無しさん
NGNGDllを初めて書いてます(人の作ったアプリケーションのプラグインとして)
Dll のコールバック関数内でTMenuItemにイベントハンドラを書こうと思ったのですが
下のソースの // sItem.OnClick:=ListClick;の部分のコメントを取るとコンパイルできません
{エラーは 『 型に互換性がありません メソッドポインタと通常の手続き 』 という奴}
普通のアプリだとイベントハンドラに関連づけるのはこれで良かったと思うのですがDllだと違うのでしょうか_
ちなみにListClickの宣言は procedure ListClick(sender:TObject); です
///////以下ソース///////
function ListUpWindow(hwnd: HWND; l:Longint): Bool; stdcall;
var
s: array[0..255] of Char;
sItem: TMenuItem;
begin
Result := True;
if IsWindowVisible(hwnd) then
begin
GetWindowText(hwnd, @s, 255);
sItem:=TMenuItem.Create(PopupMenu);
sItem.Caption:=strpas(s);
// sItem.OnClick:=ListClick; // ←ここ
PopupMenu.Items.Add(sItem);
end;
end;
教えてくだされ・・・
0068デフォルトの名無しさん
NGNGヘルプの
[Object Pascal言語ガイド - データ型,変数,定数 - 手続き型 - 手続き型:概要]
を参照。
どうやら、
procedure HogeProc(Sender: TObject);
と
THoge = class
procedure HogeProc(Sender: TObject);
は型が違うから、イベントと結びつけたいなら何かのメソッドとして宣言しないとダメらしい。
0069デフォルトの名無しさん
NGNG関数とメソッドの違い。
0070デフォルトの名無しさん
NGNG0071Delフサギコ ◆A6VzDeLphI
NGNGミ,,゚Д゚彡
ミつ日(ミ
汎用的に使えそうな
TFileInfo.Create(const FileName: string)
なものを作ろうと思うのですが
どういうプロパティが必要になるでしょうか?
0072Delフサギコ ◆A6VzDeLphI
NGNGと、TNotifyEvent 型
を、HELPでみるとよい、思うです。
∫,,,,,,,,,∧,,∧
⊂,,,,,,,,,つ,,゚Д゚ミつ
0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNG0075デフォルトの名無しさん
NGNG割と同意。
ディレクトリと属性渡すとTListが帰ってくるとか、そんな感じで良いんじゃないの?
0076デフォルトの名無しさん
NGNG0077デフォルトの名無しさん
NGNGとりあえず、何でもコンポにしようとしすぎる病にかかってはいまいか?
JAVAとかやると何でもクラスにしようとしすぎる病に一度はかかるものだが・・・
Delphiでは珍しい症状かもな
0078デフォルトの名無しさん
NGNGって言うかDelphiのコンポーネントって使うのは楽だけど配布するのとか面倒だからなぁ・・・。
ふと思い立って昔のプログラム開いたら自作コンポーネントがない。あっても登録するのが面倒。とかあったから最近は関数かクラスにしてるよ。
0079Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ >>71さん、そうかも。(でもコンポじゃないよ)
ミ,,゚Д゚彡 >>75さん、TStrings渡しておいて
ミつ日(ミ
TFileInformationって構造体の
メンバーとして何がふさわしいか,,,って質問の方がよかったかな。
ファイルって、いろいろこっそり
情報が封じ込められているような
気がするので、その辺
知っている人がいたら教えてください。
セキュリティとか、権限とか
アーカイブとか,,,よく知らないので。
0080デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemiofileinfomemberstopic.asp
0081デフォルトの名無しさん
NGNG既にWIndows用のCLRはあるのに。。。
0082Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ 別な質問です
ミ,,゚Д゚彡
ミ つ旦)~~
〜と,,,~),,~)
TEdit(TMemoじゃない)で
コピペ処理する場合で
#13#10#9などを
エスケープシーケンスな\r\n\tで
表示させたり、取得できるように
したいのですが、どのようにするといいのでしょうか?
コピペ処理はショートカットキーか
標準のPopupMenuや
自分で作ったPopupmenu、
自作Action
標準Action
など、いろんな場合が考えられますが
全部、同じように処理できる方法が
あったら、いいなと思っています。
0083デフォルトの名無しさん
NGNGAnsi_Replace()とかどうなの?
0084デフォルトの名無しさん
NGNGCLRを使うにはDel.NETが必要だから、それと同じインターフェースで、現Del用に実装しろってことね。
VCL.NETと逆のアプローチですな
0085デフォルトの名無しさん
NGNGフサギコ氏は、アルゴリズムでは無く、TEdit.Textを操作する
TAction全体にフィルタをかける方法を求めていると思われる。
なので、こういうときこそアスペクト指向だ!とか言ってみるテスト
0086デフォルトの名無しさん
NGNG0087デフォルトの名無しさん
NGNGクリップボード書くのが一番楽じゃないの?
0088デフォルトの名無しさん
NGNG0089Delフサギコ ◆A6VzDeLphI
NGNG∧.,,∧ /
ミ.,,゚Д゚彡< れす、産休でつ。
ミ つ目(ミ . \
〜ミ,,O,,,,,,つ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
インタフェスの継承とかはネイティブでも実装されるようですね。
http://bdn.borland.com/article/0,1410,29779,00.html
(英語だから勘違いしていたらスマソ)
ネイティブでも
recordにメソッド追加と
名前空間の階層化とは是非とも導入してほしぃー
0090Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ TEditを継承したら
ミ,,゚Д゚ミζ 作れるですかね?
ミ つ旦
〜と,,,~),,~) ペーストしたときや
コピッタ時のメッセージを
監視しとけばいいのかな?
0091デフォルトの名無しさん
NGNGobject型…
むしろ、implementsを.NETでも動くようにして欲しい…
0092Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ TObjectをなくして
ミ,,゚Д゚彡旦~~ recordにメソッドを追加する
( / ̄ ̄ ̄ ̄ヽ とかいうのがあったのでは?
彡(三三/
http://www.borland.co.jp/delphi/papers/dh7_comp/dh7_comp2.html
http://www.borland.co.jp/delphi/papers/dh7_comp/dh7_comp4.html
3月中に発表あるんかな?
0093Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ /WM_PASTEのメッセージハンドラ書いて
ミ*゚∀゚彡 < SetText:=で変換後のClipboard.AsTextを
ミ つ且~~ \ 貼り付けたら望みのものができますた。
〜ミ,,,,,, ,,ミ
気分によって、WM_CUT/WM_COPYで
\r\nを#13#10に変換して戻す事ができるですね。
0094デフォルトの名無しさん
NGNG0095デフォルトの名無しさん
NGNG0096ねこま
NGNG0097デフォルトの名無しさん
NGNG0098Delフサギコ ◆A6VzDeLphI
NGNGミ*゚Д゚彡旦~~
( / ̄ ̄ ̄ ̄ヽ
彡(三三/
>>ねこまさん
して、まいた。
009942
NGNGいろいろ試行錯誤してわかった点です。
元の画像を
Image1.Center := True
にすると、Imageの上下左右に余白ができます。
その分がずれてくるようです。
また、
Image1.Stretch := True
にすると、拡大・縮小した分ずれるようです。
このずれを調整したいのですがどうすればよいでしょうか?
この二つをFalseにすれば、正しく表示されます。
>62
GetCursorPos は
適用対象
TChart, TDBChartコンポーネント
となっていますが、Imageコンポーネントでも利用できるのでしょうか?
0100デフォルトの名無しさん
NGNG0101デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています