トップページ⇒tech
949コメント291KB

Delphi相談室その６

レス数が900を超えています。1000を超えると表示できなくなるよ。
0001Delphi1から使ってますNGNG
Borland Delphiに関する質問・相談などを扱っています。

ボーランド
http://www.borland.co.jp/

＜関連スレッド＞
・雑談はこちら
ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室④
http://pc3.2ch.net/test/read.cgi/tech/1027343132/l50
・DelphiとC#の話はこちら
C＃ 仲良し Delphi Round 2
http://pc3.2ch.net/test/read.cgi/tech/1022662451/l50
・ネタスレはこちら
※注：相談スレではありません！
モナーの *やさしい* Delphi質問スレ Ver.8
http://pc3.2ch.net/test/read.cgi/tech/1027873869/l50

その他いろいろ
>>2-10
0002Delphi1から使ってますNGNG
■過去スレ
Delphi相談室その５
http://pc3.2ch.net/test/read.cgi/tech/1022921598/
Delphi相談室その４
http://pc.2ch.net/test/read.cgi/tech/1018211735/
Delphi相談室その３
http://pc.2ch.net/test/read.cgi/tech/1010153466/
Delphi相談室その２
http://pc.2ch.net/tech/kako/995/995950803.html
Delphi相談室
http://piza.2ch.net/tech/kako/971/971261573.html
0003Delphi1から使ってますNGNG
あと適当に貼っておいてください。
0004デフォルトの名無しさんNGNG
投げやりでええね。おつ。
0005デフォルトの名無しさんNGNG
Delphi一から使ってます！って、初心に返るってことか・・・
素晴らしい！
0006デフォルトの名無しさんNGNG
Sleepを使って、Label1を書き換えたあと、
3秒後にLabel2を書き換えるという事をやりたいのですが、
どうしたら良いでしょうか？

Label1.Caption := 'あいうえお';
Sleep(3000);
Label2.Caption :='かきくけこ';

というような形でやると、3秒たった後、Label1とLabel2が同時に変わってしまいました。
0007デフォルトの名無しさんNGNG
新すれ乙ー
0008デフォルトの名無しさんNGNG
Label1.caption := 'うんこ';
Label1.update;
Sleep(3000);
Label2.Caption := 'ちんこ';
0009デフォルトの名無しさんNGNG
>>8
例が下品だ。
00106NGNG
>8
助かりました!
0011デフォルトの名無しさんNGNG
（´-`）.。oO（TTimer使えよ‥‥‥)
0012ﾃﾞﾙﾌｧｲNGNG
フォームを振動させることは出来るのでしょうか？
できるなら、やり方を教えてください。
0013デフォルトの名無しさんNGNG
>>12
タイマーで勝手に座標変えな。

常識というかそれくらい思いつかないとイベントドリブン＋クラスライブラリなんぞ使えんが。
0014デフォルトの名無しさんNGNG
>>13
つーか、普通のプログラムも無理だろ
そもそも、イベントドリブンなんて今時常識なんで態々書いてるあんたもダサイ
0015ﾃﾞﾙﾌｧｲNGNG
すみません。つい先日プログラムというものを始めたばかりなんで。
精進します。
0016デフォルトの名無しさんNGNG
悪いとは言わないが、最初はもっと簡単なのから…。
とか段階ふんだほうがいいと思う＜言語
0017デフォルトの名無しさんNGNG
>>16は、「簡単なプログラムから」と言いたいのか、「簡単な言語から」と言いたいのか...
後者なら、Delphiより簡単な言語ってあまりないように思うぞ。
001816NGNG
>>17
「簡単な言語から」。

あまり無い？そお？そーかなぁ？いや、Delphiうんぬんはこの際置いといて。
全くの「プログラミング経験無し」から始める言語としては厳しくない？
そーでもないのかな？まぁ、15の問題だから別にいいけど。

それにしてもいい時代になりましたねぇ、RADが無料で手に入るなんて、ねぇおじいさん。
0019でもどり初心者 ◆KcG2I.hg NGNG
夏休みで暇な学生がDelphiでゲーム作ろうとしてんか。
自分もﾘｱﾙ厨房のころ思い出すなぁ。

ベーマガしこしこ打ち込んでたよ。
0020１６NGNG
>>19
そそ。基本はベーシックから（本当かよッ！？）。
まさにベーシック。
パソコンショップにベーマガ持参で、店員の目を気にしつつ、
シコシコ打ち込んで悦に浸ることから始めよう！

おじいさんはオレでした（藁
0021デフォルトの名無しさんNGNG
VBScriptあたりから始めたら？
0022デフォルトの名無しさんNGNG
アイコンって作らない人もけっこういるやねぇ。面倒なのはよっく分かるけど。
delphiじゃなくて、「ホットなスープがカップから湯気出してるヤツ」が
紙面の大半を占めてるのを見ると愕然とするな。なんとなく。
「アイコンくらい作ってくれよ！」と思わなくもなくも…。
「緑丸の上に柱と黄色い稲妻」も増えてるとこを見ると、けっこう
delphiも浸透してるかなぁとか思うが…。アイコン作る時って、どーしてる？
0023デフォルトの名無しさんNGNG
>>22
Javaは確かアイコン変えられんだろ。できたっけ？
002422NGNG
>>23
Java？Javaのアイコンってどんなだっけ？
「ホットな～」は「Ｈ○Ｐ」だよ。
0025デフォルトの名無しさんNGNG
>>22
リリース前に頭に浮かんだイメージを３０分ぐらいで作る
アイコンが変わったらリリース版てことで
002617NGNG
>>18
強いて言やCOBOLかな(w
0027デフォルトの名無しさんNGNG
そもそも「Javaのアイコンを変える」ことの意味がわからん。
exeなら変えられるだろうが、jarとか、classファイルだったら関連付けられたアイコンになるだろ？
0028デフォルトの名無しさんNGNG
>>23
java.awt.Frame#setIconImage(Image image)
のこと?
0029デフォルトの名無しさんNGNG
デザイン系の学生使ってアプリにあわせて
アイコンデザインやってくれるような会社でもあればいいのに。
個人で500円、法人3000円くらいなら払うかも。
0030デフォルトの名無しさんNGNG
あのー例えば、以下のようなXMLライクな文字列

<住所録>
<個人>
<名前>山田太郎</名前>
<ふりがな>やまだたろう</ふりがな>
<住所>東京</住所>
</個人>
</住所録>

から

名前:山田太郎
ふりがな:やまだたろう
住所:東京

というように抜き出したいのですが、一番簡単な方法を教えてください。
DOMやら、正規表現やら方法があると思うのですが。。。。

0031デフォルトの名無しさんNGNG
>>30
スタイルシート使うとか
<?xml version="1.0" encoding="Shift_JIS"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl" xml:lang="ja">
<xsl:template match="/">
<xsl:value-of select="住所録/個人/名前" />
<xsl:value-of select="住所録/個人/ふりがな" />
<xsl:value-of select="住所録/個人/住所" />
</xsl:template>
</xsl:stylesheet>
こんなやつ
0032デフォルトの名無しさんNGNG
>>30
派＾差作るしか。
0033デフォルトの名無しさんNGNG
>>30
TXMLDocumentを使う・・・ただしEnt版（鬱
0034デフォルトの名無しさんNGNG
MSXMLパーサーやOpen XMLならタダ。
ttp://homepages.borland.com/ccalvert/Pascal/index.html

ただし上の文章は少々内容が古くなってる。
0035デフォルトの名無しさんNGNG
ボタンを押すと新しいウインドウを開くように
するにはどうすればいいのでしょうか？
ご教授願いします。
003630NGNG
>>31
ありがとうございます。スタイルシート使って凌いでます。

>>32
パーサか。。。。作るかな。。。。

>>33
エンプラ買う金ないし。。。打田

>>34
OpenXML使おうと思ったんですけど、大げさな感じがして、
どなたかもっと簡単な方法をご存知かと思いまして投げたんです。

ﾊｧ
0037デフォルトの名無しさんNGNG
>>35
procedure TForm1.Button1Click(Sender: TObject);
var New:TForm1;
begin
Application.CreateForm(TForm1, New);
New.Left:=Left+10;
New.Show;
end;
0038デフォルトの名無しさんNGNG
初心者は高級言語

超高級：COBOL
かなり高級：VisualBasic
ふつうに高級：C++ ObjectPascal
ちょっと高級：C
低級：アセンブラ
超低級：機械語
0039デフォルトの名無しさん ：NGNG
memoコンポーネントのlinesにテキストを書き込んで保存すると
必ず最後に改行が１つ自動挿入されてしまいます。　これが
邪魔で邪魔で死にそうです。　どなたかこの改行を付かない
ようにする方法をご存知ないでしょうか？

memoコンポーネントにこうゆうプロパティがあれば良かった
んですが・・
0040でもどり初心者 ◆KcG2I.hg NGNG
>>39
>memoコンポーネントにこうゆうプロパティがあれば良かった
>んですが・・

Tmemo継承してそういうプロパティーもったコンポつくる。
0041デフォルトの名無しさんNGNG
>>39 自分で保存すればいいでしょう。

Delphiで小さな実行ファイルを作ろう
http://pc3.2ch.net/test/read.cgi/tech/1009080085/22

の writeFileStrを使って writeFileStr( ファイル名 , Copy(Memo1.Lines.Text ,1 , Length(Memo1.Lines.Text)-2));
004230NGNG
結局、スタイルシートじゃ使い勝手が悪いので、
今しこしこ正規表現ライブラリつかって抜き出し中
0043デフォルトの名無しさんNGNG
>>30
別に正規表現ってまで行かなくても、
posで地道に抜き出してループさせたら駄目なのけ？
サクっと書けると思うけど。

</ を posで探して、そこからさかのぼって <●●>を
見つけに行って >　と < の間の文字を合体させたらいいだけでしょ。
004443NGNG
ありゃ、解決済みでしたか、ｽﾝﾏｿ
004539NGNG
>>40、41

貴重なヒントをありがとうございましたm(__)m
特に41さんのソースは参考になりました。
これで邪魔な改行からもおさらばです、助かりました！（＾＾
0046デフォルトの名無しさんNGNG
>>39
うちでやっても最後に改行はいらないけど。
D6 UP2/Win2000
0047デフォルトの名無しさんNGNG
>>37
ありがとうございました。試してみます。
0048デフォルトの名無しさんNGNG
WindowsXP機にDelphi3をインストールしたら、DatabaseDesktopが
おかしくなっちゃいました。
テーブルを構築するときの、「流用」とか「保存」とかのボタンが
消えていて押せなくなってます。×で閉じることは出来るんですが
当然保存が出来ません。
互換ウィザードで起動しようとすると「BDEを初期化できませんでした」
というエラーが出ます。
何か方法はないでしょうか。
0049デフォルトの名無しさんNGNG
無料の6使わずにそんな時代遅れなもん入れるか・・・。
0050デフォルトの名無しさんNGNG
6ってDBTextとかDBEditとか使えないんじゃないですか？
3で作ったのを6で開こうとしたらエラー出たんで使うのやめたんですが。
0051デフォルトの名無しさんNGNG
6自体XPで動作が安定しない場合があるのに、3って、、、、
Win2000にして、6のエンプラ買ったほうがいいかも。。。。。
0052デフォルトの名無しさんNGNG
上司に相談したら、「Delphiはもうやめるか」って言われた。
新しい言語覚えなきゃならなくなった…。(;´Д｀)
0053デフォルトの名無しさんNGNG
>>52　よく判らんけど、　自分を鍛錬するには２つ３つを順に使って色んな見方身に付けた方が絶対いいよ
0054デフォルトの名無しさんNGNG
>>53
同意、違う言語を使えば違うスタイルが見えてくる。
0055デフォルトの名無しさんNGNG
>上司に相談したら、「Delphiはもうやめるか」って言われた。
この脅し文句つきでMLに投げれば手厚いサポートを受けられるよ(藁
0056デフォルトの名無しさんNGNG
>>48 DatabaseDesktopなんて使った事ない。
　SQLの CREATE 文で作るもんだと思ってた。
0057デフォルトの名無しさんNGNG
XPに準拠した枯れた環境って現状あるの？
Win2KさえまだSPが出てる状況だから開発環境としては
まだ待ちだと思うのだが。
0058デフォルトの名無しさんNGNG
最初から枯れた環境なんてどこにも無い。
みんなで無理やり使って枯れさせるのだよ。

今複数の開発環境使ってXP上で開発してるけど
目立った不具合には遭遇していない。
ただ開発とは直接関係ないシェル=Explorer周りの挙動が
落ちたり固まったりでかなり厳しい・・・
0059 ◆xDd9P2XM NGNG
>>48
互換モードで何を選びましたか？
0060 ◆xDd9P2XM NGNG
>>51
こないだの大野ﾀﾝ直々のサポートで解決しましたが、なにか。
0061デフォルトの名無しさんNGNG
つまりBinフォルダにあるプログラムは全部互換モードで、
IMEの怪しい辞書は削除で、ってことだな。
0062 ◆xDd9P2XM NGNG
IMEの怪しい辞書を削除すれば互換モードの必要は無いよ。
BCB6 も VisualStudio も快調。
0063デフォルトの名無しさんNGNG
つまり、ATOKに乗り換えれば
いいわけだ
￣￣∨￣￣￣￣￣￣￣￣￣
　 ∧＿∧
　（　・∀・）
　（. 阿波.） 　ｲﾁﾀﾛｳ ﾊﾞﾝﾄﾞﾙｴﾃﾞｨｼｮﾝ ﾓ
　｜徳島|　　ﾖﾛｼｸ
　（＿_）＿）
0064ななしへたぐらま ◆B18Bks.Y NGNG
過去のソフトのメンテナンスで
旧バージョンを使わなければならないケースも
あるのではないでしょうか．
うちの開発マシンにはDelphiと3と5が入っています．
最近さらに2.0も（QuickReport初代を使っているソフトのメンテ用）．

>>56
アクセスみたいなデータベースソフトやDelphiからデータベースを使い始めた人間だと
逆の立場の人間だとコマンド文でテーブルを作成することの方が驚きかも知れません．
（というかすごく新鮮でした）
0065デフォルトの名無しさんNGNG
>>53
2つ3つてのは言語のことですか？
自分はBASIC→Progress2→Delphiときました。どれも極めず半端なまま
のﾍﾀﾚなんで、新しいのに挑戦しても駄目なﾖｶﾝ。

>>56
SQLなんて
create * from Table.db
しか書いたことないです。（自分に藁

>>59
互換モードはWin95とWin98/Me、ディスプレイ設定は全部チェックオフです。
NTと2000を今から試してみます。
0066デフォルトの名無しさんNGNG
>>65
2000 はだめよん。
NT4 SP5 とかそこらへんを。
0067デフォルトの名無しさんNGNG
>>59
おぉぅ、DatabaseDesktopはNT4.0モードで正常起動しました！
でもQuickReportで「アドレスに対する読み込み違反」が
出るのは回避できませんでした。
98SE時代には出なかったのにな～。
0068デフォルトの名無しさんNGNG
>>67
環境変数TEMP,TMPに短いパスを指定。
0069デフォルトの名無しさんNGNG
>>68
ありがとうございます、動きました！感動した！
両方ともC:\Windows\Tempで問題ないですよね。
0070デフォルトの名無しさんNGNG
Set Problem = Nothing
0071デフォルトの名無しさんNGNG
>>50
そりゃ、無料のD6パソで開いたからでは？
007230NGNG
自己レス
結局、MSXMLで落ち着きしますた。最初からやっとけばよかったよ。
なかなかMSXML使える
0073デフォルトの名無しさんNGNG
ただMSXMLってIEやMDACの導入状況でバージョン変わるから
注意して書かないと。
0074デフォルトの名無しさんNGNG
Delphi 7 英語版発表あげ
http://crn.channelsupersearch.com/news/crn/36736.asp
0075デフォルトの名無しさんNGNG
ついにプロ版でもXMLが標準で！！！
0076デフォルトの名無しさんNGNG
・Delphi compiler warnings and hints for .NET compatibility
・Import any .NET assembly as a COM object
・Export COM objects in Delphi to .NET managed applications
・.NET preview CIL compiler for the Delphi. language to create managed applications
・NET migration documentation

0077デフォルトの名無しさんNGNG
procedure TForm1.FormCreate(Sender: TObject);
が動いてないようなんですけど、エラーも出ないし、起こりえますか？
やりたいことは、システムメニューに項目を追加したいという単純なものなんですけど。。。。
0078デフォルトの名無しさんNGNG
ﾀｸｵﾀﾝも最近はここ見てたのかなあ？
「CIL Compilerプレヴュー(D7はまだIDE上からの連携無し)」
http://community.borland.com/article/0,1410,28972,00.html
0079デフォルトの名無しさんNGNG
ﾊｧ？
0080デルファイの名無しさんNGNG
J#のようにTObjectがSystem.Objectから継承されるのか、単なるエイリアスかは気になります。
>>78を読む限り、Mappingだけで詳細が…。継承だったら激しくマイナス点。

ポインタも例えunsafe扱いであっても無くなるわけでは無いので一安心。(prevew版ではまだサポートされて無いようですが)
implementsも残るみたいなので、とりあえずC#に1ポイント差。
0081後輩NGNG
>>78
ﾀｸｵﾀﾝが英語記事のつまみ食いが得意なのは社内でも有名。
けど、出典隠してさも自分が見つけたように言うのはよしてくださいよ > 先輩

ついでに一言。
>Kylix と統合しちゃうなんて．．．
誤訳だよう。冷静に読めばそんなことは書かれていないのに。
0082デフォルトの名無しさんNGNG
>>81
NEC の人？...

それはそうと、誤訳じゃなくて誤解/曲解ではないかな？
0083デフォルトの名無しさんNGNG
>>77
Form1 のイベントの　OnCreateの部分に
FormCreateって書いてある？
0084デフォルトの名無しさんNGNG
>>78のリンク先の後半に書いてある文法拡張はdcc32でもサポートされるのか…？
0085デフォルトの名無しさんNGNG
>72だけ読んで、MSXのメーリングリストかと思った私って馬鹿ですか。
0086デフォルトの名無しさんNGNG
Readlnで6行目だけを読み込むにはどうすればいいんですか？
0087デフォルトの名無しさんNGNG
>>85 ６回　先頭から ReadLn実行すれば？　６行目だけの結果が残るよ
0088デフォルトの名無しさんNGNG
>>84
Delphi7 には入りません。
この文章書いた John Kaster が日本に来ているから、笹塚に行けば質問できるぞ。
0089デフォルトの名無しさんNGNG
>>86
>87氏の方法でやるときは、ループ前にでもSetTextBufをやるといいよ。
0090デフォルトの名無しさんNGNG
無知ですまんのだが、データベースデスクトップで作ったDBって
アプリケーションと一緒に配布できるの？
0091デフォルトの名無しさんNGNG
問題ない。
0092デフォルトの名無しさん NGNG
Delphi6 Personalでデータベース(できればMDBに)にアクセスできるフリーのコンポーネントを探しています。

Delphian WorldのサイトでODBC Access for Delphi(ODBCCall)という
目的と一致する良さげなコンポーネントがあったんですが、
シェアなので配布できません。

良いコンポーネントをご存知でしたら教えてください。よろしくお願いします。
009385NGNG
わかりますた。どうもー
0094デフォルトの名無しさんNGNG
>>92
MDBならole?ActiveX?でつなげばいいんじゃないでしょうか？
バージョンに気をつけてDAOつかったらただ
0095デフォルトの名無しさんNGNG
>>88
ttp://homepages.borland.com/aohlsson/BorCon2002/RAD1115.html
BorConでの発表見るとDCC32でも言語拡張はされてるような感じだが、
今回の発表ではなんも書いてないな。キャンセルされたか？
直接質問したいけど笹塚行く暇ねぇし。
009692NGNG
>>94
ヒントありがとうございます。
ActiveXやOLEをどのように使えばよいか、
ちょっとすぐにはわからなかったので、google検索してみますね。

PersonalでDAOを扱うことってできるんですか?
あと、DAOだとユーザー側にDAO関係のインストールをする必要ありますよね？
作成したアプリは、できればEXE+MDBだけの簡単な構成で配布したいと思っています。

他に良い情報をお持ちの方がいましたら、よろしくお願いします。
0097デフォルトの名無しさんNGNG
>>90
BDEを含めて配布するなら Install Shield を使うのが吉
0098デフォルトの名無しさんNGNG
>>96
Personalの場合はちょっと面倒ですよ。
Access(MDB)ならばADOで接続することになります。

1.まず、メニューのプロジェクト→タイプライブラリの取り込みを選びます。
2.一覧から、Microsoft ActiveX Data Objects 2.5 Libraryを選びます。
3.インストールボタンを押します。
4.パッケージ dclusr.bplは再構築されますと表示されるので、はいを押します。
5.これでADOがコンポーネントに登録されます。
009998NGNG
つづき
6.ActiveXタブからConnectionコンポーネントをフォームへ乗せます。
7.ボタンを乗せて、下記のように書いてみてください。

procedure TForm1.Button1Click(Sender: TObject);
var
Aff: OleVariant;
Rst: Recordset;
begin
Connection1.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\db1.mdb;Persist Security Info=False', '', '', adConnectUnspecified);
try
Rst := Connection1.Execute('SELECT * FROM テーブル1;', Aff, 0);
ShowMessage(Rst.Fields['フィールド1'].Value)
finally
Rst.Close;
Connection1.Close;
end;
end;
010098NGNG
つづき

上のソースは、db1.mdbのテーブル1のフィールド1のデータを表示します。
1.Connection1.Openで、データベースに接続します。
2.Connection1.ExecuteでSQLを発行して必要なレコードセットを取得します。
3.取得したレコードセットはRstに代入されます。
4.Rst.Fields[].Valueで、フィールドにアクセスし、データを取得します。
5.最後にCloseを忘れずに。
010198NGNG
つづき

DelphiよりもADOの知識が必須です。MSのリファレンスを参照してください。
http://www.microsoft.com/japan/msdn/library/default.asp
また、AccessのヘルプにもADOのことが載っています。

基本的にデータの取得、検索、挿入、削除などの操作はRecordsetで行います。
010298NGNG
Personal持ってないんですが、タイプライブラリの取り込み機能って
ありますよね…？なかったらごめんなさい。

いきなりDelphiでやるよりも、Accessで少し練習してからの方がいいかもしれません。
0103デフォルトの名無しさんNGNG
>>98
あんたええ人や・・・(；´д⊂）
0104ミヤコ蝶々NGNG
>>98
ちゃっかりしてるけど、エエ子やな。
010598NGNG
ははは…
Delphi+ADOってあんまし文献ないんで、つい書いてしまいます。
VBAやWSHあたりで検索すると、使いこなしとか少しは見つかります。
010692NGNG
>>98さん、詳しい説明ありがとでした！ばっちりMDBを読み込めました。
めっちゃ感謝してます。上記の方法、永久保存させていただきます～。

質問ばかりで申し訳ないですが、
ADOを使ったアプリケーションの配布で気をつける点や、
再配布に関する問題とかありましたら教えてくださいです。
0107デフォルトの名無しさんNGNG
Delphiってランタイムいるんですか？
0108デフォルトの名無しさんNGNG
>>107
いるようにもできるよ。
0109デフォルトの名無しさんNGNG
ADOのランタイムってDelphiで配布していいのか？
0110デフォルトの名無しさんNGNG
>>108
ありがとう。検討します。
0111デフォルトの名無しさんNGNG
>>109
ADO は MS が自由にダウンロード/インストールを許可しております。
0112デフォルトの名無しさんNGNG
ListViewの上でマウスの右クリックをするとポップアップメニューを表示させて
各行で出来る処理内容をOnPopup中にてEnabledを変更させているプログラムが
あります。

この時に、[Ctrl]キーや[Shift]キーを押しつつポップアップさせた場合は
特別なメニュー項目を追加させたいのですが、
OnPopupイベント中にキーボードの状態を知る事は可能なのでしょうか？
可能であればその方法を教えて下さい。よろしくお願いします。
0113デフォルトの名無しさんNGNG
>>112
http://www.google.co.jp/search?q=GetKeyState+VK_CONTROL+状態
0114112NGNG
>>113

調べが全くもって甘かったようです、ごめんなさい。

if (GHetKyState(VK_CONTROL)>=0) then ～;

で出来ましたありがとう御座いました。
0115デフォルトの名無しさんNGNG
開発者向けのパッケージ作成方法を知ってる方いましたら教えてください。
delphi全くの初心者なのですが、仕事で急遽必要になりました。お願いします。
0116デフォルトの名無しさんNGNG
>>115
弊社サポートまでご相談下さい
￣￣∨￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧ ﾆﾔﾆﾔ
　（　・∀・）
　（　　　　） 　1ｲﾝｼﾃﾞﾝﾄﾃﾞ\30,000ﾅ
　｜　某｜ 　
　（＿_）＿）
0117デフォルトの名無しさんNGNG
初心者が開発者向けにパッケージ？なんだかなあ。
命令した上司疑うなあ。それとも入社前に大風呂敷
言ったのか？
0118デフォルトの名無しさんNGNG
>>117
単に人手が無いか、逃げたり辞めたりした奴の仕事を押しつけられたものと思われ。
生暖かく見守ってやれれ。
0119デフォルトの名無しさんNGNG
ラベルのテキストを左から順に表示していくヤツ、
メッセージ表示スピードっていうんですか？
そういうことをするにはどうすれば良いのでしょうか？
0120デフォルトの名無しさんNGNG
質問です。
サブフォームの最小化ボタンが押下されたことを知るには
どのような方法があるのでしょうか？
イベントを探したのですが、フォームサイズの変更というのはあっても、
最小化ボタンの押下を受け取れる方法とは違うみたいで。。。
0121デフォルトの名無しさんNGNG
Application.OnMinimize
0122１２０NGNG
procedure TForm_sub.FormCreate(Sender: TObject);

begin
Application.OnMinimize := TEST_min;

end;

procedure TEST_min(Sender: TObject);

begin
Application.Minimize;

end;

これでは駄目みたい。。。
0123１２０NGNG
>>121
あ。
これって　アプリケーションの最小化イベント受け取り？
サブフォームの最小化ボタン押下って　知ることはできないのでしょうか？
0124デフォルトの名無しさんNGNG
WM_SYSCOMMAND
0125デフォルトの名無しさん NGNG
ADO(+Jet4.0)を使ったDelphiアプリの配布について調べています。
ユーザ側にMDAC_typ.exeのインストールは必須なのでしょうか?

MSのサイトより、集めてきた情報
・Win98,ME・・・不明
・Win2k MDAC2.5がデフォルトで入っているのでインストール不要。
・WinXP MDAC2.6がデフォルトで入っているが、Jet4.0が含まれていない。
・IE5.0をインストールするとMDAC関係のファイルがインストールされる。
・MS OfficeやVSがインストールされている環境

○○がインストールされている環境なら、MDACをインストールしなくても
動くというような、ノウハウがありましたら教えてくださいです。
0126デフォルトの名無しさんNGNG
>>119
こんな感じ？
procedure TForm1.Timer1Timer(Sender: TObject);
const
Letter = '２ちゃんねる';
begin
Label1.Tag := Label1.Tag + 1;
Label1.Caption := LeftStr(Letter, Label1.Tag);
end;
0127デフォルトの名無しさんNGNG
>>123 ボタンの押し下げを知りたいなら　最小化ボタンを使わずに　自分で最小化ボタンもどきを作ったらどう？
0128デフォルトの名無しさんNGNG
んな馬鹿な
0129デフォルトの名無しさんNGNG
（´-`）.。oO（サブクラス化してメッセージ捕まえれば？)
0130デフォルトの名無しさんNGNG
StringGridのグリッドの色を変えたいのですが、
どうやればいいんでしょうか？
0131デフォルトの名無しさんNGNG
>>129 どんなメッセージが押し下げ状態の変化でやってくると？
0132デフォルトの名無しさんNGNG
TLabelでWordwrap=True時、
文字列が複数行にまたがって表示される場合、
行間の指定ってできるのでせうか？
0133１２０NGNG
>>131
押し下げ状態でなくても良いのでげす。
ただサブフォームの最小化ボタン押下時に、
アプリケーションをタスクバーに入れたいのでげす。
アプリをタスクバーに入れるのは
Application.Minimize
だというのは教えてもりゃいまひゃた。（涙
0134130NGNG
StringGridの「グリッドの線」の色を変えたいのですが、
どうやればいいんでしょうか？
お願いします。
0135デルファイの名無しさんNGNG
>>131
WM_NCLBUTTONDOWN 違う？
まあ、>>133用途ならWM_SYSCOMMANDで充分ですが
0136デフォルトの名無しさんNGNG
WM_NCLBUTTONDOWN は”カーソルの下にあるウィンドウに対してポストされます”だから
ボタンそのものは マウスDOWNだね・・・というのはおいといて

なら　サブクラス（ってメッセージフックの事だよね？）しなくても取れるし
これを取って０で処理してしまえば　　子供は反応出来ないからそれでいいのでは？

ただ子のマウスキャプチャの範囲かどうか調べる処理が必要になるから
結局　ボタンを貼り付けた方が簡単では？　というのが >>127の趣旨だけどね

0137デフォルトの名無しさんNGNG
ｱﾌｫばっか
0138デフォルトの名無しさんNGNG
>>134
　これも、グリッドを全部自分で描くか、描画後に線だけ描画しなおすしかない

とだけ書くと、また変なレスが付くから説明すると
TCustomGrid.Paint; で　枠線は決めうちで描いているからだ

これをそのままコピペして、修正するという手法が一番簡単
0139デフォルトの名無しさん NGNG
>>137
答えられないと文句バッカ
0140デフォルトの名無しさんNGNG
>>133
WM_SIZEを調べてみれ。
0141デフォルトの名無しさんNGNG
RichEditでFontのCharsetをARABIC_CHARSETとかにしても
日本語が表示できるのはなんでなの？
0142テツ＆トモNGNG
何でだろうー 何でだろうー なぜだ 何でだろうー♪
0143デフォルトの名無しさんNGNG
Canvas.TextOutで、アンチエイリアスをかけた文字描画と、
かけない文字描画の方法はありますか？
つまり、コントロールパネルの画面の設定で、スクリーンフォントの縁を滑らかにする
を、設定してから文字描画をしたいのですが・・・
0144デフォルトの名無しさんNGNG
>>143
それは Delphi というより Windows API の問題だな。
Win98 系では OS のリスタートが必要なので動的にはできないはず
0145デフォルトの名無しさんNGNG
>>143
アンチエイリアスフォントだろ？
なら以前俺が調べたのを参考にしてみて下され

http://isweb42.infoseek.co.jp/computer/t_tail/program/tips/tips000.htm
http://home.att.ne.jp/yellow/hide_n/programming/tips08.html
http://www02.so-net.ne.jp/~leiya/talk/tk200108.html
http://home7.highway.ne.jp/nomura_y/prog000.htm#IDPROG0002
http://www2.plala.or.jp/madoka/nikki0017.html
0146143NGNG
>>144>>145
GetGlyphOutlineですか。以前やってみたんだけど意味わからず-終了-してしまいました・・・
APIは難しいですね。でもやってみます。
0147デフォルトの名無しさんNGNG
モナースレでも書いたんですが、シンプルなやつでいいんでチャットソフトのサンプルないでしょうか？
ここの人なら知ってると聞いたんで。。。ほんとよろしこです！
0148デフォルトの名無しさんNGNG
>>147
バカは死んでも治らないか。嫌な運命だな。
でも、現世でこれ以上迷惑をかけることもあるまいて。
0149shigeNGNG
>>147
来世は、せめて人間の役に立つ牛か馬に生まれかわれよ...。
0150デフォルトの名無しさんNGNG
来世なんてねえよハゲ
0151shigeNGNG
必死だな(w
0152デフォルトの名無しさんNGNG
Rubyyyyyyyyybbbbbbbbbbbbbbbb >>>>>>>>>>>>>>>>>>>>>>>>>>>> Delphiiiiii
0153147NGNG
150は俺じゃないぽ　　（´Д｀；）
0154デフォルトの名無しさんNGNG
お前ら教えてください。
Delphi使えるようになりたいんだけど、お薦めの参考書ないですか？
一応C,Javaは使えます。C++はﾁｮｲアヤシイなという程度。
0155デフォルトの名無しさんNGNG
>>154
それだけできたら本いらん。サンプルとヘルプで十二分だ。
0156デフォルトの名無しさんNGNG
>>155
参考書というか、リファレンスみたいなのがﾎｼｰんですがね。
あと、WinAPIがほぼ全く分からないので、そこをうまく補ってくれるものとか。
おながいします。
0157デフォルトの名無しさんNGNG
>>156
だからリファレンスなら立派なのが付いていると
0158デフォルトの名無しさんNGNG
>>157
あ、そなの？
パーソナル版買おうと思ってるんだけど、安いんでﾘﾌｧがついてないのかと思ってたよ。
0159デフォルトの名無しさんNGNG
それでも本屋にいって適当なの一冊買っておいた方がとっつきはいいかも
0160デフォルトの名無しさんNGNG
ていうか、そろそろDel7が出るの？
0161デフォルトの名無しさんNGNG
質問させてください～｡･ﾟ･(ﾉД`)･ﾟ･｡

マウスカーソル下にあるコントロールを取得し、
それがとあるコントロールであるかどうか（たとえばTImage）を知りたいのですが

var
p_cursorpos : TPoint;
cnt : TControl;
begin

GetCursorPos(p_cursorpos);
cnt := FindDragTarget(p_cursorpos,True);
if cnt =image1 then
begin
　　　　。
　　　　。
　　　　。


だと　cnt　にnillがはいってきてしまいます
ご指導お願いしまする
0162デフォルトの名無しさんNGNG
>>161
mouseoverで。
0163１６１NGNG
>>162
すんません
OnMouseOverのことでしょうか？
イベントで取得したいのではないのですが。。。
ｱﾌｫでｽﾏｿ。。。
0164デフォルトの名無しさんNGNG
>>163
入るたびに変数に自分を
0165無責任だがNGNG
>>161
　やり方はあっています。　マウスを押しながら操作してみても状態は同じですか？

もしかしてフォームのOnMouseMoveに書いていませんか？
だとすると、上にコントロールがあると　そのイベントが呼ばれません。
0166１６１NGNG
>>164
ステータス管理ということになるのでしょうか？

>>165
ご指摘ありがとうございます。
どうやら　ブレークポイントでいちいちチェックしていたのが原因だったようです。
結局>>161のコードで大丈夫でした。
0167１６１NGNG
調子にのったわけではないのですが、
>>161が解決したら、今度は別の対応をしなくちゃいけなくなりますぃた（涙


マウスカーソルをフォームのどこからか不明な場所でダウンした状態で、
コントロール上に移動してきたとき、
OnMouseEnterをひろわないようです。
どぎゃんしたら　よかとですか！？

。。。もお帰りたいですよ｡･ﾟ･(ﾉД`)･ﾟ･｡
0168デフォルトの名無しさんNGNG
>>167
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/article/009/009641.html
これじゃ駄目なの？
0169デフォルトの名無しさんNGNG
shigeって誰？
0170デフォルトの名無しさんNGNG
>>167
フォームのOnMouseMoveでFindDragTargetして監視するか、
キャプチャが外れていいならOnMouseDownでReleaseCaptureしれ
0171デフォルトの名無しさんNGNG
フォームの形状を円形とかに変えるコンポーネントでいいやつないでしょうか？
イメージを透過するやつじゃないのを探してマス
0172デフォルトの名無しさんNGNG
質問です。
コンストラクタが仮想メソッド(抽象ではない)となっている場合があるのですが、
クラス参照型を使った多態以外にはメリットがないような気がするのですが、
どんな形で使われるのですか？
0173デフォルトの名無しさんNGNG
>>171
Region関係のAPIくらい自分で使ったら
0174デフォルトの名無しさんNGNG
>>171 えーっとな・・・何かあったはずだよ
マジで忘れたけど(笑)　　ｽﾏｿ
0175Delフサギコ ◆VzDeLphI NGNG
|,,∧　　　某ﾏﾆｱｸｽにあったような、なかったような
|Дﾟ彡
|　U 　　　多聞ｱっﾀ
|　ﾐ 　　　
| U
0176デフォルトの名無しさんNGNG
棒ﾏﾆｱｸｽって何ですか？
0177デフォルトの名無しさんNGNG
>>フォームの形状を円形とかに変える

コード２行でできます
0178Delphiでも（・∀・）ｶﾝﾀﾝ!!NGNG
2行ぐらい書こうよ。ｿｳﾀﾞﾝｼﾂﾀﾞｼ...
0179デフォルトの名無しさんNGNG
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowRgn(Handle,CreateEllipticRgn(0,0,Width,Height),false);
end;
0180デフォルトの名無しさんNGNG
>>179
リージョンハンドルの開放どこ？
0181デフォルトの名無しさんNGNG
>>180
違う手続きに書いてあることは確かだろうな。
0182デフォルトの名無しさんNGNG
特に、このリージョンハンドルを削除しないでください。
必要がなくなると、システムはこのリージョンハンドルを自動的に削除します
0183デフォルトの名無しさんNGNG
>>182
間違い。
0184182NGNG
>>183 間違ってましたゴメンナサイって事？　変な省略するなよ

もし　MSDNが間違ってるってんなら
http://www.microsoft.com/JAPAN/developer/library/jpgdipf/_win32_setwindowrgn.htm

ちゃんと通報してやれ　いつまでも直らないぞ
0185デフォルトの名無しさんNGNG
>ちゃんと通報してやれ　いつまでも直らないぞ
そんな義務、だれも持っていないだろ？
相手は巨大私企業だぞ。
0186Delフサギコ ◆VzDeLphI NGNG
質問っす

　 ∧,,∧　たりらりらー♪
　ミ,,ﾟДﾟ彡
　 ﾐつ[|lllll］)　
～ﾐ　　ﾐ　　　　　
　　Ｕ Ｕ.　　

ひとーつ、
実行時パッケージを使うとファイルサイズは小さくなるですが
Delphiプログラムを複数起動した時、
メモリ常駐の大きさは小さくなるもんなのでしょうか？

DLLなら動的リンクとか静的リンクとかありますが
パッケージにはそういう仕組みはあるですか？


>>176
http://www.ba.wakwak.com/~h-kova/
0187Delフサギコ ◆VzDeLphI NGNG
　　＿＿＿＿＿＿＿＿＿＿＿＿＿
／
|　また、Windowsの仕組みもしらねーバカとか
|　厨房・夏厨って呼ばれるんだろうけど
|　とりあえず、聞いてみるか。
＼
　 ￣￣￣￣　Ο　￣￣￣￣￣￣￣￣
　　　　　　　ο
♪　　 ∧,,∧ﾟ　♪
　　　 ミ,,ﾟДﾟ彡　　♪
　　 　ﾐつ[|lllll］). るらりるる～♪
　　 ～ﾐ　　ﾐ
　　　　Ｕ''Ｕ

もひとーつ。
とあるDLL(つか、EmEditroPlugin)で
TStringListとかTListを浸かってしまうと
Classesを含んでしまう必要があるので、
ファイルサイズがでかくなって困ってます。

そういう時、Classesだけを含んだパッケージ
というかDLLを共通化したいのですが
そんなことは可能ですか？

Pluginを配布するときに、Delphiランタイムを
インストールしてもらうという方式ではなくて
こんな構成にしたいのです。

EmEditorのPlugInフォルダ
　└自作プラグイン①.dll
　└自作プラグイン②.dll
　└ClassesのDLL

やり方があるとしたら
どうやるのでしょう？

また、この場合、ClassesのDLLは
プラグイン①とか②の数だけメモリに呼び出されるのでしょうか？
0188デフォルトの名無しさんNGNG
>>186
１、　パッケージは DLL そのものです
２、　ですからレイトバインデング（ LoadLibrary )をパッケージに対して行う事も可能ですが
　　それはMFCxx.DLLをレイトバインデングするのと同じで意味はないでしょう

メモリ常駐サイズですが、実行モジュールは　ReadOnlyのメモリマップドファイル
と同じです。ですから　サイズは節約されるでしょう。
　が、それは全体から見れば微々たるものです。
0189デフォルトの名無しさんNGNG
パッケージとは，Delphi アプリケーションや Delphi IDE，またはその両方が使う特殊なコンパイル済みダイナミックリンクライブラリのことです。
実行時パッケージは，ユーザーがアプリケーションを実行する際に機能を提供します。
設計時パッケージは，Delphi IDE にコンポーネントをインストールしたり，カスタムコンポーネント用に特別なプロパティエディタを作成するときに使われます。
1 つのパッケージが設計時と実行時の両方に機能することが可能で，設計時パッケージはその requires 節で実行時パッケージを参照して動作することがよくあります。

ほかの DLL と区別するために，パッケージライブラリは拡張子 .BPL（Boarland パッケージライブラリ）の付いたファイルに格納されます。

通常，パッケージはアプリケーションの起動時に静的にロードされます。
ただし，SysUtils ユニットの LoadPackage ルーチンと UnloadPackage ルーチンを使えば，動的にパッケージをロードできます。

メモ　アプリケーションがパッケージを利用する場合，各パッケージユニットの名前はそれを参照しているソースファイルの uses 節にも含まれている必要があります。
0190189NGNG
つまり　ヘルプで 『パッケージ』のところから読めば知りたい事は全てのっていますよ >>189
0191Delフサギコ ◆VzDeLphI NGNG
ﾔﾔｳﾂﾀﾞ
　　∧,,∧　 　いまひとつ
　 ミ,,　　彡　　意味がわかんない…
　ミ　　 ∪
　ﾐ～,,　ﾐ
　 ∪ ∪　と。。。とりあえずレス産休

＞１、　パッケージは DLL そのものです
わかりますた。

＞２、　ですからレイトバインデング（ LoadLibrary )をパッケージに対して行う事も可能ですが
＞　　それはMFCxx.DLLをレイトバインデングするのと同じで意味はないでしょう
レイトバインヂングってなんですか？VBのならやったことあるのですが,,,
DLLの動的呼び出しの事ですか？
なぜ、MFCxx.DLLをそれするのと同じで意味がないのですか？？

＞メモリ常駐サイズですが、実行モジュールは　ReadOnlyのメモリマップドファイル
＞と同じです。ですから　サイズは節約されるでしょう。
つまり、ファイルサイズ＝メモリ展開サイズって事ですか？

＞　が、それは全体から見れば微々たるものです。
…そうですか？

Plugin一つに100KBかかるか10KBですむかは
ちょぴり気になるサイズなんですが,,,
特にPluginの数が増えると。
0192デフォルトの名無しさんNGNG
意味がないというのは
　必須のものを後からロードしても意味ないでしょ？　という意味です

　LoadPackage 　するなら、例えば言語依存のユニットを切り替えるとか
　そういう時に使えば便利でしょう　パッケージの動的ロード関係は
http://www.borland.co.jp/tips/delphi/dh002/dh_09.html
http://www.nifty.ne.jp/forum/fdelphi/samples/00904.html

後半については断定はしかねます
0193Delフサギコ ◆VzDeLphI NGNG
　　∧,,∧　 　HELPを見て
　 ミ,,　　彡　わかりました。
　ミ　　 ∪
　ﾐ～,,　ﾐ 　　って事にしておいた方がイイのかなー
　 ∪ ∪




　鳥頭?猫?犬?
　　 ∧,,∧　 　　　ｻﾊﾟｰﾘ全くわかりません！
　　,ミ ﾟДﾟ彡
　 ﾐ　　∪　　Classes.pasをcontainsしようとしても
　ﾐ～,,　ﾐ 　　ｒｔｌに含まれてるからダメって言われるんです…
　 ∪ ∪

自作のﾊﾟｯｹｰｼﾞなら
生成された.bplを同一フォルダに
入れておけば、それを使う
ExeやDLLは静的リンクするのですか？

>>192
このレスはちょっとわかりました。
0194デフォルトの名無しさんNGNG
contains Classes ; だけでは駄目です Classes.pasを覗いて uses 節を全て　列挙しないといけません
当然その uses 先も調べて列挙します。

なお requiresを含めて　VCLxx　の行を全て消してコンパイルさせれば
containsの必要なのを教えてくれると思いますよ
0195デフォルトの名無しさんNGNG
＞自作のﾊﾟｯｹｰｼﾞなら 生成された.bplを同一フォルダに

これは、コンポーネントをインストールしてる時と同じですよ
勝手にはDLLとしてリンクされません。

実行時パッケージを使うにチェックをして
どのパッケージを使うかを指定する必要があります
0196デフォルトの名無しさんNGNG
D5 で　試してみました
contains
Classes　,
TypInfo , Consts , SysUtils , SysConst , ActiveX; ;

これだけ必要です
0197デフォルトの名無しさんNGNG
いまさらだけど、Delphi7は.Net対応！？
何のことでしょう？
0198デフォルトの名無しさんNGNG
さぁーしりません。
0199デフォルトの名無しさんNGNG
分からないヤシは気にしなくていい。
0200デルファイの名無しさんNGNG
600kを超えるrtl60.dllがロードされるぐらいなら、
僕ならClasses.pasの使用を諦めますけどね。
特にEmEditorみたいな軽さが身上のソフトのプラグインでは。

パッケージではスマートリンクが働かないので、
パッケージに含まれている機能のほんの一部しか使わないような場合、
メモリー消費量は増えてしまうのでは無いでしょうか。

…そう言えば、EmEditorはUnicodeアプリだったのでは？
プラグインについてはよく知りませんが、TStringsを使ってしまうと、
AnsiStringを経由してしまうので、SJISに無い文字が化けてしまいませんか？
(JEDIのTWideStringsを使ってみるとか)
0201デフォルトの名無しさんNGNG
もし　DLLがホントにメモリマップドファイルのように処理されているのなら
パッケージDLLの大きさが即座に実メモリを要求するわけでもないだろう
もちろん実際の機能が不連続に存在すれば意味がないけど、必要にな
ったブロックだけが実メモリにロードされるのだろう

でも、いっそ 必要な TListとかだけを取り出して
不要な部分を外してunitに入れてしまった方がいいかもね
0202Delフサギコ ◆VzDeLphI NGNG

　　　　　Classesに依存しないTListｷﾎﾞﾝ...
ｶﾁｬ 　　　　　　　∧,,∧　　　
( ﾟдﾟ)　　　;y=ｰミ,,ﾟДﾟﾐ･∵.　ﾀｰﾝ
.|　y |.＼／　　　.ﾐ　ｙ　ﾐ
0203172NGNG
別の話題で恐縮なんですが、誰か教えてください。
質問自体がデムパだったらその旨してください。厨なもんで。

コンストラクタが仮想メソッドである必要があまり感じられません。
クラス参照型の変数からコンストラクタを呼び出した際に多態する必要がある場合、
コンストラクタを仮想メソッドにしなくてはいけないことが分かりました。
他にも必要性がある場合というのは、どんな場合なのでしょうか？
上記の場合のみ必要ということであれば、その旨教えてくれるとうれしいです。
0204172NGNG
その旨してください。→その旨教えてください。
すいません…
0205デフォルトの名無しさんNGNG
ヘルプで「仮想メソッド」を検索すれ
日本語で書いてあるから
0206デフォルトの名無しさんNGNG
>>203
＞必要性がある場合というのは、どんな場合なのでしょうか？
文字通り火葬メソッドにする必要があるとき。
TThreadのように事実上コンストラクタを火葬メソッドにしなければ使い物にならない場合とか。
実装次第ではその必要すらもないかもしれない。

オブジェクトをもう継承する予定がないなら性的メソッドのままでも何ら問題ない。
0207デフォルトの名無しさんNGNG
206より172の方が良く理解しているな。
0208172NGNG
>>205　
一応ヘルプは見ています。見た感じ、通常の手続き・関数の説明しかありませんでした(Delphi5)。
通常の手続きや関数は仮想メソッドを使った多態を行いますので、一応意味は理解しているつもりです。
ただ、実行時型情報のもととなるインスタンスの生成をするのに、仮想である必要があるのかと疑問に感じ、
質問させてもらいました。
>>206
オブジェクトを静的に継承しても、inherited Createと、差分の追加で特に事足りるような気がします。
一応、TThreadを継承したマルチ処理のＰＧ経験もあるんですが、そのときは必要性を感じませんでした。
ヘルプなどを調べてみます。

おふたりさま、レスありがとうございました。
0209172NGNG
HelpでTThreadを調べてみたのですが、いまいちピンときませんでした…
誰か分かりやすく教えていただければ嬉しいです。
>>207
良かったら教えてください。m(__)m
0210デルファイの名無しさんNGNG
>>202
Classes.pasからソースコードコピペすれば済む話では

>>209
>>172で自身が書かれているように、クラス参照型を用いたインスタンス生成が主な用途です。
また、ややアクロバットで、スレッドとも無関係ですが、
メモリアロケートとコンストラクタの実行を別に行なうような用途もありますね。
インスタンスに対しCreateを呼ぶと、単なるメソッドのように働くので、仮想関数でなければ変になります。
0211172NGNG
>>210
ありがとうございます。
今までコンストラクタは絶対に静的で問題ないと思っていたのですが、クラス参照型を知り、
他にも必要性があるんじゃないかと気になっていたため質問した次第です。
別途の説明はコードの実装まではイメージ出来ませんが、大まかな流れは分かりました。
メモリアロケートとコンストラクタの実行を別に行なうようなら、Delphiにこだわる必要は
無いと思いますので、通常の使い方においては、基本的には静的で問題ない。と理解します。
0212デフォルトの名無しさんNGNG
>>202
自作するか、ソース拾ってくるかすれば。
TListの中身は動的配列だしリンクドリストよりも簡単でしょ。
0213デフォルトの名無しさんNGNG
>>202 どうして TListが必要なの？　
　どんな感じで使ってるかによっては　動的配列で代替した方がいいんじゃない？

あと TStringListも array of string; で代替した方がいいんじゃない？
0214デフォルトの名無しさんNGNG
>>212
＞TListの中身は動的配列

違いますよ。静的配列です。
TPointerList = array[0..MaxListSize - 1] of Pointer;
0215デフォルトの名無しさんNGNG
>>214 それはまあ　あの　今の動的配列がDelphiに無い頃に
サイズ可変の配列を取る手法として使っていたわけで・・・・
0216デフォルトの名無しさんNGNG
>>215
んじゃ、動的配列な証拠をVCLソースで見せておくれ。
0217おくれNGNG
見せておくれよ！
0218デフォルトの名無しさんNGNG
... Personal ユーザーがソースをほしがっていると見た。
やるなよ！おまえら！
0219デフォルトの名無しさんNGNG
1,2行見せてもPersonalなやつには役立たないと思うが…
0220デフォルトの名無しさんNGNG
んだよ、口だけか。別にVCLソースじゃなくてもいいぞ。
動的配列だという証拠見せてみろ。ほれほれ。
0221デフォルトの名無しさんNGNG
困ったなあ　SetCapacity　じゃ納得してくれないの？　ReallocMemしてるでしょ？
0222デフォルトの名無しさんNGNG
コンボボックスでクリックイベントを使うには
どうすればいいのでしょうか？

0223222NGNG
コンボボックス(ドロップダウンリスト形式)でクリックイベントを使う方法はわかりましたが、
ドロップダウンボタンを押した瞬間にリスト項目を設定するにはどうすればよいのでしょうか？
0224デフォルトの名無しさんNGNG
>>223 とりあえず、オブジェクトインスペクタでイベント毎にヘルプ順に出してみておゆき
0225デフォルトの名無しさん NGNG
VBのコントロール配列をDelphiで実現するには配列を使えばいいみたいですが、
イベントが呼び出された時に、どのボタンが押されて呼び出されたのかを認識する方法はありますか？

VBだとPrivate Sub Button1_Click(Index as ボタンIndex)で、
IndexにボタンのIndex番号が格納されます。これと同等のことをDelphiでやりたいんです。
0226デフォルトの名無しさんNGNG
>>225 イベントの最初の引数に Sender というのが大抵あるでしょ？

たとえば
Caption := (Sender as TButton).name;
とやってみて
0227Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　∧,,∧　 　　／StringListはその大きさと改行コードの手癖の悪さが
　 ミ,,ﾟДﾟ彡　＜　俺的にいやなのでTListで代替しようかと
　 ,;ﾞ　　ﾐ　 　 　＼＿思ったのだすが,,,
　ﾐ.　　ミ
／゛゛゛゛
ソースはここのを流用して
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1020833969
TRecord = String
と書き直すだけでOKだったんだけど、

どうやらWideString周りにバグがあるみたいで、
ばっちり落ちちゃうみたいなのです。


…だれか、EmEditorのPluginとか
作ってあそんで面白がる人いないっすか？
0228デフォルトの名無しさんNGNG
>>214-221
ネタに本気で釣られるな(w
0229ななしへたぐらま ◆B18Bks.Y NGNG
>>202
私も >>212 さん同様，自前でリストを作ればよろしいかと思います．
動的配列を使えば楽勝でしょう．

※ちなみにDelphi5のClasses.pasを見たら
　TListは動的配列ではなくpointer型の配列へのポインターを使っていました．
0230デルファイの名無しさんNGNG
>>227

言語が管理している型をGetMemなんかで取って来る時は、Initialize/Finalizeが必要っと。
無関係のときは呼び出しても何も起きないので、一応入れておけば。

> どうやらWideString周りにバグがあるみたいで、
> ばっちり落ちちゃうみたいなのです。
つまり、WideStringのバグじゃなくてリンク先のコードが不十分なわけですね。
何かあると自分の手の届かないところを疑う癖、やめません？見ててヤ。
0231Delフサギコ ◆VzDeLphI NGNG
　　 ∧,,∧
　　ミ,,ﾟДﾟ彡 　リンク先の俺のコードの中にWideString系の
　　(￣￣~)　　　ところにバグがあるって言ってんですが...
　／｀ ￣´＼
　|～～～～|　
　|～～～～|
　＼＿＿_／
0232デルファイの名無しさんNGNG
ありゃ、誤読か。すみません。
でも、Initialize/Finalizeで動くようになると思いますよ。

{ array of WideStringで充分な気もしますが }
0233207NGNG
>>209
すまんが漏れも君と同レベルだ（笑）

あ、因みにTThreadのコンストラクタは仮想じゃないぞ。惑わされるな。
0234Delフサギコ ◆VzDeLphI NGNG
サンクスコ。>>232さん
バグてるとわかったら
誰かに修正されることをｷﾎﾞﾝしてUPしているです。
(それがｵﾌﾟｿってことなのかな？

そういえば、わけわかな所に原因をなすりつける
ってのは、誰しもあるのでは？俺だけかな(VBの癖か？)

だって、わけわかっている所にバグがあったら
バグとわかった瞬間直しますもの。

￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　 ∧,,∧ 　　　
　　　ミ,,ﾟДﾟ彡
　　　ﾐ　つ日　
　.＠ﾐ,,,,,,　,,ﾐ
0235Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　 ／とりあえず、報告っておきます。
　　　ミ,,ﾟДﾟ彡　＜ 　原因追求はどなたか詳しい方に…
　　　ﾐ　つ日　　　＼＿＿＿＿＿＿＿＿＿＿＿
　.＠ﾐ,,,,,,　,,ﾐ

この間、EmEditorのﾌﾟﾗｸﾞｲﾝがWinXPで
Delphiで作ったら動かない！
#例外がキャッチできないの？か？
とか言ってたの。問題部分はわかりますた。原因はわかりません。

ﾌｻはまねっこでEmEditorPluginを作っているんすが
こちらの方の
http://www2u.biglobe.ne.jp/~y-takami/emeditor.htm
>InsertSpace(Delphi版)

のソースの最後の所。

function DLLMain(Reason: Integer):Bool;stdcall;
begin
Result := TRUE;
end;

{ Here is exports section. }

exports
OnCommand index 1,
QueryStatus index 2,
OnEvents index 3,
GetMenuTextID index 4,
GetStatusMessageID index 5,
GetBitmapID index 6,
PlugInProc index 7;

begin
g_nCmdID := 0;
DLLProc:=@DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.

なぜか、この最後の2行をコメントアウトしないと
// DLLProc:=@DLLMain;
// DLLMain(DLL_PROCESS_ATTACH);
Win2000じゃ落ちないけど、XPじゃ確実落ちですた。
しかも、落ちるタイミングがｻﾊﾟｰﾘわかりません。
俺のPCだけかもしれません、

こんなバグの原因、どうやっても俺には追求むりだわさ。

DLLMainがなくてもPluginとしてOKだったから
おかしいなとは思ったんだが。。。

#作者さんには報告します太
0236デフォルトの名無しさんNGNG
君は白痴のの分際でこの私を煽ったね。
厨房の嫉妬私怨と分かっていても非常に不愉快だ。
分かった。そのような態度ならこちらも厨房的態度でそれに答えよう。
まあ、このスレッドは数時間以内に機能しなくなるだろう。

　言っておくが２ちゃんねるのシステムは一方的に荒らし側に有利だ。
おまえらに成す術などない。リアルタイムでスレッドが破壊されていくのを眺めているがよい。
そしてこの私に逆らったことを後悔するがよい。
まあ、おまえらには削除依頼を出すという手段もあるが、
どうせ削除人など最初からやる気など無い。IP晒すだけで無駄死にが関の山だ。
楽しみに待っていろ。
0237デフォルトの名無しさんNGNG
>>236
もうちょっと機械翻訳で崩してからうｐすると面白いよ。
0238デフォルトの名無しさんNGNG
↓これぐらいに崩せ。

内部の中で、その、私、そしてこれを誘惑した愚かな社会的地位、
それは、嫉妬およびアマチュアの悪意の個人のであることを証明
しても、非常に不愉快です。私は理解します。それがそのような
姿勢である場合、私はアマチュアの姿勢でそれにさらにここに?嘯ｦ
る必要があります。この糸は数時間内に機能し、よく止まるでしょう。
それは、言いましたが、目標上で破損されます。また、2chのシステム
は側に他方では有利です。私ができる予防はありません。リアル・タイム
上で現在破壊された糸は見られますが、それはよい。さらに、それ、私を
後悔した、よいものに、それ[もの]だった、これに反対だった、私は削除
リクエストを進める手段がしばしばありますが、それは更に現われました
が、だけ、ものによるIPの公のプレゼンテーション(無駄足)を実行する[そ
の削除人々など、衰弱する]大部分、どれ、とにかくスタートします。
楽しみに待ってください。
0239デフォルトの名無しさんNGNG
>>229
ん？動的配列は広義の意味で言ったんだが。
ネタだったらスマソ
0240デフォルトの名無しさんNGNG
というか、アレが静的配列に見えたとか？
って、前のネタをしつこく引きずってるだけか？
0241デフォルトの名無しさんNGNG
>ここに?嘯ｦ る必要があります
どこで翻訳したんだよ（藁
0242デフォルトの名無しさんNGNG
>>236
板違いですよー

てゆーか、あんた誰？
　　　　　　　　　　　　　　（回答不要）
0243デフォルトの名無しさんNGNG
フォームで最大化ボタンだけを無効にするにはどうすればいいのでしょうか?
0244デフォルトの名無しさんNGNG
>>243
ＦＡＱ
0245デフォルトの名無しさんNGNG
>>226
ありがとうございました。ところで下記のような処理をやると順序型が必要ですという
エラーがでてうまく動きません。アドバイスをお願いします。

strCmbName := (Sender as TComboBox).Name;

case strcmbname of
　　'combobox1': Count:=1;
　　'combobox2': Count:=2;
end;
0246デフォルトの名無しさんNGNG
>>245
'combobox1' < 'combobox2' が成り立たないからじゃない？
0247デフォルトの名無しさんNGNG
>>245
case文のセレクタに書ける式は整数、論理型、文字型、列挙型に
限られる。文字列型は書けない。
0248デフォルトの名無しさんNGNG
>>247
わりィ、セレクタでなくてケースリストね。
0249デフォルトの名無しさんNGNG
>>245
あらかじめコンボボックスのTagに値を入れといて
(Sender as TComboBox).Tag
または
TComboBox(Sender).Tag
を使うという手もある

これならcaseにも使えるしね
0250デフォルトの名無しさんNGNG
>>245
そのメッセージの通り、順序型が必要です。
文字列は順序型ではないのでCaseでは使えません。
そのコードみたいな使い方だったら、Tagとか利用するのが良いのでは。
0251245NGNG
>>246-249
教えてくれてありがとうございました。
Tagを使うことでコードがずいぶんすっきりしました。
0252デフォルトの名無しさんNGNG
>>235
>なぜか、この最後の2行をコメントアウトしないと
>// DLLProc:=@DLLMain;
>// DLLMain(DLL_PROCESS_ATTACH);
>Win2000じゃ落ちないけど、XPじゃ確実落ちですた。

こないだの大野ﾀﾝの対応策、試してみません？
MSIME2002 を切るか、変な辞書を抜くか。
0253デフォルトの名無しさんNGNG
VCLのTListがいやならコレを使ってみてはどうか

The Delphi Container and Algorithm Library (DeCAL)
https://sourceforge.net/projects/decal/


いや、俺まだ試してないけどね
0254デフォルトの名無しさんNGNG
RadioGroupのItemsプロパティに10のアイテムを設定し、
Columnsプロパティに5を設定して、2行に渡ってアイテム(ラジオボタン)が
表示されるように設定しました。

この時、RadioGroupの幅を変更しても、ラジオボタンの位置が左寄せになってしまうのですが、
RadioGroup内のボタンを左右均等に配置するにはどうすればいいのでしょうか?
0255デフォルトの名無しさんNGNG
ラベルにハイパーリンクを貼るにはどうすればいいのでしょうか？
バージョン情報にサイトへのリンクを貼りたいんです。
0256デフォルトの名無しさんNGNG
フォントの色を青色、下線アリでフォームにおいて、
クリックイベントで、HlinkNavigateStringなどを実行すればオーケー。
0257デフォルトの名無しさんNGNG
仕事で必要になったので急いでます。既出だったらごめんなさい。
Delphiで作ったActiveXにHTMLのparamタグを使って値を渡したいんですが、
値を受け取るDelphi側をどういうふうに作っていいかわかりません。
どうすればいいのか、もしくは使えそうなサイトを知ってる方、
助けてください。お願いします。
0258デフォルトの名無しさんNGNG
>HTMLのparamタグを使って
てとこ、もうちょっと詳しく書いてくれる？
0259257NGNG
>>258
ええと、<param name="xxx" value="100">みたいな感じで
値をActiveXの方に投げようと思っています。
そして、ActiveXでその値を使いたいんですけど、
そういう時、その値を使うための処理は
どういうふうに追加すればいいんでしょう。
0260デフォルトの名無しさんNGNG
タイプライブラリに xxx という名前のプロパティを追加すれば
いいんじゃないかな？　で、［ソースコードの更新］を押せば
getメソッドとsetメソッドのスケルトンが作られると思うよ。
0261257NGNG
>>260
ううーん、そうやったつもりなんですがうまく動きません。
もうちょっと詳しく教えていただけますか？ゴメンナサイ…。
0262デフォルトの名無しさんNGNG
>>261 ガンバレば巧く動くからガンバレ
　というか巧く動きませんどうしたらいいですか？　と自分なら聞かれて答えられるのか？
0263デフォルトの名無しさんNGNG
Delphi Personalに登録してから外国から意味不明のメールが届くのですが、
どういうことでしょう？
0264デフォルトの名無しさんNGNG
>>263
別に見たエロサイトが問題だと思われ。
0265263NGNG
このメアドでMLに入ってるわけでもないし、思い当たるのはDelphiとJBuilderの登録だけです。
0266デフォルトの名無しさんNGNG
>>265

>>264
0267デフォルトの名無しさんNGNG
>>263を見て怖くなりました。
なるべく登録しないでPersonalを使いたいんですけどどこかにシリアル落ちてませんか？
0268デフォルトの名無しさんNGNG
>>267 フリーメールでも使ったら？
0269デフォルトの名無しさんNGNG
ただの言いがかりか・・・。
0270デフォルトの名無しさんNGNG
エンプラ版のシリアル落ちてるとこあったけどURL忘れた。
0271デフォルトの名無しさんNGNG
(・∀・)ｶｴﾚ!
0272デフォルトの名無しさんNGNG
つーか、みんな登録してるの？
使い回せばいいじゃん。
0273デフォルトの名無しさんNGNG
あのさ、有名どころのフリーメールのアドレスなんて、すぐに勝手に広告メールが送られてくるよ
0274デフォルトの名無しさんNGNG
犯罪者が集まるスレはここですか？
0275デフォルトの名無しさんNGNG
でもさ、登録しないと使えないなんて変だよな。
そういうのはフリーとは言わないと思うんだけどどうよ？
0276デフォルトの名無しさんNGNG
>>273
hotmailとかすごいよな。あれ。
0277デフォルトの名無しさんNGNG
>>275
無料としか書いてないが何か？
0278デフォルトの名無しさんNGNG
登録しないで使ってるけど、なんか期限きたら動かなくなるとかあるの？
0279デフォルトの名無しさんNGNG
>>278
そもそも起動できない。調べろや。
0280デフォルトの名無しさんNGNG
>>278
warezer発見！
0281デフォルトの名無しさんNGNG
>>279
え？じゃあ、雑誌の付録とかについてるやつは動かないということ？
それって詐欺じゃん。
0282デフォルトの名無しさんNGNG
アメリカの企業が出す無料ソフトは登録が必要なのが多いね。

RealPlayerしかりQuickTimeしかり。
0283278NGNG
あ、ごめん。インストールした後の使用許諾なんとかと勘違いした。
0284デフォルトの名無しさんNGNG
通常、チャットソフトのサーバーとｸﾗｲｱﾝﾄはどのポートを指定したらいいんでしょうか？
0285デフォルトの名無しさんNGNG
21、23、80、443とか以外の他の迷惑にならないポート
0286284NGNG
>>285 あ、そんなもんですか？　例えば4006とかでもいいんですね　
でもなぜかRemote Closeになるんですよね　ローカルではうまくいってるのに
0287デフォルトの名無しさんNGNG
火壁では？
0288デフォルトの名無しさんNGNG
パピウォール
0289デフォルトの名無しさんNGNG
日下部では？
0290デフォルトの名無しさんNGNG
はつみみです
0291デフォルトの名無しさんNGNG
ということにしたいのですね？
0292デフォルトの名無しさんNGNG
（≧▽≦）　ぶわっはっはっはっ
0293デフォルトの名無しさんNGNG
（≧▽≦）　ぶわっはっはっはっ
（≧▽≦）　ぶわっはっはっはっ
（≧▽≦）　ぶわっはっはっはっ
0294（≧▽≦）　ぶわっはっはっはっNGNG
（≧▽≦）　ぶわっはっはっはっ
0295（≧▽≦）　ぶわっはっはっはっNGNG
（≧▽≦）　ぶわっはっはっはっ
（≧▽≦）　ぶわっはっはっはっ
（≧▽≦）　ぶわっはっはっはっ
（≧▽≦）　ぶわっはっはっはっ
（≧▽≦）　ぶわっはっはっはっ
0296デフォルトの名無しさんNGNG
（≧▽≦）　ぶわっはっはっはっ
0297284NGNG
（≧▽≦）　ぶわっはっはっはっ
FWなんて当然切ってますよー
0298デフォルトの名無しさんNGNG
じゃあわかんねーや
（≧▽≦）　ぶわっはっはっはっ
0299デフォルトの名無しさんNGNG
（≧▽≦）　ぶわっはっはっはっ
0300デフォルトの名無しさんNGNG
listen側がINADDR_ANYじゃなくてlocalhostでbindしてるとかー
アドレス間違ってるとかー
0301デフォルトの名無しさんNGNG
ソケット使いたいならJAVAとか.NETやれよ。
（≧▽≦）　ぶわっはっはっはっ
0302260NGNG
>>261
ActiveXって、コンポとフォームとあるけどどっち？
コンポならActiveX化する前のコンポの段階でプロパティをつくっとく。
フォームなら……とりあえず「うまく動かない」を具体的に書いてくれ。
あと、どうやったのかも具体的に。
0303デフォルトの名無しさんNGNG
>>301
＞ソケット使いたいならJAVAとか.NETやれよ。
MFCまたはAPI直叩きが死ぬほど難しいものと思ってらっしゃいます。アホです。多分VB厨です。
0304デフォルトの名無しさんNGNG
Del厨に言われたかないよ。
（≧▽≦）　ぶわっはっはっはっ
0305デフォルトの名無しさんNGNG
すみません、DelphiのTcolorオブジェクト($00FFFFFF等)から、
HTMLで使う #FFFFFF等の色表記に変換するためにはどのようなコードを書けばよいでしょうか？
Delphi 6です。
意味不明でしたら無視して結構です。
0306デフォルトの名無しさんNGNG
>>305
TColorの値を16進に。適当にビットシフトいるかも。
0307Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧,,∧　　　 ／
　　ミ,,ﾟДﾟ彡　＜　どぞ
　　 U　　つ 　　＼
　＠ﾐ　　ﾐ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∪''∪　

//TColorを'#RRBBGG'形式に変換
function ColorToHtmlHex(Color: TColor): String;
begin
Result := '#'+
IntToHex(GetRValue(ColorToRGB(Color)),2) +
IntToHex(GetGValue(ColorToRGB(Color)),2) +
IntToHex(GetBValue(ColorToRGB(Color)),2);
end;

//'#RRBBGG'形式をTColorに変換
function HtmlHexToColor(HtmlHex: String): TColor;
begin
if HtmlHex[1]='#' then
Delete(HtmlHex, 1, 1);
Result := StringToColor(
'$'+ Copy(HtmlHex, 5, 2)+
Copy(HtmlHex, 3, 2)+
Copy(HtmlHex, 1, 2) );
end;
0308デフォルトの名無しさんNGNG
>>306>>307
THANKS!!!!
0309デフォルトの名無しさんNGNG
ColorToRGBを通すのが味噌ですな
0310デフォルトの名無しさんNGNG
ｽﾏｿ。
全然関係ないのだが、
#FFFFFFをShowMessageさせると#00FFFになるのは仕様ですか？
0311Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧.,,∧　　 ／
　　ミ.,,ﾟДﾟ彡＜　なんか、わかりますた...
　　ﾐ つ目(ﾐ .　＼
～ミ,,Ｏ,,,,,,つ 　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣

>>227のところの問題。

>>230さんの>Initialize/Finalizeが必要っと。

というお話でしたが
どうやらそういう問題ではなく
(Init/Fina有り無しでもアクセス違反してるです)

ここのコードの
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1020833969

function TRecordList.Add(Item:TRecord): Integer;
var
　p:PRecord;
begin
　GetMem(p,SizeOf(Item));
　p^ := Item;
　result := FList.Add(p);
end;

この部分で
　TRecord = String
としてしまったら、さすがに
コンパイラはどれだけのメモリを取ればいいのか
わからなくなってしまうのではないかと思われです.

これが原因でアクセス違反をおこしてたみたい。


リンク先の[4]のクラスリストのコードに対して

　TStringClass = class(TObject)
　private
　　FItem: String;
　public
　　property Item: String read FItem write FItem;
　end;

　TMyClassListItem = TStringClass;

このように定義してやると、きれいに動作しますた。
メンバーのFItemの中身がいつ破棄されるのかは
俺にはわかりませんが、Stringが
構造体のメンバよりクラスのメンバの方がメモリ関係が
何かと安心っぽかったので、こっちでやろうと思います。
0312デルファイの名無しさんNGNG
>>311
試しに、リンク先のコードを切り貼りしてやってみましたが、手元じゃ上手くいってますけどねぇ。
(TRecord = WideString)

SizeOf(WideString) = 4 なので、
> コンパイラはどれだけのメモリを取ればいいのか
> わからなくなってしまうのではないかと思われです.
は有り得ないし、
Initialize/Finalizeしてやれば実体も解放されるし。
(Initialize/Finalizeの引数はvarなので、pでは無くp^を渡す…と一応書いておいてみるテスト)

よければ、どんな操作をしているのか、教えていただけません？
0313デフォルトの名無しさんNGNG
どうでもいいが'#RRGGBB'じゃないのか。
0314Delフサギコ ◆VzDeLphI NGNG
　　　　,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣
　　～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜　 調べてくれてサンクスコ
　　　UU"""" U 　⊃　　＼
　　　　　　　　　　　　　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
>(Initialize/Finalizeの引数はvarなので、pでは無くp^を渡す…と一応書いておいてみるテスト)
Initialize/Finalizeには何を書けばいいのかとか全然わからんですが

からんでいるファイルが大きすぎるので
抜粋しますです。
今晩にでも、どこかにUPしますです。

　TStringRecordList = class(TRecordList)
　private
　　procedure SetText(const Value: String);
　　function GetText: String;
　public
　　property Text: String read GetText write SetText;
　end;
//ここではStringListのTextと同じような処理を入れているが
//今回の目的には関係なし

//StringResource1は単に文字列を保持するだけのコンポーネント
//Memo2とかで代用するとよい。
procedure TForm1.Button1Click(Sender: TObject);
var
　StrRecList: TStringRecordList;
　i: Integer;
begin
　StringRecordList.testGetSetText;
//テストコード今回はこれまた関係なし。

　StrRecList := TStringRecordList.Create; try

　for i := 0 to StringResource1.Lines.Count-1 do
　begin
　　StrRecList.Add(StringResource1.Lines.Strings[i]);
//環境によって、ここで落ちる
　end;

　for i := StrRecList.Count-1 downto 0 do
　begin
　　if StrRecList.Items[i] = EmptyStr then
　　　StrRecList.Delete(i);
　end;

　for i := 0 to StrRecList.Count-1 do
　begin
　　Memo1.Lines.Add(StrRecList.Items[i]);
　end;

　finally StrRecList.Free; end;
end;
で、このソース、複数マシン環境で試すと
動くときと動かないときあるようです。(動かない方が多いみたい)
0315Delフサギコ ◆VzDeLphI NGNG
　　　　,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣
　　～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜　 文字列周りの処理もまた難しすぃ
　　　UU"""" U 　⊃　　＼
　　　　　　　　　　　　　　　 ￣￣￣￣￣￣￣￣￣￣￣
function TRecordList.Add(Item:TMyRecord): Integer;
var
　p:PMyRecord;
begin
　GetMem(p,SizeOf(Item));
　p^ := Item;
　result := FList.Add(p);
end;
//やはりここで、Itemに文字列が入ってくるのに
GetMemで4バイト確保するのに
p^ := Itemで
文字列1行分を代入してはいけないのでは？
4バイト確保しているだけの所に文字列代入しちゃっていいのかな？

文字列のメモリはどこか別管理になってるですか？

>>313
考慮してるつもりです
0316デルファイの名無しさんNGNG
>>315
Initialize入れてないじゃないですか…

GetMem(p,SizeOf(Item)); に続けて Initialize(p^);
またはをまとめて New(p); だけでもおっけーです。

AnsiString/WideStringは文字列(の中身、長さ、参照カウンタなどをまとめたメモリブロック)へのポインタ。
管理は自動。インターフェース型が自動で_AddRef、_Releaseされるようなものです。
PCharにキャストできるのもそういう理由。詳しくはヘルプを見てみてください。
0317Delフサギコ ◆VzDeLphI NGNG
　　　　　　　ｳﾜｰﾝ
　 .∧,,∧　　HELPみろって言われたよー
　ミﾟД⊂ﾐ　ﾏﾏﾝ

>Initialize入れてないじゃないですか…
Unitの最後にInitializationとFinalizationを
入れて何が変わるのかしら
、思ってマスタ

　 .∧,,∧　　ｳﾜｰﾝｳﾜｰﾝ
　ミﾟД⊂ﾐ　菊は逝っときの恥じだけど、
　　　　　　　恥かしい.....
　　　　　　　　ﾏﾏﾝ,,,,,

function TRecordList.Add(Item:TMyRecord): Integer;
var
　p:PMyRecord;
begin
　GetMem(p,SizeOf(Item));
Initialize(p^);
　p^ := Item;
　result := FList.Add(p);
end;

function TRecordList.Add(Item:TMyRecord): Integer;
var
　p:PMyRecord;
begin
　New(p);
　p^ := Item;
　result := FList.Add(p);
end;

　 .∧,,∧　　ｳﾜｰﾝｳﾜｰﾝ
　ミﾟД⊂ﾐ　こうすればいいのかなー？？
0318デフォルトの名無しさんNGNG
PageControlの上で右クリックしたら「新規作成」ってのがでるらしいんですけど
うんともすんとも言いません　何が原因でしょう？
0319デフォルトの名無しさんNGNG
>>318
実装してない・
0320ねこまNGNG
Initialize, Finalize を理解していなかったのですか……
TList の派生なら，Deleting を Override して Finalize をコールさせればすっきりします．
0321　NGNG
<td nowrap align="right" align="right"><font color="00aa00">-7.44</font></td>
<td align="center">-</td>
<td align="center">-</td>
------------------------------------------------------------------

上の文字列から、>****< の中の****だけ取り出すにはどうすればイイでしょうか。

上の例だと、-7.4と-を取り出したいのです。

宜しくお願いいたします。
0322デフォルトの名無しさんNGNG
>>321 パーソナルかPro？　それとも　Entですか？
0323３２１NGNG
>322

パーソナルです
0324デフォルトの名無しさんNGNG
>>323　単に取り出せればよいのなら
　　IEコンポを貼り付けて、全部選択してCopyしてクリップボードからテキストとして取り出したら？
0325デフォルトの名無しさんNGNG
lynx http://www.hoge.domain > out.txt
とかやって整形テキスト取得するとか。
0326デフォルトの名無しさんNGNG
ちなみにLynxのWin32版は
http://www.fdisk.com/doslynx/lynxport.htm
このあたりで。
0327３２１NGNG
アドバイス有り難うございます。
0328デフォルトの名無しさんNGNG
Delphi6をインストールしてみました。
勉強に最適なページをおしえてつかーさい
0329デフォルトの名無しさんNGNG
>>328
さぁ、アンインストールしようか。
0330デフォルトの名無しさんNGNG
http://www.nifty.com/join/apply/index.htm
0331デフォルトの名無しさんNGNG
>>329
そんなー
教えてくださいよー
一応VC++（Win32、MFC)はやってます。
0332デフォルトの名無しさんNGNG
>>331
さぁ、VC++なんて忘れようか。
0333デフォルトの名無しさんNGNG
>>328 ほれ
http://delphi.sakura.vg/index2.html
0334デフォルトの名無しさんNGNG
今日会社でエンプラ版初めて見たけどすげぇ起動遅いね
あわよくば割れてもらおうと思ったけどそんな使う機能なさげだからやめといた
しかし・・・あの重さはすごかったな　　プロ版はどうですか？
0335デフォルトの名無しさんNGNG
>>332
正直、VCは仕事だけにしたいっす

>>333
よさげです。お勉強します。
0336デフォルトの名無しさんNGNG
うーん。ぱっとみだけど、Delphiってすごくねー？
正直、わくわくしてきますた。
0337デフォルトの名無しさんNGNG
>>334
犯罪を目的とする者に提供する情報はありません。
0338デフォルトの名無しさんNGNG
>>336
そうでもないよ。普通。
必要な機能をそつなく搭載してる感じ。
0339デフォルトの名無しさんNGNG
>>98で紹介されている方法(Delphi6 Personal + ADO)でMDBにアクセスしているのですが、
MDBにパスワードを設定したところ、DBのOpen処理で下記のエラーがでてしまい、うまく接続が出来ません。

「アプリケーションを起動できません。システム データベースが存在しないか、
またはほかのユーザーが排他的にシステム データベースを開いています。」

Open処理
元:Connection1.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./db1.mdb;Persist Security Info=False', '', '', adConnectUnspecified);
パス有：Connection1.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\db1.mdb;Persist Security Info=False', 'Admin', 'hoge', adConnectUnspecified);

引数の設定が間違っているのでしょうか?Googleで調べているのですが解決策がみつかりません。
また、MDBファイルにパスワードを設定することはできますが、
ユーザーIDは特に設定しない場合、何と言う文字列が割り当てられるのですか?

以上、ご教授お願いします。
0340デフォルトの名無しさんNGNG
コンパイルの速さは凄いと思いますた。
あとDB関係の充実度も。
0341デフォルトの名無しさんNGNG
ユーザーの閉鎖的ぶりもすごいと重いますた。
0342デフォルトの名無しさんNGNG
Delphiのサンプルとか使ってて、外国のやつを日本語表記できるようにするにはどうしたらいいですか？
「Encoding」とか書いてるとこないんですよね。。。(´･ω･‘)
0343デフォルトの名無しさんNGNG
フォントの設定。
0344デフォルトの名無しさんNGNG
>>341
どこてもいっしょ
じゃない？

>>342
どのサンプルか知らんけど、
探し方が悪いとか。
pasファイルにあるとは限らないし。
0345デフォルトの名無しさんNGNG
342はまず質問の仕方を勉強するべし。
0346デフォルトの名無しさんNGNG
>>342
海外のアプリを日本語化したいってこと？
ラベルの文字を変えるのは分かるよね？
あとは、フォントの設定すればいいんじゃないの？
MS Pゴシックとかに変更して、charsetをshift_jisにする。
フォントダイアログで変えるなら、書体の種類を日本語にする。
0347デフォルトの名無しさんNGNG
んだから、外国で拾ったソースは大抵フォントが「Arial」とかだから
「ＭＳＰ ゴシック」など適当に変えてみそ。
0348347NGNG
カブりますた。>>346でいいっす。
0349デフォルトの名無しさんNGNG
>>227
頼むから餓鬼を無闇に煽るのはやめれ。
全く効果ないばかりか逆恨みされてスレ荒らされるのが関の山。
徹底放置しる。できないなら自作自演か煽動工作と見なして荒らし報告だな
0350デフォルトの名無しさんNGNG
>>349
お前が出てこなければ普通に流れたものを。
どうでもいい俺の荒らし魂に火を付けたよ。君は。
0351342NGNG
ヽ(´ー｀)ノ　直りますた！　みんなありがとうございます　助かりました
0352デフォルトの名無しさんNGNG
>>339
これでどうですか？
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=aiueo
0353デフォルトの名無しさんNGNG
>>352
339じゃないけど俺もそれで接続出来ました。
xxx.udlってファイル作って（空のテキストファイル改名するだけでＯＫ）
接続テストするのが近道かと。
0354デフォルトの名無しさんNGNG
delphiのサンプルソースが落ちてるとこないでしょうか？　海外でもいいんでおながいします
0355デフォルトの名無しさんNGNG
C:\Program Files\Borland\Delphi6\Demos
じゃ駄目？
0356Delフサギコ ◆VzDeLphI NGNG
たくさん、ありすぎかも,,,
http://www.nifty.ne.jp/forum/fdelphi/samples/index.htm

　　　　∧,,∧
　　　 ミ ﾟДﾟミ　　　　これおでんアイスだから
　　　 (ﾐ　 　ﾐつ-□●△
　　　　ﾐ　 　ﾐ
　　　　し''｀Ｊ　
0357デフォルトの名無しさんNGNG
delphiの検索ってなんであんなに使いにくいの？
0358357NGNG
ちょっと質問の仕方が悪すぎました　ｽﾏｿ
コードの表示画面でCtrl+Fを押して検索するときに普通エンター押したらそのキーワードのとこに移動するじゃないですか？
あれできないんでしょうか？　　できると思うんだけどなー　
0359Delフサギコ ◆VzDeLphI NGNG

　　　　 ∧,,∧ 　F3キーを押してﾎｽｲ....
　　　　ミ,,ﾟДﾟ彡　　
　　　　 ﾐ つ⊂ﾐ　　　
　　　　 ﾐ 　　ﾐ
　　　　 ∪ ∪ 　　　　　　　
0360デフォルトの名無しさんNGNG
IDEのエディタ、まともなのにすげ替えたいんですが、無理ですね。
0361357NGNG
>>359 フサギコﾀｿ・・・・回線切って首つって・・・(以下略)


　　　　　　　　　　　　thx!
0362339NGNG
>>352
できました！感謝!

>>353
udlファイルは知らないです。調べてみますね。

0363デフォルトの名無しさんNGNG
ちょっと相談に乗って欲しいことがあるんですが、音声チャットを作ろうと思ってます
で、同期通信にしたいのです　やっぱりその方がリアルタイム制はでるんですよね？
それとネットゲームとか(動きの速いフライトシュミ系など)は同期通信ってことになるんでしょうか？
0364デフォルトの名無しさんNGNG
>>357-358
何がやりたいの？
358で言っていることはできますが。
正規表現もできるし、インクリメンタルサーチもできるし、
不満点は何？
0365デフォルトの名無しさんNGNG
(´-`).oO(解決してるんじゃないの
0366デフォルトの名無しさんNGNG
ClientSocketを使ってみたんですけど
ヘルプがなくて困っています。
コネクトはできたのですが、センドするメソッドがわかりません。
どなたかお助け
0367デフォルトの名無しさんNGNG
>>366
send()
0368素人NGNG
>>366
ClientSocketで検索すればちゃんと出てくるよ。
昔探したことあるし。
0369デフォルトの名無しさんNGNG
>>368
仕様が嫌いだったのでAPI直叩きました。
0370デフォルトの名無しさんNGNG
c:\a.jpgのファイルを実行時に表示するにはどうしたらいいのですか？
0371デフォルトの名無しさんNGNG
>>370
usesに jpeg を書き加えて
TImage.LoadFromFile(ファイル名)でOK
0372デフォルトの名無しさんNGNG
あの～、
Cのstrtokみたいなのってありませんか？
0373デフォルトの名無しさんNGNG
>>372
CopyとPosとwhile駆使（ってほどじゃないけど）
0374デフォルトの名無しさんNGNG
>>373
ってどうやるんですか？
0375デフォルトの名無しさんNGNG
>>374
s :string;
temp :string;

while(s <> '')
begin
temp := Copy(s,0,Pos(s,':'));

s := Copy(s,Pos(s,':'),Length(s));

end;

半分適当だから微調整はお願いね。
0376デフォルトの名無しさんNGNG
>>375
あんがと。
ﾘﾌｧみて微調整します。
0377デフォルトの名無しさんNGNG
（´-`）。o ○ （どうして質問は敬語で、お礼はフランクかなぁ…）
0378デフォルトの名無しさんNGNG
>>377
大変申し訳ございませんでした。
ありがとうございますりますた。
0379３７７NGNG
（´-`）。o ○ （オレは疑問に思っただけで、答えた人じゃないけどさ。
つーか、関係無いけどマルチポストも疑問だなぁ…。
悪質なのはＨＮ変えてやがるからな…。人間的にどーかと思うよ…）
0380デフォルトの名無しさんNGNG
>>379
マルチじゃねぇよぉぉ・・・

　　　　　　　　　　　　　　　ヽ(`Д´)ﾉ　ｳﾜｧｧﾝ
0381３７７NGNG
（´-`）。o ○ （一般的なマルチの話ぞなもし…）
0382デフォルトの名無しさんNGNG
LinuxサーバーのMySQLにSQLConnectionを使って接続してるのですが、テーブルの内容を
読み書きできるようにするにはどうすればいいのでしょうか？
現在、readonlyになってまして、データの追加や書き換えができないのです。
0383デフォルトの名無しさんNGNG
>>382
サーバー側に変更の権限が設定されてないのとちゃうけ
0384382NGNG
>>383
レス、どうもありがとうございました。
いろいろ調べた結果、dsExpressではできない事がわかりました。
BDEを使って、再構築しようと考えています。
0385デフォルトの名無しさんNGNG
とあるソースに

Query1.SQL.Add('Order by 項目1,項目2,項目3 ASC');

と書いても何ともなかったのに、別のソースで同じように記述したら
「キーワードの使用が無効です　キーワード:項目2,項目3」
というエラーメッセージが出るのですが、何が悪いんでしょうか。
0386デフォルトの名無しさんNGNG
>>384
MySQLってそうなのかなぁ
dbExpressでOracleなら普通に読み書きできてますけど
0387デフォルトの名無しさんNGNG
>>385
項目2,項目3がSELECTされてないとか
0388385NGNG
>>387
select * from テーブル名.DB

↑でやってますので、それはないかと…。
上手くいった方も同様にやってます。
0389デフォルトの名無しさんNGNG
>>388
一度 Memoコンポーネントに SQLを書き出すようにしてみたらどうですか？
勘違いで変な文ができてるということも（自分の場合）よくあるので
0390385NGNG
>>389
そう思って、TQueryのSQLに直接

select * from テーブル.DB
as テーブル
ORDER BY 項目1,項目2,項目3 ASC

と書いてActiveをTrueに変更したら、やっぱりエラーメッセージがでます。
テーブル自体が何か変なんですかね？
↑のSQL自体が変かも知れませんが、これしか書いたことが無いもので。（汗
0391デフォルトの名無しさんNGNG
>>390
そこまで単純なら「 as テーブル 」は不要（っつーか as を書かないDBもあると思った）
あと ASCはデフォルトだから不要だし その文では 項目3 にしか作用しない
さもなければテーブルに 項目2,項目3 がないとか（2、3が全角か半角か要チェック）

こんなところですか
0392385NGNG
お騒がせしましたが、解決しました。
「項目2」と書きましたが、実際は「DAY」という項目名だったんですが、
それがマズかったようです。3つそれぞれ単独ではどうかと試した
ところ、項目2＝DAYだけエラーだったので判明しました。項目名を
変えたらできました。予約語ですかね、基礎中の基礎、逝ってきます…。（欝氏
0393デフォルトの名無しさんNGNG
質問です。
エクスプローラと同じ動作をするフリーのフォルダツリービューコンポーネントってない
でしょうか？
BCB用のコンポーネントを見つけたのですが Delphi 用のコンポーネントを見つける
ことが出来ませんでした。

ないのなら自作するのですが、レジストリ検索してアイテムの名前（例えば、ごみ箱）
やら使用するアイコンを調べなきゃいけいないし、Windows のバージョンによる違いが
あったりで、レジストリに疎い私が調査して実装するのはかなり面倒で泣いてしまい
そうです。

一応BCB用のコンポーネントのアドレスを張っておきます。
ttp://home1.infonia.ne.jp/~delphian/delphi/compo/listgrid.html

よろしくお願いします。
0394デフォルトの名無しさんNGNG
>>393
Sampleタブに付いてるShellTreeViewとShellListViewを組み合わせるのではだめ？
0395393NGNG
>394
ありがとうございます！！
ばっちりです！

そして、申し訳ありませんでした。
ってきりないと早とちりして、ActiveX をあさってみたりWebを検索したり
レジストリを調べてみたりしておりました。
2度とこんな質問をしてしまわないよう、標準のコンポーネントを全て
試しまくった後、人知れず吊ってきます。

解答してください、本当にありがとうございました。
0396デフォルトの名無しさんNGNG
Windowsの iniファイル形式の代わりに、そろそろXMLでやったら ｶｺｲｲ! かなと思って調べているのだけど、よくわからなかった。。
Ent試用版を手に入れてやってみたら、XMLに便利なコンポーネントはあったけどiniファイルのように簡単に扱うにはまだまだ遠い。。

DelphiでXML扱うのって、時期早尚ですか？
0397デフォルトの名無しさんNGNG
>>396
え～？
DOMもSAXもXPathもあるのに。

単にTListタイプかTTreeタイプかの違いでしょう。
0398デフォルトの名無しさんNGNG
>>396は XMLで、TInifile の　ReadString(Section, Key, Default)みたいに
扱いたいんじゃないかな。　漏れも答えは氏欄が。ｽﾏｿ

0399370NGNG
>>371
やってみたのですが、だめでした。
usesというところにjpegと加えて、TImage.LoadFromFile(a.jpg)の一文を足せばいいんですよね？

「[致命的エラー] Unit1.pas(7): ファイル 'jpg.dcu' が見つかりません」と言われて怒られます。
0400デフォルトの名無しさんNGNG
jpg->jpegだろ。書きながら気づけよ
0401デフォルトの名無しさんNGNG
>>399
>TImage.LoadFromFile(a.jpg)
そのままじゃだめだよ
TImageのLoadFromFileという意味だから
例えば
Image1.LoadFromFile(a.jpg)
というようにTImageのインスタンスからLoadFromFileを呼ぶ
0402デフォルトの名無しさんNGNG
>>401
文字列囲もうよ・・・。
0403デフォルトの名無しさんNGNG
>>402
いけね、399のをそのまま書いちゃった
0404370NGNG
これだとエラーが出ます。
どうしたらいいのでしょうか？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Image1.LoadFromFile(a.jpeg)
0405デフォルトの名無しさんNGNG
>>404
DelphiをPerl火難かと勘違いしていませんかと。
0406デフォルトの名無しさんNGNG
>>404
間のコードを省いたとしてもセミコロン。

頼むからｊこんぱいるエラーごときで質問しにこんでくれるか。
0407デフォルトの名無しさんNGNG
>>404
エラーの行を全部消してから
　ボタンをダブルクリックして
Image1.LoadFromFile('a.jpeg');

って感じの質問？

モナーの *やさしい* Delphi質問スレ Ver.8
http://pc3.2ch.net/test/read.cgi/tech/1027873869/

ならもっとやさしく教えてくれる可能性はあるよ

0408デフォルトの名無しさんNGNG
>>404
カエレッッ━━━━━━（ﾟ∀ﾟ）━━━━━━ !!
0409デフォルトの名無しさんNGNG
ネタといってくれ
0410370NGNG
やはり聞く場所が違いましたか。
今インストールしたばかりなので何もわからないのですよ。
検索してもｊｐｇファイルを表示するようなコードはみあたらないのできいてみたのですが　
帰りますね。

>>407
やっぱりだめでした。 [エラー] Unit1.pas(41): 未定義の識別子 : 'LoadFromFile'となります。
0411デフォルトの名無しさんNGNG
まずは一息ついて
おもむろに入門書を買って来い。
0412デフォルトの名無しさんNGNG
今インストールしたばかりの超初心者というのが本当なら、まずはヘルプの
「Object Pascal 言語ガイド」を一通り嫁。
次に初心者向けサイトでも見れ。
質問はそれからだ。
0413デフォルトの名無しさんNGNG
>「Object Pascal 言語ガイド」を一通り嫁。
無茶言うな
0414デフォルトの名無しさんNGNG
>>413
俺読んで覚えたけど。
0415デフォルトの名無しさんNGNG
>>410
とりあえず、ここの
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538
「○入門」ってあるサイト全部回ってからもう一度来てくださいな。
0416デフォルトの名無しさんNGNG
>>413
無茶じゃないぞ、あのぐらい読めなくてどうする。
0417413NGNG
俺だって読んだけど
370が今読んで理解できるわけないだろ
つかスレ違い
0418370NGNG
おおぅ、ありがとうございます。

ゼロからDELPHI講座ってのがわかりやすそうでいいです。

それでは。
0419デフォルトの名無しさんNGNG
たしかに酷かもしれんが、時間を見つけて言語ガイドを通読するのは
初期のレベルアップに有効だと思う。
0420Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　　　　 ＿＿＿＿＿
　　　　　 ∧,,∧＿__　　 ／言語ガイド読むと
　　　 ／ミ,,ﾟДﾟミ／＼＜　　日本語が意味不明で
　　／|￣∪∪￣|＼／　＼眠くなると思うですが？
　　　 |＿＿＿＿|／
　　　市販の参考書の方がよっぽど面白くて役に立つと
　　　思うんだけどな。
0421デフォルトの名無しさんNGNG
>>420
それなら、オライリーから出てる「DELPHI クイックリファレンス」を
通読してくれ。
Delphiの何ぞやがよく分かる。
0422デフォルトの名無しさんNGNG

ボーランドがやっている Delphi の検定試験ってどうよ？
0423デフォルトの名無しさんNGNG
>>420
学問に王道なし。
楽して人より先に行けると思うな。
0424デフォルトの名無しさんNGNG
>>432
文法の丸暗記程度なら王道はあるよ
低脳は回り道
それ以外は直線的に進めばいいのよ
0425デフォルトの名無しさんNGNG
だれも文法の丸暗記の話などしていないんだけど...
>>レス番号間違える程度の低脳さん
0426デフォルトの名無しさんNGNG
不要な煽りはヤメイ。スレが汚れる。
0427デフォルトの名無しさんNGNG
一言多いために敵をふやしていることをわかってくれや
0428デフォルトの名無しさんNGNG
>>420
日本語が意味不明だったら手を動かせばいいだけではないですか？
0429デフォルトの名無しさんNGNG
>>428
ああ、同意。

文法わからなくなったら呼んでたなぁ。
あのときなぜかBNC（構文表記する奴ね。名前忘れた。）読めてたなぁ・・・。
すげえな・・・昔の俺・・・・。
0430デフォルトの名無しさんNGNG
TShellComboBoxで選択しているディレクトリのパス情報の取得をするには
どうすればいいの？
0431デフォルトの名無しさんNGNG
>>430
プロパティ一通りみた？
0432ななしへたぐらま ◆B18Bks.Y NGNG
フォームやフレームなどの継承って，
別にリポジトリに登録しなくてもできるのですね．
今更気がついて鬱．

最近はコンポを作る代わりにフレームを使うことが多いのですが
早速，インターフェイスだけ実装した抽象フレームクラスという怪しいものを作っています．

>>410
Image1.Picture.LoadFromFile('c:\a.jpg');
が正しいはずのでこれでやってみてください．
（こちらのDelphi5環境で確認しましたが…）

>>420
言語ガイドは言語仕様書として
たまにぼーっと読んで　(　´_ゝ｀）ﾌｰﾝ という感じです．

それ以外に言語の細かい仕様を知るために読むこともあります．
0433デフォルトの名無しさんNGNG
丸暗記と通読とは別のことなのですよ。
リファレンス本だけでは基礎力は身につかないの。
0434デフォルトの名無しさんNGNG
>>430
Path
0435デフォルトの名無しさんNGNG
>>433
確かになぁ。俺その前にCやってたからなぁ。
うん。しょうもない本で良いから一冊読むべしと。
0436デフォルトの名無しさんNGNG
>>435
いや、良書をきちんと。


..けど、近頃の若者は我慢できないからねぇ。すぐ Web で検索/過去ログ検索で
終わらせてしまう。それやっている間は web や過去に質問に答えた人の知識以上の
位置には到達できないのに。

納期が迫っている時ならともかく、勉強の時間を用意してあげていても ML に
たずねて終わってしまうんだから。... おまえが持ってきた過去ログの記事書いたの俺だぞ！！
ﾊｧﾊｧ
0437デフォルトの名無しさんNGNG
>>436
そんな事、俺達に言われても…(w;
0438デフォルトの名無しさんNGNG
中間管理職？
0439デフォルトの名無しさんNGNG
その最近の若者ですが、
俺から見てさらに最近の若者はプログラミングすらやらねーよ。
つまんねー。
0440デフォルトの名無しさんNGNG
Delphi7 age
0441デフォルトの名無しさんNGNG
Delphi8でもKylixバンドルされるかな？それとも、Kylix打ち止め記念に
KylixユーザーをDelphi,BCBに引き込む為にバンドルしてみただけ？
折れ的には嬉しい限りなんだが、Kylix1,2と間隔の短いバージョンアップ
にも付き合ったしDelphiは毎回買ってるんで、格安でアップグレードさせて
欲しいと願うばかり。

アップグレード価格は過去の購入実績から値引ポイントを計算するように
して欲しいよ。（笑
0442デフォルトの名無しさんNGNG
Delphi7のPersonalは再び有料化みたいだけど、6のPersonal無償配布
は今後どうするんだろう。

おれはProを使ってきているから別にどっちでもいいんだけど、趣味で週末
だけプログラミングを楽しんでいるような人にとっては無償配布が中止に
なったら悲しむだろうね。
0443デフォルトの名無しさんNGNG
１万円くらいは払う罠。
0444デフォルトの名無しさんNGNG
>>442
んで、7Personalの機能制限はどんなものなの？
6みたいにDB制限されちゃあ使う気うせるが。
0445デフォルトの名無しさんNGNG
> Personal版は基本的なWindowsアプリケーションの開発機能のみを備える。
> データベース・アプリケーションの開発機能などが省かれているほか，
> 商用のアプリケーションを開発できないライセンスになっている。
0446デフォルトの名無しさんNGNG
相変わらずDBは制限されてますた。
http://www.borland.co.jp/delphi/del7/feamatrix/
0447デフォルトの名無しさんNGNG
>>446
あんがと。
じゃあ6Personalのままでいいや・・・
0448デフォルトの名無しさんNGNG
Delphi5pro持っているけど、D6ﾊﾟｿﾅﾙをﾀﾞｳｿするか
D7ﾊﾟｿﾅﾙを買うか、このまま5proで逝くか悩み中。
0449デフォルトの名無しさんNGNG
>>448
いっそのことJavaかC++に乗り換えようとかは悩まないのか？
0450448NGNG
>>449
漏れDel厨だからDelがいい（ﾜﾗ
今更だが、最近気になるのはC#かな・・。
0451デフォルトの名無しさんNGNG
>>448
今回も見送ったほうが吉じゃないかなー。
.netフル対応のD8を待ったほうが良いと思いマス。
0452デフォルトの名無しさんNGNG
そうだね。
Del7で打ち切りになるかもしれないしね。
0453448NGNG
うーん、やっぱりそうですかねー。
まあD5proでも個人的に不満はないから来年まで待とうかな・・。
フリーソフトしか作らないし（ｗ
0454448NGNG
>>453は>>452宛でした。ｽﾏｿ

>>452
Σ（ﾟдﾟlll）ｶﾞｰﾝ!
0455デフォルトの名無しさんNGNG
>>450
ヘジがDelphiユーザーの為に書きました・・・ってぐらい
似てるからな～。ヘジがBorland去った後にDelphiに実装
されたAnchorsプロパティとかまであるし。

そ～いやDelphi7はXPテーマに対応ってあるけどまた実行ファイル
大きくなるのかな～。使ってないプロパティ・メソッドは最適化して
くんないかな～。
0456デフォルトの名無しさんNGNG
D7は見送りです…
XP対応が気になりますが、あとはなんかおまけを増やしただけでしょう。
.NET対応も不要＆挙動が不明確だし。

ホントはIDEやエディタ周りをもっと賢くすべきだと思うんですけどね。
0457172NGNG
すいません。ちょっと教えてください。

myClass := TMyClass.Create ;
myClass.Foo ;
myClass.free ;

普通の流れだと思います。
TMyClass型のインスタンスを生成し、手続きをよんで解放する。

ふと気になったんですが、myClassには何が入ってるんですか？
TMyClassの生成されたインスタンスへのポインタと考えてるんですがそれで良いのですか？
また、myClassはTMyClass型のポインタを格納する変数ということでよろしいのでしょうか？

よろしくお願いしますm(__)m
0458デフォルトの名無しさんNGNG
カタログスペックに載らない所にちょこちょこ改良加えてる所が
あるからなあ～

OpenToolsAPIの詳しい解説を載せるってとこに少し惹かれる。
評価版で1度は試してみるつもり。
0459デフォルトの名無しさんNGNG
>>457
Ｃを使ってた人？もちろんmyClassはオブジェクト参照と言って
実体へのアドレスがセットされている。
0460459NGNG
BCBで同じ事してるコードと比較すれば一目瞭然だと思うんだよね～。
0461デフォルトの名無しさんNGNG
>>457
ポインタであっていますよ。
0462デフォルトの名無しさんNGNG
>>455
XPテーマ対応は http://www.lischke-online.de/ にあるWindows Xp Theme Managerを
統合したものらしい。
0463172NGNG
みなさまレスありがとうございます。

別にＣつかいって訳ではありません。普通のDelphiつかいです。
最近オブジェクト指向を再入門していることと、ＢＣＢの勉強をはじめました。

ＢＣＢはインスタンスを生成したモノにインスタンスを渡すとTStrings.Assign()の
ような動きをして、生成されていないインスタンスにインスタンスを入れると同じ
インスタンスを参照することを知りました。
そこで、ふとDelphiはどうなっているんだろう？と疑問になった次第です。
0464デフォルトの名無しさんNGNG
>>458
>評価版で1度

すまない。BCB6 以降、日本語化された Ent 評価版は存在しなくなりました。

0465デフォルトの名無しさんNGNG
質問させて頂きます。当方Delphi6 Personalです。

DLLを作っていたのですが、DLL側からダイアログを出す際
リソースを使わずに出す方法はあるでしょうか？
一度、「フォームの作成」でフォームを作り、
ShowModal で試してみましたが、
何故か読み込み違反が起きてしまいます。

根本的に間違っているような気がするのですが、
何か解決法等、ご指導お願い致します。
（DLLはexportして別アプリでプラグインとして使います）
0466デフォルトの名無しさんNGNG
>>465
"リソースを使わずに" のあたりが意味不明だが、予想と脊髄反射で。
Application.Handleに呼出元のハンドルをDLL内部でセットする
必要があった筈だけど、それやってる？
あと FormのCreateしてる部分を提示してみ。
DelphiMLにその辺の情報がある筈だから探すのも吉
0467デフォルトの名無しさんNGNG
>>448
どーでもいーことですまんが、D6をﾀﾞｳｿするのは悩むほどのことではないと思うが。
試してみてD5で十分なら使わなければいいだけなんだし。
0468Delフサギコ ◆VzDeLphI NGNG
　 ∧,,∧　　　D5ProからD6ﾊﾟｿはしないほうがいいかも
　ミ,,ﾟДﾟﾐつ

ここみてどうぞ
http://www.borland.co.jp/delphi/del6/features.html

Proのｺｰﾄﾞｴｸｽﾌﾟﾛﾗの方が折れには重要っす

Ver6のNew機能は
・ｲﾝﾗﾝｿアセンブリ
　　>>使わない
・ｵﾌﾞｼﾞｪｸﾄ釣り
　　>>見ない(ちょっと便利だけど)
・ｺﾝﾎﾟﾊﾟﾚｯﾄ可変
　　>>ぞえんぞえんメリットがない
・ダイアグラムエディタ
　　>>使わないしそもそもPerにつかない
・ActionManeger
　　>>使わないPerにない
・ｲﾒｰｼﾞCombo
　　>>使わない
・CLX
　　>>Perにない
・DB
　　>>使えない]
・**Snap
　　>>Proにすらつかない

それにしても、かなり便利なIndyを宣伝しないのは
どいうことかしら？

このさい、G-Experもﾊﾞﾝﾄﾞﾙｼﾃﾎｽｲ

0469デフォルトの名無しさんNGNG
そういえば、いつのまにかwith内でのコード補間がまともになってる気がするんだけど。
ちゃんと、withも考慮して補完候補だしてくれる。

環境: Del6Pro Update2 RTLUpdateずみ
0470デフォルトの名無しさんNGNG
RTL60.bplとか、Types.pasとか、バリアント型関連がSystem.pasから追い出されているとか、
UTF8変換ルーチンがあるとか、WideStringとAnsiStringでoverloadできるとか、
VCLなんか無視して、小さい*.exeを作りたい or フルUnicodeにしたい場合なら
Delphi6は5よりもお薦め。

こういう広告に乗らない変更の方が俺には重要…
0471デフォルトの名無しさんNGNG
delphi6の利点
listbox.count が使えること。　　　　そうでもないか・・・
0472デフォルトの名無しさんNGNG
やっぱりフルUNICODEなアプリだと、Win9x環境では化けるんですかね？
0473デフォルトの名無しさんNGNG
D7 Personal は コード支援はついてるみたい
0474デフォルトの名無しさんNGNG
Delphi 7 = Delphi 6.1 ということでよろしいですか？
0475デフォルトの名無しさんNGNG
D5pro持ってるけど普段はD6per使ってるよ。GExpertsで大体補えるし、
コード補完がわりと進化してていい感じ。
0476デフォルトの名無しさんNGNG
>>472
んなーこたーない。
0477デフォルトの名無しさんNGNG
アクソンリストは付くのか（略）
0478デフォルトの名無しさんNGNG
付きません
0479５６ｋモデマーNGNG
でかい（オレにとって）サイズのアップデータは、ちょっとナニだなぁ。
と言いつつ、全くアップデートしてない（藁
だってＤＬするのツライ…。
0480デフォルトの名無しさんNGNG
あなたWindowsのサービスパックもあててないんでしょ。
ウィルスチェックした方が良いですよ。
0481デフォルトの名無しさんNGNG
>>479
適当な雑誌、一冊買えばついてくるでしょ。それすら買えないなら
インターネットにつなぐの３ヶ月くらい止めたら？
0482デフォルトの名無しさんNGNG
キーボード付きPDAでDebianが動くのを探してますが、
お勧めはありますか？
0483デフォルトの名無しさんNGNG
>>482
... Debian と Delphi の読み間違い？
0484デフォルトの名無しさんNGNG
>>482
Debian GNU/Linux スレッド Ver. 11
http://pc.2ch.net/test/read.cgi/linux/1030178687/
こっちで訊いた方が幸せになれそうだＹＯ
0485デフォルトの名無しさんNGNG
クイックレポートのグループヘッダがディテイルの下になってしまう。どうして？
0486デフォルトの名無しさんNGNG
あっバージョンアップのDM旧住所に届いちゃったかな
バージョンアップしないから別にいらないけど
0487デフォルトの名無しさんNGNG
>>486
郵便局に移転通知だしてないの？
某に電話すれば送りなおしてくれるんじゃないかな？
0488デフォルトの名無しさんNGNG
>>485
何かプロパティの設定忘れてないかえ？
0489デフォルトの名無しさんNGNG
Delphi6 pro使っています。
Interfaceを使用したいのですが、いまいち雰囲気が掴めません。
Javaで使うような感じで使用したいのです。
こういった使い方は想定されてないのでしょうか？
0490デフォルトの名無しさんNGNG
Java の Interface とは別物です。似てはいるけど。

郷に入っては郷に従え。
0491489NGNG
489の補足
いろんな（既存の）クラスにインターフェースを追加したいので、
TInterfacedObjectから継承とかは無理です。
0492デフォルトの名無しさんNGNG
>>490
あっ、別物だったんだ。
これからDelphiでの使い方を詳しく調べてみます。
ありがとうございました。
0493デフォルトの名無しさんNGNG
>>492
なんにせよ、聞く前にまずマニュアル読めや。

歴史的必然で、すべてのクラスの祖である TObject とは別に TInterfaceObject が定義されているけど、
TInterfaceObject で定義されていることを自分のクラスで実装すればことは足りる。

ただ、既存のクラスに機能を追加する目的で Interface を使うのは設計的に薦めないよ。
0494デフォルトの名無しさんNGNG
interface知ったら
TListBoxとTComboBoxにインターフェース被せたら便利かな？
なんてつい思ってしまうんだよね・・・・・
0495デフォルトの名無しさんNGNG
DBGridの中にDBCheckBoxが埋め込まれたコンポーネントって
どなたか自作なさってませんか？
Boolean値だと自動的にチェックボックスにしてくれるような。
0496デルファイの名無しさんNGNG
>>494
実はTCustomListControlなんて共通基底クラスが…
0497デフォルトの名無しさんNGNG
>>495
５年くらい前にやったことだから、詳しく覚えてないけど、
描画するところで、Boolean値のセルだったら、DrawFrameControlってAPI
使ってチェックボックスを描画してやった気がする。
そんなに難しくなかったような。。
0498Delフサギコ ◆VzDeLphI NGNG
　ミ,,ﾟДﾟﾐつ
ついさいきん、DelphiMLでRadioButtonのイメージだけ描画処理が
でてますた。CheckBoxも似たようなものかもね。
それができたらあとはClickイベントでOn/Offするといいです。
0499デフォルトの名無しさんNGNG
Win98+Delphi5で開発した参照系のツールを配布したのですが、
2台ほどのPCで次のような現象が出てしまいました。

ｿｰｽ内でﾘﾃﾗﾙで持っている全角文字は普通に表示される。
ﾃﾞｰﾀﾍﾞｰｽから引っ張ってきた全角文字だけ「???」と表示される。
半角文字は普通に出る。
EX)住所：???????????????????????1-3-4　　のような感じ。

文字コードの関係かと思いましたが、普通の文字化けとは違うので
よく分かりません。
こんな現象の出た方いらっしゃいませんか？
0500デフォルトの名無しさんNGNG
500ｹﾞﾄｰ

データベースの文字コード調べて見れ
0501デフォルトの名無しさんNGNG
漏れはDLLだけはVCで組んでいるのだが、皆はDelphiで組んでおるのか？
0502デフォルトの名無しさんNGNG
うぃ。
0503デフォルトの名無しさんNGNG
Delphi7proをなんとなく注文、少し後悔、Delphi8まで待てば良かったかな（ｗ；
取りあえずレポート作成ツールが一新されたんでしょ、
その辺りを試したいだけのアップグレードだけど、今までもPQCompo+LightRepな
使い方しかしてないんで、全然意味無いな（藁
0504デフォルトの名無しさんNGNG
>>501
何かポリシーでもあるんすか。
VC++ってextern "C"しても関数名化けるっしょ？
0505Delフサギコ ◆VzDeLphI NGNG
　 ∧,,∧
　ミ,,ﾟДﾟﾐ　なんかモーダルって事で特殊な
　　　　　　処理してんのかな？

　　　　　　　ﾅｶﾑﾗﾀｸセンセとはﾊﾙﾎﾞｳさんがMLのどこかで
　　　　　　　Modalの真似をするとかで話してた気がするんですが,,,
　　　　　　　検索してもでてこなかーたです。
0506教えてくださいNGNG
98se です。
以前　delphi personal を一度インストールしていた。
結局使わなかったので「追加と削除」からアンインストール
手動でフォルダはもちろんレジストリーの情報も　
borland　～　 以下を全て削除しました。

今回またインストールしようとすると
ファイアーウォールソフトの outpost が起動させてないにもかかわらず
不正な処理で警告が出る。
それを終了させてインストール続行。インストールウィザードが
「プログラムの変更、修復、削除」の画面になる。
仕方なく｢プログラムの変更」を選んで続けると、インストールキー
の要求もなく終了し、再起動。しかしwin.com が見つかりません。
とメッセージが出て起動がとまる。
safe モードで起動
autoexe.bat の
SET PATH=C:\PROGRA~1\BORLAND\DELPHI6\BIN;C:\PROGRA~1\BORLAND\DELPHI6\PROJECTS\BPL
を削除して再起動させると問題なく起動する。

ちなみに前回とは違うフォルダにインストールするようにしています。
前回　c:delphi\プログラム\・・・・
今回　c:program files\・・・・
考えられるのは前回のインストール情報が残っているんじゃないかと
いうことなんですけれど
どこをどうすれば再インストールできるのでしょうか。
教えてください｡お願いします。
0507VSyncについてNGNG
Me+Delphi5 Learningで開発しています。
Delphiで垂直帰線を待つ方法を誰かご存じないでしょうか。
Cではこんなのが見つかりました。が、Cのconio.hにあたるものが見あたらないので移植できませんでした。
http://forums.belution.com/ja/vc/000/024/41.shtml
よろしくお願いします。
0508デフォルトの名無しさんNGNG
>>505
「モーダル」ってなんだっけ？
Xファイルの主人公？
確かに特殊だなぁあの仕事も。
0509Delフサギコ ◆VzDeLphI NGNG
　 ∧,,∧　そりゃあんたモルダーやがな！
　ミ,,ﾟДﾟﾐつ

そういえば、ﾃﾞｭｶﾌﾟﾆのエボリューション見たよ
なかなか楽しめたです。

そろそろAIもみたいっすな
0510Delフサギコ ◆VzDeLphI NGNG
　 ∧,,∧　それにしても、ｽﾚ間違いして
　ミ,,　　彡　しまったと罠.....ﾄﾎﾎ

こっちでした[ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室⑤]
http://pc3.2ch.net/test/read.cgi/tech/1030266945/l50
0511デフォルトの名無しさんNGNG
>>509
勝手にみろよ。
お前の好みなんてシラネェよ。




ついでに、氏ね。
0512デフォルトの名無しさんNGNG
>>507
　そのまま移植出来るように思いますが？
　inp命令は直接インラインアセンブラで呼び出しましょう

　ただし Win9x系でなくNT系だと 　 GWIOPMみたいなのを使わないと ハードは叩けませんが
0513デフォルトの名無しさんNGNG
>>507
DirectDraw使う手もある
0514でもどり初心者 ◆KcG2I.hg NGNG
質問です。
Delphi6perで電卓を作っています。

その電卓を実行している時、他のアプリにフォーカスが
当たっている状態でイベントを取得できるもんなんでしょうか？

なにがやりたいかっていうと、例えばWordと自作電卓立ち上げている時、
Wordにフォーカスが当たってても、ファンクションキーなり、ショートカットキーなり押すと、
自作電卓を最前面に表示する／しない　を切り替えたいんです。
0515デフォルトの名無しさんNGNG
Delphiのソースにパッチファイルを当てたいんですが、良く分かりません。
ぐぐったりもしたのですが、結局分からずじまい…

誰かお願いします。
0516デフォルトの名無しさんNGNG
>>514 ホットキーを使うといいでしょう　 THotKeyの事ではなく
http://www.borland.co.jp/qanda/delphi/d0009422.html

のようにRegisterHotkey WM_HOTKEY を使います


0517デフォルトの名無しさんNGNG
ちなみに拡張子はpacthです
0518デフォルトの名無しさんNGNG
コマンドラインツールのpatchを持ってきて、
ソースのあるディレクトリに持ってきて、

patch -p0 < パッチファイル名

でいけるはず。
0519修正NGNG
> ソースのあるディレクトリに持ってきて、
ソースのあるディレクトリにパッチファイルを置いて、
0520デフォルトの名無しさんNGNG
DelphiでCOM DLLをインポートして使ったりできますか？
0521デフォルトの名無しさんNGNG
>>518-519
’patch’は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

と出てしまいました。
0522デフォルトの名無しさんNGNG
>>520
[プロジェクト|タイプライブラリの取り込み]
0523デフォルトの名無しさんNGNG
ＷＩＮ９５で動くのはどのバージョンまでですか？
入手きるサイトも教えてください。
厚かましいですがおながいします。
0524デフォルトの名無しさんNGNG
お前ら、この関数をDelphiに移植してください。
おながいします。

sub _md5_crypt
{
　　my $pw = shift;
　　my $salt = shift;

　　my $Magic = MD5_CRYPT_MAGIC_STRING;
　　$salt =~ s/^\Q$Magic//;
　　$salt =~ s/^(.*)\$.*$/$1/;
　　$salt = substr $salt, 0, 8;

　　my $ctx = new Digest::MD5;
　　$ctx->add($pw);
　　$ctx->add($Magic);
　　$ctx->add($salt);

　　my $final = new Digest::MD5;
　　$final->add($pw);
　　$final->add($salt);
　　$final->add($pw);
　　$final = $final->digest;

　　for (my $pl = length($pw); $pl > 0; $pl -= 16) {
　　　　$ctx->add(substr($final, 0, $pl > 16 ? 16 : $pl));
　　}


　　for (my $i = length($pw); $i; $i >>= 1) {
　　　　if ($i & 1) {
　　　　　　$ctx->add(pack("C", 0));
　　　　} else {
　　　　　　$ctx->add(substr($pw, 0, 1));
　　　　}
　　}
0525デフォルトの名無しさんNGNG

　　$final = $ctx->digest;

　　for (my $i = 0; $i < 1000; $i++) {
　　　　my $ctx1 = new Digest::MD5;
　　　　if ($i & 1) {
　　　　　　$ctx1->add($pw);
　　　　} else {
　　　　　　$ctx1->add(substr($final, 0, 16));
　　　　}
　　　　if ($i % 3) {
　　　　　　$ctx1->add($salt);
　　　　}
　　　　if ($i % 7) {
　　　　　　$ctx1->add($pw);
　　　　}
　　　　if ($i & 1) {
　　　　　　$ctx1->add(substr($final, 0, 16));
　　　　} else {
　　　　　　$ctx1->add($pw);
　　　　}
　　　　$final = $ctx1->digest;
　　}

　　my $passwd = '';
　　$passwd .= _to64(int(unpack("C", (substr($final, 0, 1))) << 16)
　　　　| int(unpack("C", (substr($final, 6, 1))) << 8)
　　　　| int(unpack("C", (substr($final, 12, 1)))), 4);
　　$passwd .= _to64(int(unpack("C", (substr($final, 1, 1))) << 16)
　　　　| int(unpack("C", (substr($final, 7, 1))) << 8)
　　　　| int(unpack("C", (substr($final, 13, 1)))), 4);
　　$passwd .= _to64(int(unpack("C", (substr($final, 2, 1))) << 16)
　　　　| int(unpack("C", (substr($final, 8, 1))) << 8)
　　　　| int(unpack("C", (substr($final, 14, 1)))), 4);
　　$passwd .= _to64(int(unpack("C", (substr($final, 3, 1))) << 16)
　　　　| int(unpack("C", (substr($final, 9, 1))) << 8)
　　　　| int(unpack("C", (substr($final, 15, 1)))), 4);
　　$passwd .= _to64(int(unpack("C", (substr($final, 4, 1))) << 16)
　　　　| int(unpack("C", (substr($final, 10, 1))) << 8)
　　　　| int(unpack("C", (substr($final, 5, 1)))), 4);
　　$passwd .= _to64(int(unpack("C", substr($final, 11, 1))), 2);

　　return $Magic. $salt. '$'. $passwd;
}
0526デフォルトの名無しさんNGNG
shellexecute('shine.pl');
0527デフォルトの名無しさんNGNG
>>524-525
（　´,_ゝ｀）ﾌﾟｯ 氏ﾈ
0528デフォルトの名無しさんNGNG
>>524-525

function _md5_crypt(pw, salt: String): String;
var
　Magic: String;
begin

　Magic := MD5_CRYPT_MAGIC_STRING;
0529デフォルトの名無しさんNGNG
>>521
晒しage
0530デフォルトの名無しさんNGNG
>>524
仕事を2chに持ち込むなｱﾌｫが
0531デフォルトの名無しさんNGNG
>>529
ｷﾓｲ
0532デフォルトの名無しさんNGNG
>>529
janeスレの荒れている雰囲気を持ってこないでくれ、、
0533デフォルトの名無しさんNGNG
Janeは出るパイに何か寄与しましたか？
0534マジレサーｗｉｎ９５NGNG
>>523
＞ＷＩＮ９５で動くのはどのバージョンまでですか？
６パソナルを使ってます。

＞入手きるサイトも教えてください。
＞厚かましいですがおながいします
厚かましいです。
0535デフォルトの名無しさんNGNG
>>521
氏んでください。
コマンドがなかったら自分で調べて持ってくるという考えはないのですか？


とだけだとアレですので……。
patchはGNUの物だと思いますので、cygwinをインストールするか単体で動くものを入手してください。
http://www.google.co.jp/search?hl=ja&ie=Shift_JIS&q=win32+patch+&lr=lang_ja
0536デフォルトの名無しさんNGNG
>>523
> 入手きるサイトも教えてください。
http://www.borland.com/
0537でもどり初心者 ◆KcG2I.hg NGNG
514です。
>>515のアドバイスで、だいぶ完成に近づいたんですが、
３回ぐらい、最小化と最大化で手前に表示を繰り返すと、
それ以上、反応しなくなってしまいます。

なにか、解決策に心当たりあればよろしくおねがいします。

ソースは↓フォームのWMHotKeyイベントです。ほかは。>>515のリンク先のサンプルそのまま。

if Msg.HotKey = id_SnapShot then
begin
if WinFlg then
begin
SetWindowPos(Application.Handle, HWND_NOTOPMOST, 0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);
Application.Minimize;
WinFlg:=False;
end
else
begin
Form1.WindowState:=wsMinimized;
Form1.WindowState:=wsNormal;
SetWindowPos(Application.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);
WinFlg:=True;
end;
0538デフォルトの名無しさんNGNG
>>537
> >>515のアドバイスで、だいぶ完成に近づいたんですが、
> ３回ぐらい、最小化と最大化で手前に表示を繰り返すと、
> それ以上、反応しなくなってしまいます。

その動作を3回未満しか行えないようにすれば解決ではないか？
0539デフォルトの名無しさん NGNG
TComboBoxのスタイルをドロップダウンリストに設定。
Itemsプロパティに
算数
社会
国語　　　　　のように設定した時、
ComboBox1.Text := '国語';のような感じで文字列で選択中のアイテムを
変更したいのですが、どうすれば出来るのでしょうか?
0540デフォルトの名無しさんNGNG
>>539
うろ覚えだけど、ドロップダウンリストの時はTextプロパティを設定できなかったような。
つーことは、

var
　iIndex : Integer;
　sString : String;
begin
　sString := '国語';
　ComboBox1.ItemIndex := 0;　　　　//念のため

　For iIndex:=0 To ComboBox1.Items.Count begin
　　if(sString=ComboBox1.Items[iIndex]) then begin
　　　ComboBox1.ItemIndex := iIndex;
　　　Break;
　　end;
　end;
end;

こんな感じか？
0541539NGNG
>>540
なるほど！ItemIndexをうまく使えば似たようなことが出来るんですね。
やってみます。ありがとうございました。
0542デフォルトの名無しさんNGNG
bitmapの処理をしてると
スタートボタンの色が変わるんですが・・・
なにが原因でしょう？
0543デルファイの名無しさんNGNG
>>540
検索はIndexOfで一発ですよ、とすいませんが横槍。
0544540NGNG
>>543
そんな便利なもんがあったとは・・・（鬱
ﾔﾊﾟｰﾘきちんとプロパティだのメソッドだの調べておかないとダメっすね。




実は今日初めてTActionListってもんを経験したし。
0545デフォルトの名無しさんNGNG
便乗質問。
TStrings.IndexOfメソッドのヘルプによると

> IndexOf メソッドを呼び出すと，文字列 S の最初に見つかった位置，または
> 大文字小文字が S と異なるだけの文字列の最初に見つかった位置を取得できます。

とあるのですが、完全一致のみを探す時には使えないのでしょうか？
またその場合、代わりになるメソッドはありますか？
0546デフォルトの名無しさんNGNG
>>545
TStringList.CaseSensitive
6で追加されたんだったかな……
0547デフォルトの名無しさんNGNG
>>546
ありがとうございます。TStringListを使わないとダメなんですね。
TSringsにもCaseSensitiveあればいいのに。。。
0548デフォルトの名無しさんNGNG
これじゃだめかい？

CompareStr
0549デフォルトの名無しさんNGNG
>>547 Tstringlistでキャストしてやれば使えないかな・・・
0550デフォルトの名無しさんNGNG
TStringGridについて質問です。
文字列を設定した後、ボタンクリックなどのイベントで
TStringGridの内容をクリアしたいのですが、どうやればいいのでしょうか？
0551デフォルトの名無しさんNGNG
>>550
for　ループで回す。
0552デフォルトの名無しさんNGNG
>>550
StringGrid1.Free;
StringGrid1 := TStringGrid.Create;
0553デフォルトの名無しさんNGNG
with StringGrid1 do
　for I := 0 to RowCount - 1 do
　　Rows[I].Clear;
0554デフォルトの名無しさんNGNG
フォームのサイズを変更させないようにするには、どうすれば？( ´ー｀)y-~~
0555デフォルトの名無しさんNGNG
やっぱDel厨って馬鹿だな
0556デフォルトの名無しさんNGNG
>>555
謝罪する。>>554は確かにアホだ。
0557デフォルトの名無しさんNGNG
>>556
うむ。自覚してれば問題なし。Del厨馬鹿決定。
0558デフォルトの名無しさんNGNG
>>554
なんかマジレスしにくい雰囲気だな。
釣られてる、俺？
0559デフォルトの名無しさんNGNG
>>558
きっと大丈夫。マジレスしてやれ。
0560デフォルトの名無しさんNGNG
>>558
マニュアルなりヘルプなりを読ませるのが親心だと思うが・・・。
0561デフォルトの名無しさんNGNG
Delphi-MLから内容の同じメールが死ぬほど届くけど俺だけ？
0562デフォルトの名無しさんNGNG
折れもだ、しかもvine-usersってＭＬでも同じ現象出てるような・・・・。
ヘッダー見たら
Received: from pal.tok2.com (pal.hotcake.ne.jp [219.101.135.23])
が全てに共通してある、ここが悪い？
0563デフォルトの名無しさんNGNG
うちには同じメールは来てませんが？
0564デフォルトの名無しさんNGNG
>>563
嫌われてるんだよ。
0565でもどり初心者 ◆KcG2I.hg NGNG
>>537
ﾏｼﾞﾚｽｷﾎﾞﾝ（ ´Д⊂ヽ
0566デフォルトの名無しさんNGNG
どーやら、hotcake.ne.jp が悪いらしいな、
しかし、hotcake.ne.jpトロすぎないかな？
こんなに長時間トラブルの状態を維持するなんて、
スキルないなら辞めて欲しいよ。
全ＭＬで発生してるトラフィックは膨大だ。
0567デフォルトの名無しさんNGNG
Del厨必死だな（藁
0568デフォルトの名無しさんNGNG
D e l 厨 必 死 だ な （藁
0569デフォルトの名無しさんNGNG
D　e　l　厨　必　死　だ　な　（藁
0570デフォルトの名無しさんNGNG
D e l 厨 必 死 だ な （藁

0571デフォルトの名無しさんNGNG
Ｏｚａｗａ＠ＭＭＣって誰？
0572デフォルトの名無しさんNGNG
Delphiで作ったソフトって、
タスクバーでそのソフトを右クリックしたら

・元のサイズに戻す
・最小化
・閉じる

しかでないの？

これだと、せっかくC言語で作ったって自慢しても、
簡単なDelphiで作ったってすぐバレちゃうじゃん！！

俺がいま２ちゃんねるブラウザとして使ってる
『ホットゾヌ』もDelphiで作ってるみたいだな
0573デフォルトの名無しさんNGNG
>>572
心配するな。C++Builderも同じ仕様だ。
0574デフォルトの名無しさんNGNG
>>573
マジですか！！！
0575デフォルトの名無しさんNGNG
>>573
その仕様を無理やり変更！！
なんかは、できないのかな？
できるなら、おじさんに教えてくれないか？( ´ー｀)y-~~
0576デフォルトの名無しさんNGNG
>>575
出来るけど？検索すれば引っかかる。
0577デフォルトの名無しさんNGNG
>>572
そのことを知らない、シロートにだけ配布すれば、あなたは神様です（　´∀｀）
0578デフォルトの名無しさんNGNG
>>576
お願いです、この場で教えてくださいm(_ _)m
0579デフォルトの名無しさんNGNG
>>578
死ね。
0580デフォルトの名無しさんNGNG
>>579
貴様が氏ね
0581デフォルトの名無しさんNGNG
>>572
JaneだってDelphiで作られてるけど、他のメニュー項目も出てますよ～
0582デフォルトの名無しさんNGNG
＞簡単なDelphiで作ったってすぐバレちゃうじゃん！！

あのさ、そのソフトで何が出来るかは大事だろうけどさ、
何で作ったかなんてのに何の価値があるの？
0583デフォルトの名無しさんNGNG
>>581
そりゃ付け加えているから出るんだろ
0584デフォルトの名無しさんNGNG
>>582
VB厨にはあるようです。煽りのネタになるから。
0585デフォルトの名無しさんNGNG
http://www.users.gr.jp/ml/archive/delphi/51476.asp
0586デフォルトの名無しさんNGNG
>>572
標準的な方法はないけどWin32API叩けば何とかなるよ
ついでにコンポーネントもある
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=utf8&oe=utf8&q=Delphi+%E3%82%B3%E3%83%B3%E3%83%9D%E3%83%BC%E3%83%8D%E3%83%B3%E3%83%88%E3%80%80%E3%82%B7%E3%82%B9%E3%83%86%E3%83%A0%E3%83%A1%E3%83%8B%E3%83%A5%E3%83%BC
0587デフォルトの名無しさんNGNG
>>584
同意。ランタイムいる時点でクソソフト扱い。
まぁ、クソソフト率もそれ相応に高いが。
0588デフォルトの名無しさんNGNG
たとえどんなにVBが便利なものであろうとも、人に見られるところには使いたくない。
自分で使うにしても、VBスクリプトしか書く気ないし。
0589デフォルトの名無しさんNGNG
>>587 ランタイムも少しならいいんだけどね、
　実行ファイルと同じディレクトリなら許せるけど
　WinXX\system32 とかにコピーされても困るんだよなあ
0590デフォルトの名無しさんNGNG
やっぱり同じ理由で.NETも駄目ですか？＞ランタイム嫌いの皆様
0591デフォルトの名無しさんNGNG
>572
Delphi が簡単なんじゃなくて、ライブラリが優れてるから
簡単に扱えるってるって事に気が付かないのか？
C だって、ライブラリを上手く使えばスゲー簡単なのに・・・。





あ、チンコたってきちゃった(*´Д｀)ﾊｧﾊｧ
0592デフォルトの名無しさんNGNG
使いやすいライブラリを作りづらいのが非OOPLの悲しさ。
0593デフォルトの名無しさんNGNG
確かに・・・。
0594デフォルトの名無しさんNGNG
> やっぱり同じ理由で.NETも駄目ですか？＞ランタイム嫌いの皆様

ランタイム好きのひといるのか？

圧縮ファイルの形でさえ２０Mbのランタイムで、exe が ８kｂというのは
なんかヘンじゃない？ まぁ、いいけど
0595デフォルトの名無しさんNGNG
ランタイムライブラリuser32.dll, kernel32.dllに依存してるDelphiって糞だよな。
0596デフォルトの名無しさんNGNG
>>595

アフォですか？
0597デフォルトの名無しさんNGNG
Windowsに(以下略
PCに(以下略
0598デフォルトの名無しさんNGNG
電力に（以下略
0599デフォルトの名無しさんNGNG
>>572
Borland C++Builderはいかがでしょう？
￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧ ﾆﾔﾆﾔ
　（　・∀・）
　（　　　　） 　Professionalは68,000ﾀﾞ
　｜　某｜ 　 ﾔｽｲﾀﾞﾛ
　（＿_）＿）
0600デフォルトの名無しさんNGNG
>>565
何がしたいのかよく分からないのだけどこういう事？
  if Msg.HotKey = id_SnapShot then
  begin
    if GetActiveWindow=Form1.Handle then
    begin
      Application.Minimize;
    end else begin
      Application.Restore;
      Form1.SetFocus;
    end;
  end;
0601でもどり初心者 ◆KcG2I.hg NGNG
>>600
ありがとうございます。

通常画面に戻す時にWindowStateを使わずに、
Application.Restoreを使ったらうまくいきますた。

WindowStateプロパティ使いにくいなぁ…。
0602デフォルトの名無しさんNGNG
ListViewにて質問です。
フォントサイズを小さくすると行間も詰まってしまい
見辛くなってしまいますが、行間を広くすれば、やや見やすく成ると
思うい色々と調査しましたが、その方法が見当たりません、
そもそもListViewの行間を広げる方法はあるのでしょうか？
あれば、その方法を教えて下さい。
(StringGridを使った方が良いのかもしれないなぁ・・・）
0603デフォルトの名無しさんNGNG
>>602
TImageListを関連づけてそのイメージリストのHeightをでっかくする
0604602NGNG
>>603　なるほど！　思いつきもしませんでした、有難うございました。
0605デフォルトの名無しさんNGNG
ボタンを押してる間だけカーソルを変えたいんですが、
procedure TForm1.Button1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
　Button1.Cursor := crCross;
end;

procedure TForm1.Button1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
　Button1.Cursor := crDefault;
end;

だとうまくいきません。どうすればいいですか？
0606デフォルトの名無しさんNGNG
Screen.Cursorじゃね？
0607デフォルトの名無しさんNGNG
>>605
ApplicationEventsをフォームに貼り付けてOnMessageに
case Msg.message of
WM_LBUTTONDOWN: Button1.Cursor:=crHandPoint;
WM_LBUTTONUP: Button1.Cursor:=crDefault;
end;
と書くとか。
0608605NGNG
>>606様607様できますた！ありがとうですた！！
　∧＿∧
（　;´∀｀） ちんこも勃ってきますた。
人　Y　/
(　ヽ し
（＿）＿）
0609デフォルトの名無しさんNGNG
>>605
http://www.borland.co.jp/qanda/delphi/d0000001.html
0610デフォルトの名無しさんNGNG
>>609
それ関係なくないですか？
0611デフォルトの名無しさんNGNG
>>610
は？できますが何か。

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then ReleaseCapture;
Button1.Cursor := crCross;
SetCapture( Button1.Handle );
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.Cursor := crDefault;
end;
0612デフォルトの名無しさんNGNG
TListBox(vsList状態)のヘッダ部分に、並び替えの状態を表示するために
TCustomListBoxのPaintメソッドをオーバーライドして、ヘッダのある場所に三角形を描画しているのだが、

リストボックス部分の再描画しなければならない状態になると、ちゃんとPaintメソッドが呼び出されるのだが、
ヘッダーの部分だけのみの再描画要求だと、Paintメソッドが呼び出されない。どうすればいいんだ？
0613デフォルトの名無しさんNGNG
Labelプロパティを追加して状態をそのラベルに表示する。
0614デフォルトの名無しさんNGNG
TListBox? TListView じゃなくて？
0615デフォルトの名無しさんNGNG
Janeを改造したくてdelphiを覚えようかと思ってるのですが
３０００円ぐらいでおすすめのdelphi入門書ありますか？

プログラミング経験はCとPHPをかじったぐらいで
RADを使うのは初めてです
0616デフォルトの名無しさんNGNG
>>615
俺もそういう質問しようと思って、この板のDelphi関連の過去ログを
読んだことあるんだけど、やはり大きめの書店行って、自分で選べってさ。
近くの本屋は全部当たったけど一つもDelphiの本はなかった。
田舎なもんで大きな書店に行くにはかなり遠出だから、amazonで済まそうかと考え中。
0617デフォルトの名無しさんNGNG
>>615
せめてVBの経験があれば、独学でいけると思うけど・・・
俺はBCBから入ったんで、Delphiは書籍買わないで覚えた。ｽﾏｿ。　
0618デフォルトの名無しさんNGNG
>>617
そうですね。VBの経験があれば、あとはOOの勉強とリファレンス一冊買っとけば
いいんですけどね。それがないなら、まぁ適当な一冊を・・・としかいえない。
ついでに、一般の書店にも置いてあるDelphi入門書って言えば1冊しかないような。
あの本ならちょくちょく見かけますけどね。中は見たことありませんが。
0619デフォルトの名無しさんNGNG
ヤフオクででも D1 を手に入れて（D3かD4くらいまでには付いてた筈)
このD1のコーチ動かして覚えたら？
0620デフォルトの名無しさんNGNG
>>618
Delphiは詳細なヘルプが付属しているから、リファレンスはそれで十分。
あとはTutorialでRADの使い方をマスターして、オブジェクト指向は体で覚える。
0621デフォルトの名無しさんNGNG
>>620
ヘルプねー。
あれ読んで理解できる頭のいい人はいいんだろうけど、リファのほうが詳しく載ってるんだよね。
そこは各人のレベルに合わせて、と。
0622デフォルトの名無しさんNGNG
>>620
＞オブジェクト指向は体で覚える。
それはいくらなんでも無理ですぅ～
どうやって体で分析設計技法を覚えられるんですか？
力ずくでやるならCやVBの方が向いてるし。
0623デフォルトの名無しさんNGNG
Janeのソース読んで改造するくらいなら、なんとかなるんじゃない？
一から設計するのとは訳が違うし。
0624便乗質問NGNG
>620
ヘルプで十分ってのには禿同なんだけど、*.hlp 形式って使いづらい・・・。

そこでなんだけど、*.hlp 形式のファイルを *.html にコンバートしてくれる無料
のツールってないでしょうか？または、コンバート済みのファイル・・・。
自分で探してみたんだけど、有料しかないみたでいやーん。

0625デフォルトの名無しさんNGNG
あはーん。
0626デフォルトの名無しさんNGNG
DelphianWorldで検索ができないのは俺だけですか？
「キーワードを入力して下さい。 」とだけでて、検索不能でやんの
0627デフォルトの名無しさんNGNG
>>624
F1で検索できなくなるよ？
0628デフォルトの名無しさんNGNG
>627
別に元の *.hlp を消したいわけではないくて
それとは別に、html 化したファイルがほしいの。
（もし、消さないと手に入らないのなら *.hlp 消してもかまわないけど）

漏れが *.hlp が嫌いなのは、ヘルプの開かれたページ内で
Ctrl+F が出来ないのが嫌。できる方法ってあるのかな？
0629デフォルトの名無しさんNGNG
俺もhlp形式が好きじゃないなあ。
何かいいツールないかな。
0630デフォルトの名無しさんNGNG
マウスのホイールが効かないのと、スクロールバーを動かしている間はスクロールしないのが嫌。
できる方法ってあるのかな？
0631デフォルトの名無しさんNGNG
>638
名前はアレだけど、それはこれでいけるよ。

どこでもほいーるん
ttp://0ban.com/araken/qdoko.htm
0632デフォルトの名無しさんNGNG
>>630
ヘルプクライアント自作しる！
0633デフォルトの名無しさんNGNG
ヘルプシステムはGalileoで一新されるよ
0634Delフサギコ ◆VzDeLphI NGNG
　ミ,,ﾟДﾟ彡俺はBCB製のこっちつかてます
WheelActive
http://k-ta.lowtech.ne.jp/win_program.html
0635デフォルトの名無しさんNGNG
>>633
Galileoとは何そ？
0636デフォルトの名無しさんNGNG
>>635
http://www.google.co.jp/search?num=100&hl=ja&inlang=ja&ie=Shift_JIS&q=Galileo+delphi&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
0637615NGNG
日系ソフトウェア編
カンタン！　Delphiプログラミング
っていうのかいました
なかなかよさそうです。
0638デフォルトの名無しさんNGNG
>>637
カンタンなのは、簡単なことしか書いてないからっていう理由。
0639デフォルトの名無しさんNGNG
>>638
まぁ、入門だし。
0640デフォルトの名無しさんNGNG
入門としてはいい方だ
0641デフォルトの名無しさんNGNG
ボタンを押したときに、OutlookExpressの新規メールが立ち上がって、
送信先のメールアドレスと、複数の添え付けファイルが既に格納
されてて、あとは本文を打つだけって状態にするにはどうすればいいですか？
0642デフォルトの名無しさんNGNG
>>641
ttp://member.nifty.ne.jp/m-and-i/tips/sendmail.htm
0643デフォルトの名無しさんNGNG
>>642
ｱﾘｶﾞ㌧ございます。
0644615NGNG
カンタンにしか書いてないから
理解するのがむずかしい・・
もっと詳しく書いてほしかったな・・
0645デフォルトの名無しさんNGNG
もっと詳しくってのはアレだな
コピペすれば動くようにってことだよな
0646デフォルトの名無しさんNGNG
あれで難しいって感じるのなら他のどの本でも難しいんじゃないか？
0647デフォルトの名無しさんNGNG
DBGridについて質問したいのですが。
行の高さを変える方法を教えていただけませんか？
あとDBGridのDefaultRowHeightって設定できるのでしょうか？
それができれば、行の高さを変える必要はないのですが…
0648デフォルトの名無しさんNGNG
いいかげん.dskは相対パスで記録するようにならんのですか？
それとも何か弊害があるのでしょうか
0649デフォルトの教えて君NGNG
時間のかかるquery投げて待っているときに
フォームが真っ白になってしまうんですが。
これって合間合間にform updateとかする以外に
対処ないのでしょうか。
0650デフォルトの名無しさんNGNG
query を別スレッドから投げれ
0651hookNGNG
D5+WinMEです。
DLLの中で
var
Hook: HHOOK;

function KeyHookProc(nCode: Integer; wp: WPARAM; lp: LPARAM): LResult;stdcall;
begin
Result:=0;
if nCode<0 then
Result:=CallNextHookEx(Hook, nCode, wp, lp)
else
//処理
end;

function SetHook(Wnd: THandle): Boolean;
begin
Result:=True;
Hook:=SetWindowsHookEx(WH_KEYBOARD, KeyHookProc, hInstance, 0);
if Hook=0 then Result:=False;
end;

function FreeHook: Boolean;
begin
Result:=True;
if not UnhookWindowsHookEx(Hook) then Result:=False;
end;
とし、exe側から静的リンクで呼び出してもグローバルフックとならず、呼び出したウィンドウの上で
のみ反応するローカルフックとなってしまいます。このコードにどこか間違いがあるのでしょうか。
0652デフォルトの名無しさんNGNG
>651
やっと事ないから分からないけど、たぶんこの辺参照で解決の予感
http://www2.biglobe.ne.jp/~sakai/usehook.htm#ShareMem
0653652NGNG
訂正
×やっと事
○やった事
0654651NGNG
できました！感謝感激ｱﾒｱﾗﾚ
龠 λλλλλλ...
0655デフォルトの名無しさんNGNG
>>650
＞ローカルデータベースへのアクセスにおいては、
＞マルチスレッドの使用は逆効果だということです。
というのはどういう意味なんでしょうか。

0656デフォルトの名無しさんNGNG
コンポーネント(?)
をダブルクリックすると自動的に生成されるコードありますよね？
（procedure TForm1.~~~ begin~~~end;)というやつ
あれを削除した後でもう一度同じコンポーネントをダブルクリックすると
エラーがでてコードが生成されないのですが
これはどうしてなんでしょうか。
0657デフォルトの名無しさんNGNG
具体的なエラーは
メソッド～～が見つかりませんというものです
0658デフォルトの名無しさんNGNG
delphiつかってみたけど
エディターの機能が貧弱すぎ
操作性が悪くて
いやになる
Undoぐらいちゃんとつけれ
ってかんじだ
0659デフォルトの名無しさんNGNG
>>655
日本語は文脈で理解しなさい。
0660ANGNG
>>656
そのエラー名のとおり。
オブジェクトインスペクタで、そのコンポーネントのイベントに関連付けられてるメソッドを
削除してしまったので、「メソッドが見つからない」と言われてる。

オブジェクトインスペクタのイベントタブで、そのメソッドを呼んでるイベントの欄を
全て空白にすれば、OK。

というより、そもそもメソッドを消したいときには、
begin ～ end　の間だけを、全部消せば、あとはIDEが全部やってくれる。
0661デフォルトの名無しさんNGNG
レスどもっす
いわれたとおりにやってみたのですが
やっぱし同じエラーがでちゃいます・・
0662デフォルトの名無しさんNGNG
あ
typeのところにかかれている宣言を消したら
うまくいきました
うーん
わけがわからない・・
0663デフォルトの名無しさんNGNG
>>659
というか、一般的にSQLは別スレで投げるのが一般的
なんでしょうか。逆効果の理由というか衝撃的な
結果があるのか知りたいんです。
0664デフォルトの名無しさんNGNG
つまり
procedure TForm1.Button1Click(Sender: TObject);
(変数宣言)
begin
(処理)
end;
とあったら、変数宣言と処理だけを消しておくとコンパイルやユニット保存時に
自動的に消してくれるワケです。
0665デフォルトの名無しさんNGNG
>　エディターの機能が貧弱すぎ

そうですか。
ユーザの能力が貧弱すぎ、が原因です。
0666デフォルトの名無しさんNGNG
>>665
いや、エディタは確かに貧弱だろ。
慣れてるからあまり気にならないけど。
0667Delフサギコ ◆VzDeLphI NGNG

　　　　　「貧弱貧弱ウィリリリリリー」
　 ∧,,∧　ってのを思いだ素股した
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］).
～ﾐ　　ﾐ 　　さながらMSは無敵のThe World
　 Ｕ''Ｕ 　　　ってとこかしら。
　　　　　　　勝てる見込み庵野っすか？>>某ﾀﾝ
0668デフォルトの名無しさんNGNG
> いや、エディタは確かに貧弱だろ。

何と比較して、どのように貧弱ですか。
0669デフォルトの名無しさんNGNG
>>668
>>666じゃないけど
範囲選択して空白インデントとタブインデント（その逆も）とか
コンパイルしてもしなくても関係無しに無制限でアンドゥ・リドゥとかは
ちょっとほしいな。
0670デフォルトの名無しさんNGNG
コンパイルしたら
アンドゥできないなんて
きついっす・・・
0671デフォルトの名無しさんNGNG
>>669
いつからできなくなったのか
0672デルファイの名無しさんNGNG
「保存後の取り消し」にチェックを入れてみるとか、
範囲を選択してCtrl+Shift+I(U)を押してみるとか
0673デフォルトの名無しさんNGNG
>>671-672
おあ！サンクス！
0674デフォルトの名無しさんNGNG
保存後の取り消しにチェック入れても
コンパイル後にはアンドゥできないよ
0675デフォルトの名無しさんNGNG
そうなのかよ！期待はずれsage
0676デフォルトの名無しさんNGNG
ウチのDelphi5はコンパイル後のアンドゥができるのだが気のせいか。
0677デフォルトの名無しさんNGNG
>>674
おかしいですね。
コンパイル・再構築・実行の３つともできますが？
ちなみにDel3/6しかないですが、Del3ではUndoがAlt+BkSpですた。
(Del6ではCtrl+Z)
0678デフォルトの名無しさんNGNG
コンパイルじゃなくて、実行したらじゃねーの？
これを確認してみそ。
設定 （ツール｜環境オプション）－［自動保存の設定］オプション － エディタファイル
0679デフォルトの名無しさんNGNG
あ、そうでした
実行したらっす
0680650NGNG
んーありゃ書き方が悪いよな。誤読するのも無理はない。
もしこれを読んでいたら直しておいてよ。＞某のひと

あの文章を言い換えると、

> クライアントサーバ環境では、
クライアントはクエリー発行中は単に結果を待っているだけなので
クエリーを複数発行する場合に
>マルチスレッドによって、複数のサーバへ同時にクエリーを発行する
ことによってユーザーに結果を返す時間を短縮する
>こともできます。
しかし
> ローカルデータベースへのアクセスにおいては、
発行したクエリーを処理するのは、クエリーを発行したマシンなので
性能向上などを目的で複数のクエリーを同時発行するのを目的に
> マルチスレッドの使うのは逆効果だということです。

で、以上を踏まえて649の質問に回答すると、
マルチスレッドを使う目的がクエリー発行中にフォームが固まるのを
防ぐため（一度に投げるクエリーは１つだけ）なら躊躇わず使ってよし。
ただスレッド一般の話として例外処理やスレッド処理中の終了要求とかは
ハマりがちなので気をつけて書こうな。
0681デフォルトの教えて君NGNG
>>680　わ～い。
ありがとうさんです。すっきりしました。
出所までまで推測して調べてくれたんですね。
感謝感激です。（Ｔ＿Ｔ）.
0682デフォルトの名無しさんNGNG
エディタへの不満は、だいたい

>ユーザの能力が貧弱すぎ、が原因です。

に賛成。
0683デフォルトの名無しさんNGNG
>>680
どの文書のことを言っているんだろう....
0684デフォルトの名無しさんNGNG
>>679
Del6 Pro + GExpertsの環境だができるぞ。

まさか
・環境オプションの［自動保存の設定］オプションで「エディタファイル」にチェックが入っていて、
・エディタオプションの「エディタ設定」で「保存後の取り消し」にチェックが入っていない、
というオチじゃないよな。

0685684NGNG
ま、正直な話、vim使ってた俺から言わせるとほとんどのIDEのエディタ(VCすら)
は貧弱だがな。
0686デフォルトの名無しさんNGNG
>>685

Vim isn't an editor designed to hold its users' hands.
It is a tool, the use of which must be learned.

どんなスグレモノでもその使い方を知らないと
0687デフォルトの名無しさんNGNG
IDEが無きゃコード書けない馬鹿でないなら、
エディタが貧弱なら、その貧弱でない好きなエディタ使えばいいのにと

いう結論から、エディタが貧弱だから・・という奴はIDEが無きゃコード書けない奴なんだろ？
0688デフォルトの名無しさんNGNG
>>687
自分で、何を言っているかわかっていますか？
0689デフォルトの名無しさんNGNG
正体不明の構造体は入力支援でレコードを見る。
0690679NGNG
>>684
そういうオチじゃないです
0691679NGNG
あと
マウスクリックした位置から入力は始まるのも
こまっちゃうよなー
ctrl+←の動作も統一されてないしさ
0692デフォルトの名無しさんNGNG
VSSをDelphiIDEから使いたいよ。
0693デフォルトの名無しさんNGNG
>>692
もちろん使えるけど。５秒くらい検索すれば。
しかしVSS、CVSなんて標準で対応すりゃいいのに。
0694デフォルトの名無しさんNGNG
>>693
その脳内理論を普遍なモノとして語る癖やめないと友達いなくなるよ？(ﾜﾗ;
0695デフォルトの名無しさんNGNG
今時「脳内」なんて言葉を使っているーっ!
0696650NGNG
>>683
某のDelphi TipsのTThreadの文章のことだよ。
ttp://www.borland.co.jp/tips/delphi/dh004/thread_1.html
0697デフォルトの名無しさんNGNG
質問でつ。
Linux への移植を睨んで CLX で作ってるのですけど、
biHelp=true にしたときの [?] ボタンで出すヘルプ、どうやったら出せるんでしょう。
F1 押したときはちゃんと OnHelp に飛んでくるのですけど・・・
Qt の方を調べてみると QWidget::customWhatsThis をオーバーライドするのかなぁ？
でも CLX だとどーすれば？？
0698デフォルトの名無しさんNGNG
>>696
.. 連絡してやれよ。それくらい。
0699デフォルトの名無しさんNGNG
うーん。WinHelp を起動するのは難しそう。
QT 独自の PopUp Windows を出すのはできたが。
0700デフォルトの名無しさんNGNG
>>699
あ、それでいい、それでいい。WinHelpなんか要らん。どやるの？？？
0701デフォルトの名無しさんNGNG
テストのみ。手でコピーしてるんで、適当に補ってくれ

var
w : WideString;

w := 'ヒント';
QWhatsThis_add( Button1.Handle, w);

これで？カーソルで Button1をクリックすると「これはなに」ウィンドウが開く。


0702697NGNG
おおっ、出た！やたーっ！素晴らしい。
701 さん、ありがとう！感謝！
0703デフォルトの名無しさんNGNG
よかった。
Delphi を今後もよろしくね！
0704デフォルトの名無しさんNGNG
>>691
それはフリーカーソルという立派な機能ですよ。
邪魔ならコレ使うよろし。
http://homepage1.nifty.com/fuu/software/nonfreecursor.htm
0705デフォルトの名無しさんNGNG
>>693
えーっと、１時間くらい探したのですがDelphi3用以外は見つかりませんでした。
Delphi6用を探しています。
0706デフォルトの名無しさんNGNG
TThreadについて分からない部分があります。
TThreadクラスのFreeOnTerminateのヘルプには、、

＞スレッドの実行終了後にスレッドを明示的に破棄したくない場合は、
＞FreeOnTerminate プロパティを True に設定します。

って書いてあるのに、、

＞FreeOnTerminate プロパティが False の場合，スレッドオブジェクトは
＞アプリケーションコードによって明示的に破棄されなければなりません。

ってなっています。
Trueの場合→勝手に破棄されない（ってことは自分で破棄）
Falseの場合→アプリが明示的に破棄（ってことは自分で破棄）
なので、どっちも自分で破棄しなければいけないの？？
プロパティ名からすると、前者の説明が間違っているように感じるけど。。
0707706NGNG
勘違いしてた。
＞スレッドの実行終了後にスレッドを明示的に破棄したくない場合は、
＞FreeOnTerminate プロパティを True に設定します。
これは、自分で破棄したくない場合はTrueにしろ！ってことだったのね。。。
スレ汚しｺﾞﾒｿ
0708デフォルトの名無しさんNGNG
> マウスクリックした位置から入力は始まるのも
> こまっちゃうよなー
意味がわからない。
クリックした別の行から入力が始まるのがよいとか？
0709デフォルトの名無しさんNGNG
>>708
自由にキャレットが移動するのではなくて、
行端以降をクリックしたら自動的に行端にキャレットが戻る方がいいと言いたいのでは？
私はフリーキャレットの方がいいな。コメント付けやすいし
0710デフォルトの名無しさんNGNG
そうなのか。俺もフリーカーソル派なのでわからなかった
0711Delフサギコ ◆VzDeLphI NGNG

　　 ∧,,∧　　　 ／
　　ミ,,ﾟДﾟ彡　＜　とりあえず。
　　 ﾐつ　つ 　　＼
　＠ﾐ　　ﾐ 　　　　　
　　 ∪''∪　　　　　
Delphi/BCBフリーカーソル無効化アドイン
http://homepage1.nifty.com/fuu/
0712デフォルトの名無しさんNGNG
相談室でやるか。
0713デフォルトの名無しさんNGNG
>port 番号からアプリケーションの割り出し

iphlpapi.dll を使います。Windows98 以降ならインストールされています。
0714デフォルトの名無しさんNGNG
げ。XP 以降の隠しファンクションでしかできねぇや。
ｳﾂﾀﾞｼﾉｳ
0715デフォルトの名無しさんNGNG
>>668
別に何と比較というわけでもなく
上方向への検索
キーボードマクロのファイルへの保存
文字コードの表示
カーソル行アンダーライン
この4つは欲しい。
0716デフォルトの名無しさんNGNG
> 上方向への検索
確かに、ダイアログでいちいち切り替えるの面倒くさい

> キーボードマクロのファイルへの保存
そう、保存できないからちょっとした中断ができないんだよな。
「しおり」も保存してほすぃ。

> 文字コードの表示
何かわからないが、GExpertsのASCIIコード表示ではだめか？


「しおり」の保存って、Delphi3くらいのときから待ってるんだけど未だにつかない。
もしかして、誰も使ってない？
0717デフォルトの名無しさんNGNG
>>716
もしかして、ここに書いておくと何か幸運が落ちてくるとか... 願っている？
0718Delフサギコ ◆VzDeLphI NGNG
>>715-716ほとんど同意
　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　,,,,,,,,,,,,,∧,,∧　　 ／関係なくシツモソ
～′,,,,,,,ミ,,ﾟДﾟ彡＜　　ｳｨﾙｽチェックｿﾌﾄ花王かと思うのでしが
　 UU""" U U　　　＼　Delphiとかと、相性のよいウィルスチェックｿﾌﾄって
　　　　　　　　　　　　　　　　　何があるでしょうか。
　　　なんか、いつもMLで
　　　ｳｨﾙｽチェック切れとか出てルシ、何を刈ったらましなのかと...
0719デフォルトの名無しさんNGNG
>>718
ノートンなんかでいいんじゃないの？
なにかソフトをインストールするときとか以外は止めたことないけど
別に不具合ないよ。
VS.NETｲﾝｽｺするときに、ノートン切るの忘れてたらVSがウィルスだとか言われて
笑ったけど。
0720 ◆xDd9P2XM NGNG
Norton, Mcafee, VirusBuster 三種類使っていますが、
どの環境でも問題ありません。

そりゃ、やたら古いのを使っていたら何が起きるかわからないけどね。
0721Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　,,,,,,,,,,,,,∧,,∧　　 ／サンクｓコ
～′,,,,,,,ミ,,ﾟДﾟ彡＜　　
　 UU""" U U　　　＼　
　　　　　　　　　　　　　　
0722デフォルトの名無しさんNGNG
どなたかお願いします。
ListBoxに異なるフォントで表示させたいのですが、

ListBox.Font.Name := 'ＭＳ ゴシック';
ListBox.Items.Add('Delphi');
ListBox.Font.Name := 'ＭＳ 明朝';
ListBox.Items.Add('相談室');

こうすると、後のＭＳ 明朝で表示されてしまいます。
どうすればいいのでしょうか？
0723デフォルトの名無しさんNGNG
オーナードロー
0724ML信者NGNG
本気でレスしていいものか分からんが…
MLで質問してOK！
いいレスかえしますよ。
0725デフォルトの名無しさんNGNG
>>724
ここでレス白よボケ
0726デフォルトの名無しさんNGNG
自動では無理。
>>723の言う通りオーナードロー（Styleプロパティ）を使用して。
OnDrawItemイベントで書きまくります。
後は自分で調べてちょ。ヘルプ見るなり。
他の人のコンポーネント（ソース付）をダウンロードするなりしてね。
0727デフォルトの名無しさんNGNG
↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑

これが　本　気　で　レ　ス　ですか？
0728デフォルトの名無しさんNGNG
>>722
　Windowsの作法ではデータ作成と描画は別となっています
　Items.Addは複数のデータを書いているのですが、Fontは一つしかありませんから
　別のタイミングでされる描画では最後のフォントでしか表示されないという事になります

>>723さんの言う通り、描画の時にフォントを一々変えて表示させてやる必要があります
0729デフォルトの名無しさんNGNG
>>727
何？コードでも書けって言うのか？
幼稚園児じゃあるまいし、このヒントで判らないようなら
プログラム書く資格なし。
0730ML信者NGNG
>>726
ワタシジャナイヨー

0731722NGNG
>>726
>>728
ありがとうございます。ヘルプ読んでやってみます。
0732ML信者NGNG
>>729
この程度のことを聞いてくるアフォです。
Button1.onClickイベント内に全ソース書かなきゃ理解できないよ。
0733723NGNG
俺は無視かよ・・・(´･ω･`)ｼｮﾎﾞｰﾝ
0734デフォルトの名無しさんNGNG
>>730さん、ごめんなさいね。
私がクソレスしちゃったばっかりに・・・
でも、何でもかんでも丁寧に教えちゃうと
自分で考える事をしなくなっちゃいますからね。
人のコードを追っかけるのも勉強です。
0735722NGNG
>>723
ごめんなさい最初に書いてくれたのですよね。
これこそOwnerDrawですね。
感謝してますよ。

>>727はﾃﾞﾑﾊﾟかと・・・
0736デフォルトの名無しさんNGNG
>>723さん、使ったこと無い人には
宇宙文字だったりします。オーナードローって・・・
0737デフォルトの名無しさん NGNG

オーナードロー　＝　オナニードロドロ　
0738デフォルトの名無しさんNGNG
（´-`）。o ○ （だからなんだってんだろう？>>737）
0739デフォルトの名無しさんNGNG
(´-`).｡ｏＯ(シッ!!見ちゃいけません!!）
0740デフォルトの名無しさんNGNG
(´-`).｡ｏＯ(>>737はあれがおもしろいと思ったわけだ）
0741デフォルトの名無しさんNGNG
>>722
簡単に・・・
procedure TForm1.ListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do begin
Brush.Style := bsSolid;
FillRect(Rect);

if (Index mod 2) = 0 then Font.Name := 'ＭＳ ゴシック'
else Font.Name := 'ＭＳ 明朝';

TextOut(Rect.Left + 5, Rect.Top + 8,
(Control as TListBox).Items[Index]);
end;
end;
0742　NGNG
パチンコで負けた腹いせにKylix3を
買おうと思うんですがどうでしょうか？
0743ななしへたぐらま ◆B18Bks.Y NGNG
>>734
該当者の予感．
質問者が理解できてかつある程度考える余地を与える回答というのは
なかなか難しいものですﾊｲ．
0744デフォルトの名無しさんNGNG
そんなリッチな君は、即買いなさい。
0745デフォルトの名無しさんNGNG
>>742
パチンコの景品にKylix3おいてもらえ
0746デフォルトの名無しさんNGNG
>>743
最近は言わなくなりましたが、習うより、慣れろです。
0747デフォルトの名無しさんNGNG
習うよりgoogle
0748デフォルトの名無しさんNGNG
> パチンコで負けた腹いせにKylix3を

コレクターですか。
ほかに何をお持ちですか。
Turbo C なんかありますか。
0749デフォルトの名無しさんNGNG
Quick Basic 持ってます。
0750デフォルトの名無しさんNGNG
「儲けすぎた仕事が1件あるんだけど、買い物ない？」と上司に言われたので
D7を購入することにしました。今年に入ってからD6を導入したというのに・・・。
0751デフォルトの名無しさんNGNG
>>747
本当に限界を感じたらね。

>>750
儲かるなんて良い事。
Delphi使う人が増えるの良い事。
どんどん増殖すべし。
0752デフォルトの名無しさんNGNG
今からDelphi6Personal始めます。
プログラミングさっぱりな僕におすすめの本はありますか？
0753デフォルトの名無しさんNGNG
>>752
少年ジャンプ
0754デフォルトの名無しさんNGNG
>>753
ﾜﾗﾀ
0755デフォルトの名無しさんNGNG
>>752
マジレス。
そんなもん、おめーじゃねーから判らねーよ。
自分の頭で理解できる本を、大きな本屋に行って物色してこい。
0756デフォルトの名無しさんNGNG
>>752
本屋で入門て書いてあるのを財布と相談して買えば？
そんなに迷うほどの種類はおいてないと思われ

0757752NGNG
Delphiやるとバカになるようなのでやめます。
0758デフォルトの名無しさんNGNG


━━━━━━━━━━━━ 終了 ━━━━━━━━━━━━


0759デフォルトの名無しさんNGNG
すぐにD8でると思うんだがなぁ…
0760デフォルトの名無しさんNGNG
>>759
いや，きっと遅れるだろう。。。
0761デフォルトの名無しさんNGNG
マターリと待ちましょう。
0762デフォルトの名無しさんNGNG
Delphi始めてみようと思うんですが書籍買うお金がありません
プログラミング超初心者にも分かりやすい解説のHPを紹介してください
0763デフォルトの名無しさんNGNG
チュートリアル嫁
0764デフォルトの名無しさんNGNG
>>763
割れ物なのでそんなもの付いてませんｗ
0765デフォルトの名無しさんNGNG
>>752
とりあえずこれオススメ。
http://www.amazon.co.jp/exec/obidos/ASIN/4822216888/250-7777795-2869864
プログラミングさっぱりなんだったら、
理解できなくてもこの本の半分くらいまではバシバシ書いていけ。

半分超えたら図書館で初心者向けのDelphi本借りれ。
それでPascalの基本学べ。
全て読まなくていい。
文字列操作とか基本的な型だけ理解できればいい。

んでこの本に戻ってきて、
せめてランチャーまでは作ってみれ。
そこまできたらあとはDelphianWorldとかAboutDelphiとかを回って
実践あるのみだ。

途中詰まることがあればココ
http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/index.htm

がんがれ！
0766デフォルトの名無しさんNGNG
>>764
只のもの割ってどうするよｗ
0767デフォルトの名無しさんNGNG
>>766
764はEnt版を持っているに違いない(w
0768デフォルトの名無しさんNGNG
>>767
そういえばNewsgroupに個人でEnt買いますとかって張り切ってるﾔｼいたな。
0769デフォルトの名無しさんNGNG
>>768
それってDelphiじやなくてJB7のEntじゃねえか。
しかもそいつ使いこなせて無くてDQNな質問繰りかえしてるよ。
見てらんない。
0770デフォルトの名無しさんNGNG
>>704
>>711
で、紹介されてるフリーカーソル無効化プラグインって、
マウスで行末以降をクリックしても、カーソルはクリックしたとこに表示するのね。
フリーカーソルじゃ無いエディタの標準的な動作だと思う、
「行末以降の空白をクリックしたらカーソルは行末に」
という動作じゃないのは仕様でつか？

って、ここまで書いて、
付属テキストにそんなことが実現されるとは一言も書いてないことに気付いた。
むー仕様なのか・・・。

Delphi 6 Personalで、ちゃんと
0771デフォルトの名無しさんNGNG
おいっ！どうした！？
0772デフォルトの名無しさんNGNG
>>768
URL教えて
0773デフォルトの名無しさんNGNG
Delphi7が出るって何だゴルァ！早すぎるぞ！！
0774デフォルトの名無しさんNGNG
>>773
でもバージョンアップするんでしょ？
好きなくせに･･･
0775デフォルトの名無しさんNGNG
俺はしないよ。だってVS.NET買っちゃったから。
0776デフォルトの名無しさんNGNG
製品版とは別に、１万くらいで　D6->D7のアップデート版も出してくれないかなあ・・・・
この頻度だと厳しいや
0777デフォルトの名無しさんNGNG
Ｄ５Ｐｒｏ→Ｄ７Ｐｒｏ
Ｄ６Ｐｒｏ→Ｄ７Ｐｒｏ
でバージョンアップする場合の金額差ってどれくらい？
0778デフォルトの名無しさんNGNG
本についてたDelphi 6 Personalって
7が出た今でも無料で登録できるんかな？
0779デフォルトの名無しさんNGNG
Delphi7の優待販売5万はちと高いじょ・
0780デフォルトの名無しさんNGNG
Delphi7のXPスタイルにかなり期待してます。
D5でXPスタイル適応すると文字列云々バグ三昧でしたからね。
0781デフォルトの名無しさんNGNG
http://page4.auctions.yahoo.co.jp/jp/auction/d20578281
これでDelphi買ってもバージョンアップ受けられる？
せめて優待販売でも
0782デフォルトの名無しさんNGNG
ユーザー登録できなきゃ意味なかろーもん。
0783デフォルトの名無しさんNGNG
>>778
今後が心配だよね。

おれはPro使っているからどうでもいいと言えばそうなんだけど、
もしもD6Personalがフリーじゃなかったら、あれほど多くの種類の２ｃｈブラウザ
が開発されることは無かったと思う。
0784てすたNGNG
　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　／￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜　うるせー馬鹿！
　　 ＼|　　　＼＿/　／　　＼＿＿＿＿
　　　　＼＿＿＿_／
0785778NGNG
>>783
というか実は該当ページが削除されてるですよ、、、
0786無料パソナラーラヴァーNGNG
「delphi6もう使っちゃダメ！delphi７買うて！」ってことになったら…。
困ると同時に暴動が…。
ってこともないか。
0787Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　,,,,,,,,,,,,,∧,,∧　　 ／該当って？
～′,,,,,,,ミ,,ﾟДﾟ彡＜　　
　 UU""" U U　　　＼D6ﾊﾟｿのダウソは継続中
　　　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
http://www.borland.co.jp/delphi/personal/
D7も無料ﾀﾞｳｿにしたらいいのに。
0788778NGNG
>>787
本当だ、、、
さっきアドレス直打ちしたときは出てこなかったと思ったけど打ち間違えたのか？
どうもお騒がせしてすみませんでした。
0789デフォルトの名無しさん NGNG
ImageListのimageの順番を変えたいです。
Imagelist.Insertで入れ替えはできたのですが、
何かいい方法はありますか？
0790デフォルトの名無しさんNGNG
>>789

もう一つつくって好きなように入れ替えたら
0791デフォルトの名無しさんNGNG
>>789
Moveというのがあるように見えるが
0792デフォルトの名無しさんNGNG
>>780
そんなバグあった？詳しく教えて。
0793789NGNG
>>791
サンクスコ。できたよ～。
0794デフォルトの名無しさんNGNG
>>792
ありまくり。
0795デフォルトの名無しさんNGNG
>>794 バグはXP側って事？　それに対応しろって事か・・・
0796デフォルトの名無しさんNGNG
Delphiのアプリを起動させた時に画面のちょうど真ん中に表示させるには、どうすればいい？

一言：
'Delphi'から'p'の字を抜くと'New Delhi'のデリー（Delhi）になるね
0797デフォルトの名無しさんNGNG
>>796
Positionプロパティ を poScreenCenter
0798デフォルトの名無しさんNGNG
>>797
サンクス
0799デフォルトの名無しさんNGNG
>>797
あと、あるボタンにフォーカスさせるにはどうすればいいですか？
0800デフォルトの名無しさんNGNG
ActiveControl
0801bloomNGNG

http://www.leverage.jp/bloom/start/
0802Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　 ／
　　　ミ,,ﾟДﾟ彡　＜ 　どっちでも。
　　　ﾐ　つ日　　　＼＿＿＿＿＿＿＿＿＿＿＿
　.＠ﾐ,,,,,,　,,ﾐ

procedure TForm1.Button1Click(Sender: TObject);
begin
　Button2.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
　ActiveControl := Button2;
end;
0803Delフサギコ ◆VzDeLphI NGNG
---------------------------
エラー
---------------------------
シンボルファイルの読み込みエラー
---------------------------
OK
---------------------------
　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　／しつもんでし．
　 _　ミ,,ﾟДﾟ彡_＜　こんな鰓(ｴﾗ)ダイアログがIDEで表示されるですが
.=| |＝U＝U=| |= ＼どしたらいいんでしょうか。
　| | .ﾐ　 　ﾐ　| |　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　| |ﾉ∪''∪.　| |
　| |　　　　　 | | プロジェクト読み込み時には
　　　　　　　　　いつもでるようなののん。です。

　　　　　　　　　なぜこんなエラーが出るのかを知りたいなと。
0804デフォルトの名無しさんNGNG
とりあえずシンボルの保存やめたら？アレ重くてウザイから。
0805デフォルトの名無しさんNGNG
>>803
OSとDelphiのバージョン癒え
あと、ネットワークとかマニアックに使ってない？
0806Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　／サンクスコ
　 _　ミ,,ﾟДﾟ彡_＜　とりあえずOFFにしました。
.=| |＝U＝U=| |= ＼
　| | .ﾐ　 　ﾐ　| |　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　| |ﾉ∪''∪.　| |
　| |　　　　　 | | シンボル情報って何のことかわからんですが。
　　　　　　　　　　キ　ニ　シ　ナ　ィ
0807デフォルトの名無しさんNGNG
>>792
詳しくは知らないけど…（弱気
文字コード仕様が一部変更されていたような気が汁。
TMemoの１文字の扱いもUnicode仕様になるので、カーソル位置情報などがずれます。
Delphi7はその辺のXP側の新仕様をどう緩和してくれるのか期待してます。
0808Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　／Win2kでD6Up2有りかな
　 _　ミ,,ﾟДﾟ彡_＜　　自宅と社宅で環境が違うので...
.=| |＝U＝U=| |= ＼
　| | .ﾐ　 　ﾐ　| |　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　| |ﾉ∪''∪.　| |
　| |　　　　　 | | でもコンパイルオプソのデフォルト
　　　　　　　　　を変更したら出なくなりますたようです。
0809デフォルトの名無しさんNGNG
>>803　よく判らないんだけど経験則
　バージョンの違うDelphiで開くいたあと良く出る
　pas/dfm/pro以外の不要ファイルを消したら次は出ない
　再構築したら次から出ない場合もあるし、それでも出る事がある　
0810Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧∩ 　　／　
　 _　ミ,,ﾟДﾟﾐﾐ_　＜　　サンクスコ
.=| |==,∪===| |= ＼
　| |＠ﾐ　　ﾐ .| | 　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　| |　∪''∪　| | 経験測ィィ！
　| |　　　　　 | |
0811Delフサギコ ◆VzDeLphI NGNG
　　　 ∧,,∧　　これをもてあそんでなんか面白いこと
　　　ミ,,ﾟДﾟ彡　　　できませんでしょうか。
　 　 ﾐ　つ旦)~~
　 ～と,,,~),,~)　
C＃ vs Delphi Round 1
http://pc3.2ch.net/test/read.cgi/tech/1021550705/l50
の195さんの投稿
program Project1;
uses Windows;
{$APPTYPE CONSOLE}
procedure Exec(const Cmd: PChar);
var SInfo: STARTUPINFO; PInfo: PROCESS_INFORMATION;
begin
　GetStartupInfo(SInfo);
　CreateProcess(nil, Cmd, nil, nil, False, 0, nil, nil, SInfo, PInfo);
　WaitForSingleObject(PInfo.hProcess, INFINITE);
end;
var F: Text;
begin
　Assign(F, 'b.pas'); Rewrite(F);
　Write(F, 'begin Write(''Hello World''); Readln; end.');
　Readln;
　Close(F);
　Exec('dcc32 -cc b.pas'); Exec('b.exe');
end.
Readlnを入れてみたけど。
これを、呼び出しがわのアプリと通信する
手段がなにかあればいいのになー。
そもそもCUIアプリでパイプの
受け渡しってDelphiでどうやるんでしょうか？
0812デルファイの名無しさんNGNG
とりあえずパイプを作ってSInfoに色々設定すれば、
b.exeの標準入出力をリダイレクトして持って来る事はできるはず。(スレッド要るかな？)
そのコードではCloseHandleとか省略しているので、マトモにやるなら補完しといて下さい。

…まだ覚えてたんだ
0813デフォルトの名無しさんNGNG
MLの過去ログ検索汁！
いやマジで。話題の彼がかなりガムバってレス付けてたよ。
0814Delフサギコ ◆VzDeLphI NGNG
　　　 ∧,,∧　　リダイレクって単語で検索汁たら
　　　ミ,,ﾟДﾟ彡　　　　見覚えのある名前が
　 　 ﾐ　つ旦)~~　　　　　いっぱいでますた
　 ～と,,,~),,~)　　　

自分でMemo1.textあたりに記述した関数の出力結果が
自アプリに取り込めたら
より応用が可能かと思われなのですが...
どうにかできんもんでしょうか。なかなかﾑｽﾞｶﾁｲ

パイプで自アプリに流しこむとか..
WM_COPYDATAは文字数制限とかでしょぼそう
DDEはいけるのかな。
0815デフォルトの名無しさんNGNG
自分は組込屋だからクロスアセンブラのフロントエンドの為にパイプをよく使う
簡単なのは、開いておいてアプリが終了してから全部を読む方法
　　-->　niftyのサンプル蔵にある方法ね
　これで多くの用には足りると思う

エラーでメッセージに応答しなければならないような場合は
スレッドを作って監視しなければいけない。

でも自アプリ同士の通信なら　メモリマップファイルでいいんじゃない？
0816デフォルトの名無しさんNGNG
さらに言うと、メモリマップファイルにしなくても
送り側　普通のファイルにして 単にSaveToFileで書く
受け手　ファイルがあったらLoadFromFileして削除する

で相手をHddにすれば十分なパフォーマンスが出ると思う

ファイルがあるかどうかを監視するのが遅いという場合は、
メッセージとかDDEでキッカケを与えてやればいいんだし

0817Delフサギコ ◆VzDeLphI NGNG
　　　 ！　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧,,∧　　　 ／
　　ミ,,ﾟДﾟ彡　＜　なるほぞ
　　ミ.,,Ｏ),,ﾐ 　　＼
　＠ﾐ　 　ﾐ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∪''∪　>>816
　　　　　　以外に簡単ソースっね
0818デルファイの名無しさんNGNG
そーゆー用途&レベルであれば、初めからdllを吐かせれば
LoadLibrary/GetProcAddressで普通に関数呼出しできる気が。
0819Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　 ／
　　　ミ,,ﾟДﾟ彡　＜ 　DLLをコンパイルさせて
　　　ﾐ　つ日　　　＼＿＿＿＿＿＿＿＿＿＿＿
　～ﾐ,,,,,,　,,ﾐ 動的バインドするわけですね。
　　　　　　　　でも仕組みはわかってても
　　　　　　実行するのにちょとテマがかかりそうな予感
0820デフォルトの名無しさんNGNG
>>816
キッカケはふつーWaitForSingleObject
0821デフォルトの名無しさんNGNG
>>820　それだとスレッドを別けなければいけないじゃない
　メッセージやDDEの方がやっぱり楽
0822デフォルトの名無しさんNGNG
>>821
ブロックしないようにしてループ中で
Application.ProcessMessages呼べばスレッド不要
0823デフォルトの名無しさんNGNG
>>822 それならループ中で if FileExist(fname) then 入れた方が
0824デフォルトの名無しさんNGNG
だからデータの受け渡し云々以前に起動した子プロセスの
終了待ちはWaitForSingleObject使うのが定石なんだって。

それにデータファイルの変更を監視したいならShellChangeNotifier使え。
0825デフォルトの名無しさんNGNG
（ ´,_ゝ`）ﾌﾟｯ　定石
0826デフォルトの名無しさんNGNG
>>825
なにか？

研究社 新英和・和英中辞典 　英和凡例　和英凡例

--------------------------------------------------------------------------------

じょうせき2 定石, 定跡

【囲碁･将棋】 the standard moves 《in the game of go [shogi]》; 〈比喩的〉 a (generally observed) formula

定石どおりに打つ[指す] play by the book

(物事を)定石どおりにやる go [do] by the book.
0827デフォルトの名無しさんNGNG
すみません。質問です。
WindowsXP + Delphi７トライアルでスタンドアロンアプリを作っています。
TToolBarのMenuプロパティにTMainMenuを設定し、メニューのように
表示しています。（エクスプローラ風）
しかし、OSをXPスタイルで表示してもエクスプローラのメニュー風になりません。
仕方がないので自分でDrawしたいのですが、OSがXPスタイルなのか
クラシックスタイルなのかを判断する方法がわかりません。
XPスタイルなのかクラシックなのかを判断する方法はあるのでしょうか？
0828827NGNG
書き忘れです。
TActionMainMenuBarは、まだバグが沢山ありそうだったので使いたくないです。
0829デフォルトの名無しさんNGNG
>>826
せめて国語辞典にしろよ
0830デフォルトの名無しさんNGNG
どちらにしろ>>825は馬鹿なわけで。
0831デフォルトの名無しさんNGNG
このままだとうまくいくのに
いれかえ部分を削除していれかえ２の部分をコメントアウトするとうまくいくんだけどなぜ？
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, StdCtrls, FileCtrl;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
FilterComboBox1: TFilterComboBox;
DriveComboBox1: TDriveComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FileListBox1Change(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }

end;
0832デフォルトの名無しさんNGNG

var
Form1: TForm1;
Jpg : TJpegImage;
filepass : string;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//いれかえ
Jpg :=TJpegImage.Create;
filepass:=FileListBox1.FileName;
try
Jpg.LoadFromFile(filepass);
Image1.Picture.Assign(Jpg);
finally
Jpg.Free;
end;
//いれかえおわり
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FilterComboBox1.FileList := FileListBox1;

FilterComboBox1.Filter := '画像(*.jpg)|*.jpg';
0833デフォルトの名無しさんNGNG

DriveComboBox1.DirList := DirectoryListBox1;
DirectoryListBox1.FileList := FileListBox1;

end;


procedure TForm1.FileListBox1Change(Sender: TObject);
begin
//いれかえ２
//Jpg :=TJpegImage.Create;
//filepass:=FileListBox1.FileName;
//try
//Jpg.LoadFromFile(filepass);
//Image1.Picture.Assign(Jpg);
//finally
//jpg.Free;
//end;
//いれかえ２おわり
end;
end.

0834デフォルトの名無しさんNGNG
ボタンをおしたとき、あるフォルダを開きたいのですが、どうすればいいのでしょうか？
ボタンはつけられました。
0835デフォルトの名無しさんNGNG
フォルダを開いて何がしたい？
0836834NGNG
おおまかにいうと
そのフォルダの中にあるMEPG２ファイルをMPEG4v2にしたい
0837デフォルトの名無しさんNGNG
ファイルを選択したいってことならOpenDialog
0838834NGNG
>>837
ありがとう。やってみます。
0839デフォルトの名無しさんNGNG
Delphiで、JavaのSystem.out.println()みたいに、
下のデバッグウインドウに値出すのってどうすればいいか
おしえてください。
0840デフォルトの名無しさんNGNG
>>839
できません。
0841デフォルトの名無しさんNGNG
Windows.OutputDebugString
0842839NGNG
すばやい情報どうも。

ヘルプには、
[表示｜デバッグ｜イベントログ］を選択でイベントログがひらく
ってあるんですが、メニューの表示->デバッグ->にイベントログという
目はありません。

更なる情報をください。
0843デフォルトの名無しさんNGNG
>>842
Personalではできません。
0844デフォルトの名無しさんNGNG
OutputDebugString('AAAAAAAAAA');
0845839NGNG
>>Personalではできません。
それが本当なら、どんぴしゃな情報です。
夜遅くありがとうございました。
0846デフォルトの名無しさんNGNG
某の機能制限のやり方ってほんとアホだな
まともに検討したとは思えないよ
0847デフォルトの名無しさんNGNG
>>839 代わりにコンソールを開いて Writelnで出力したらどう？
AllocConsole　呼べばコンソールアプリでなくてもコンソールを開けるよ
0848デフォルトの名無しさんNGNG
Personalでは使用できないんだ。
謎な制限し様だな。基本的標準的で重要なところを塞いでどうするよ
0849デフォルトの名無しさんNGNG
>>848
基本かどうかは人によるんじゃないの？　必要なら普段隠してるメモに吐いてもいいんだしさ
0850デフォルトの名無しさんNGNG
基本的だからこそ売り上げのためには塞ぐのだと思うが…
0851デフォルトの名無しさんNGNG
Debug用のMemoでも貼り付けといたらいいっしょ
0852デフォルトの名無しさんNGNG
>>796
近所に Delhi というカレー屋があるが、いつ見ても Delphi と読んでしまう。
0853デフォルトの名無しさんNGNG
関係ないけど、近所に「熱烈厨房」という中華料理屋がある。
いつ見ても笑ってしまう。
0854デフォルトの名無しさんNGNG
TEditの内容をセンタリングする方法教えて
0855Delフサギコ ◆VzDeLphI NGNG
　　　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧,,∧ 　　　 ／
　　　ミ,,ﾟДﾟ彡　＜ 　つかうでつ。
　　　ﾐ　つ日　　　＼＿＿＿＿＿＿＿＿＿＿＿
　～ﾐ,,,,,,　,,ﾐ
　　　　　OSの機能を利用した数値入力＆右寄せ/センタリング可エヂト

unit AlignmentEdit;
interface
uses　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,　StdCtrls;
type
　TInputkey = (ikNormal, ikNumberOnly);
　TAlignmentEdit = class(TEdit)
　private
　　FAlignment: TAlignment;
　　FInputkey: TInputkey;
　　procedure SetAlignment(const Value: TAlignment);
　　procedure SetInputkey(const Value: TInputkey);
　protected
　　procedure CreateParams(var Params: TCreateParams); override;
　public
　　constructor Create(AOwner: TComponent); override;
　published
　　property Alignment: TAlignment read FAlignment write SetAlignment;
　　property Inputkey: TInputkey read FInputkey write SetInputkey;
　end;
procedure Register;
implementation
procedure Register;
begin
　RegisterComponents('Samples', [TAlignmentEdit]);
end;
0856デフォルトの名無しさんNGNG
>>855
こんな長いのか・・・
0857Delフサギコ ◆VzDeLphI NGNG
　　　 ∧,,∧ 　　　 ／
　　　ミ,,ﾟДﾟ彡　＜ 　Win95ではちょと変になるかもでつ
constructor TAlignmentEdit.Create(AOwner: TComponent);
begin　FAlignment := taLeftJustify;
　FInputkey := ikNormal;　inherited;
end;
procedure TAlignmentEdit.CreateParams(var Params: TCreateParams);
begin　inherited;
　CreateSubClass(Params, 'EDITC');
　with Params do
　　case FAlignment of
　　　taLeftJustify:　　　　Style := Style or ES_LEFT;
　　　taCenter:　　　　Style := Style or ES_CENTER;
　　　taRightJustify:　　　　Style := Style or ES_RIGHT;
　　else　　　Assert(false, 'FAlignmentが不正です');　　end;
　with Params do
　　case FInputkey of
　　　ikNormal:;　　　ikNumberOnly:　　　　Style := Style or ES_NUMBER;
　　else　　　Assert(false, 'FInputkeyが不正です');　　end;
end;
procedure TAlignmentEdit.SetAlignment(const Value: TAlignment);
begin　if (FAlignment <> Value) then　begin
　　FAlignment := Value;
　　inherited RecreateWnd();
　end;
end;
procedure TAlignmentEdit.SetInputkey(const Value: TInputkey);
begin　if (FInputkey <> Value) then　begin
　　FInputkey := Value;
　　inherited RecreateWnd();
　end;
end;end.
0858デフォルトの名無しさんNGNG
>>Delフサギコさん
わざわざありがとうございました。
でもソース見ても分からないとこだらけなんで調べてみます。
0859Delフサギコ ◆VzDeLphI NGNG
　ミ,,ﾟДﾟ彡つ　メッセージ一撃でやる方法もあるけど、
　　　　　　　　　こんな単純な機能ｺﾝﾎﾟｰﾈﾝﾄに
　　　　　　　　　してしまってもいいかとオモテ前に作ります田。
0860デフォルトの名無しさんNGNG
>>853
ﾜﾗﾀ
0861839NGNG
>>847
すばらしい。感謝。

その他の方もアドバイスありがとうございました。
Memoとかお手軽で私向きです。
0862デフォルトの名無しさんNGNG
1024*768の15型ディスプレイ(Win2k)で作成したDelphiアプリを
1280*1024の19型ディスプレイ(WinXP)で使用すると画面の下の部分が切れてしまうんですが、
何か原因で思い当たることあったら教えてください。

ハードウェアに依存する問題なのかな。よろしくおねがいします。
0863デフォルトの名無しさんNGNG
なぜDel房はlog4jをポートしようとしないんだろう？
0864デフォルトの名無しさんNGNG
Del房ﾊｹｰﾝ
http://www6.plala.or.jp/satellite/
ここのCustomBoro for WindowsXPとか言うボロいソフトDelphi製だとよ！！
（ReadMeより）
0865デフォルトの名無しさんNGNG
>>864
痛い
0866デフォルトの名無しさんNGNG
>>864
2ちゃんねらーだね
0867デフォルトの名無しさんNGNG
>>864
作者は痛くてもソフト自体は痛くないじゃん。
初心者が練習に作ったって感じで。
0868デフォルトの名無しさんNGNG
擦れ違い
0869デフォルトの名無しさんNGNG
ちょっと前にIDEエディタの話が出てたので質問。
漏れの環境はDel6pro,winxp。
エディタオプションでキーの割り当てをEpsilonにしたんだが、Ctrl+Bでカーソルが後退せずに、バッファリストが開いちゃう。
だから、拡張モジュールのバッファリストのチェックを外しているんだけど、一旦Delphiを終了して再度起動するとその設定が保存されていなくてまたチェックが入っている・・・・・・
これってなんかいい対処法ある？
0870デルファイの名無しさんNGNG
拡張モジュールの*.bplごと抹消する(w
パッケージのインストールで一覧から消して、それをデフォルトにしちゃえばおっけーです。
"Borland Editor Enhancements"だったかな？(動作保証はしませんが)
0871初期設定の名無しさんNGNG
>>862
XP とそれ以外の Windows ではタイトルバーの高さが違うせいだと思います。
試しに Win2000 でデスクトップを右クリックして「プロパティ」→「デザイン」から
アクティブタイトルバーの高さを 18 から 36 に変更して [OK] を押し、自作の
プログラムを実行してみてください。

対処法は……フォームの ClientHeight をどうこうする、かな? ほかの皆さんはどう
してますか?
0872デフォルトの名無しさんNGNG
Position:poDesktopCenter
Scaled:False
あとはAlignとかAnchorsでレイアウト調整。
0873831NGNG
>>831-833
だれか～教えてくれ～。
0874デフォルトの名無しさんNGNG
>>873
Del厨は難しいことになると無視するからなぁ。
0875デフォルトの名無しさんNGNG
>>873=831
>このままだとうまくいくのに
>いれかえ部分を削除していれかえ２の部分をコメントアウトするとうまくいくんだけどなぜ？

日本語がわからん。どちらでもうまくいくなら問題なしでは？
0876831NGNG
読み返すととんでもなくへんな文だった…。


×＞このままだとうまくいくのに
×＞いれかえ部分を削除していれかえ２の部分をコメントアウトするとうまくいくんだけどなぜ？

○このままだとうまくいくのに
○いれかえ部分を削除して、いれかえ２のコメントアウトを外すとうまくいかない。なぜ？

0877デフォルトの名無しさんNGNG
>>873
FileListBox1Change内で拡張子をチェックするとうまくいくよん
ExtractFileExt(filepass)が'.jpeg'または'.jpg'しかないんだから

それにしても
1.privateメンバにすべきところがグローバル変数になっている
2.FileListBox系はWindows3.1用
の2点が気になりもうした
0878877NGNG
訂正
filepass:=FileListBox1.FileName;
if filepass='' then Exit;
Jpg :=TJpegImage.Create;
・・・
これで十分
0879831NGNG
おおぅ。ありがとうございます。
早速やってみます。
0880デフォルトの名無しさんNGNG
ﾃﾞﾙﾊﾟｲ7のすごいとこ教えて
0881デフォルトの名無しさんNGNG
>>880
EXEのサイズがさらにでかくなる
0882デフォルトの名無しさんNGNG
そりゃXP対応なところだろ。
0883デフォルトの名無しさんNGNG
>>881
そいつはすげぇ！
てことは全くノートと変わらないソフトを作った場合でも
１M超えのノートも夢じゃない！？
是非買わなければ！！
0884883NGNG
って冗談はおいといて、
（メッチャ煽り気味ｽﾏｿ）
現在Delphi6無料版使用中の俺ですが、
7買うかガリレオ待つのどっちがいいかな。
6使いこなしてない俺は
6で勉強しつつガリレオ待つのがいいのかな…
0885デフォルトの名無しさんNGNG
>>871
なるほど！！原因判明しました。ありがとう！！
おかげで無事に問題を解決できました。
0886デフォルトの名無しさんNGNG
>>883
ノートってのはnotepadのことだと思うが、全くnotepadと変わらないものを作るなら
VCL使わないのでサイズはだいぶ小さくなるかと
0887883NGNG
>>886
いや、ごめんって。
マジで見逃して…。
マジ煽る気はないのよ。
Delphiでもかなりサイズ小さくできるのは解ってます。
ちょっとサイズの大きさが気になっただけで…

お願い、見逃して。・ﾟ･（ﾉД`）･ﾟ･｡
0888886NGNG
こちらこそネタにマジレスしてｽﾏｿ。
884へのレスですが、俺は7買って、ガリレオはパスしようと思ってます。理由は、
・最後のネイティブIDE
・どうせすぐガリレオの次が出るだろう
・来年.NET frameworkが大幅バージョンアップする。それに対応したバージョン待ち

もうDel7予約してしまいました。俺の選択が間違ってたらどうしようかと((((；ﾟДﾟ)))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
0889デフォルトの名無しさんNGNG
>・最後のネイティブIDE
これが本当ならマジで買いだね・・・迷ってしまふ
0890デフォルトの名無しさんNGNG
>>889
IDEはガリレオ一本に絞ります！って公言してるのに、わざわざ言語別のIDEをバージョンアップするかな？
してくれるなら嬉しいけど。
0891名無しさん＠お腹いっぱい。NGNG
7買ってガリレオの次買うってのはどう？
最近のDelphiのバージョンアップの頻度からいって待てそう…
0892デフォルトの名無しさんNGNG
BAS(Borland Application Server)も.NETサポートするのかなあ？
Apache Web Serviceは恐らくするだろうけど。
0893デフォルトの名無しさんNGNG
Memo1のテキストの1行目以外をMemo2のテキストにする場合
どのように書けばいいんでしょうか？
0894デフォルトの名無しさんNGNG
>>893
　コピーしましょう
0895デフォルトの名無しさんNGNG
主なコンポーネントの画像 http://isweb18.infoseek.co.jp/computer/gikonavi/ex/xptest.png
0896デフォルトの名無しさんNGNG
>>894
すいません。
コピーしてどのようにすればいいのでしょうか？
0897デフォルトの名無しさんNGNG
↑なにこれ？VBの新作アプリ？
0898デフォルトの名無しさんNGNG
>>896
TStrings, TStringListをヘルプで調べて一通り使い方覚えろ。
この知識無しにはDelのプログラムは作れないよ。
0899デフォルトの名無しさんNGNG
>>897
Delphi7で作成されXPで表示したアプリの画像
0900デフォルトの名無しさんNGNG
>>898
分かりました。
ｽﾚ汚してｺﾞﾒﾝですた。
0901デフォルトの名無しさんNGNG
>>899
なんで日本語版もってんの？
0902デフォルトの名無しさんNGNG
今更聞くような事かよ
わかってるだろ？
0903デフォルトの名無しさんNGNG
Panel が透過するようになったのか？
0904Delフサギコ ◆VzDeLphI NGNG
　ミ,,ﾟДﾟﾐ　守秘義務とかいうヤシですかね...
0905デフォルトの名無しさんNGNG
＾＾
0906デフォルトの名無しさんNGNG
別に英語版のトライアルでもできるだろ。
0907デフォルトの名無しさんNGNG
MS PGothic
0908デフォルトの名無しさんNGNG
>>907
英語版のトライアルではMS Pゴシックが扱えないとでも？
0909デフォルトの名無しさんNGNG
スマソ、英語版のトライアル版のＤＬ先教えてもらえませんか？
http://www.borland.com/products/downloads/download_delphi.html#
だとおもったのですがＤＬできません；；
0910デフォルトの名無しさんNGNG
>>909
事故レスです。
JavaScript OFFだっただけです；；
0911デフォルトの名無しさんNGNG
>>901 とか
うんと、アレはアメリカ版です。

>>903
パネルは、XPスタイルの場合のみ透過してた。
その場合、パネルのColorプロパティをいじっていても、パネルの下の色になる。
だから、パネルに色をつけているようなアプリをDel7でやる場合は注意が必要。

あとは、GridとかタブコントロールのタブスタイルをTab以外にしている場合なんかは、
古いスタイルで描画されるので、スタイルを統一したい場合には自分でuxthemeを
ゴチョゴチョする必要がありそうかな。
0912デフォルトの名無しさんNGNG
質問です。
Delphiで作ったexeからDelphiで作ったDLLの関数を呼び出したいのですが、
DLLの関数には引数としてPCharの変数を作りました。

function TestFunc(const Msg: PChar): PChar; stdcall;
begin
Result := Msg;
end;

で、Exe側からexternalしました。

function TestFunc(const Msg: Pchar): PChar; external 'test.dll';

で、Exeからこの関数を呼びました。

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TestFunc('aaa'));
end;

すると、希望では「aaa」というメッセージが表示されるのに、
文字化けしたメッセージが表示されたあとに保護違反で落ちてしまいます。

引数の渡し方などがおかしいのでしょうか？
ちなみに引数を取らない関数も作ったのですが、そちらは問題なく動きました。
0913デフォルトの名無しさんNGNG
> function TestFunc(const Msg: Pchar): PChar; external 'test.dll';

stdcall が抜けてる
0914デフォルトの名無しさんNGNG
>>911
確かにPanel透けるねー。何でだろ。バグっぽいな。
TPanelから派生したPanelを作ってPaintをoverrideして
  Canvas.Brush.Color := Color;
  Canvas.FillRect(ClientRect);
ってやれば透過されないけど(当たり前か)
0915デフォルトの名無しさんNGNG
>>912
stdcall規約でエクスポートされてるのでインポートもstdcall規約で呼び出す必要が。
0916912NGNG
>>913
>>915
オー！シャンゼリゼ！！

function TestFunc(const Msg: Pchar): PChar; stdcall; external 'test.dll';
とすることでうまく行きました。
ありがとうございます。
0917デフォルトの名無しさんNGNG
>>914
むしろ透けるWinControlを作りたいときに有効
0918デフォルトの名無しさんNGNG
case Random(2) of
0:
1:
end;
これで0を90㌫の確率、1を10㌫の確率で実行させることは出来ますか？
0919デフォルトの名無しさんNGNG
>>918
case Random(10) of
0..8:
9:
end;
0920デフォルトの名無しさんNGNG
>>919
なるほど。即答さんくすです。
0921デフォルトの名無しさんNGNG
>>914
デフォルトが透けるってだけでしょ。
俺的には歓迎だけどな。
0922デフォルトの名無しさんNGNG
XHTMLやCSSやWMLのレンダリングエンジンを実装したいのですが、どうしたらええどすか？
0923デフォルトの名無しさんNGNG
パーサ書いてテキスト編集コンポーネント作って表示する
0924デフォルトの名無しさんNGNG
>>922
まずお前がどこまでできるか書けや。
何も分からないなら、まずはIEコンポ使ってからにしておけ。
0925デフォルトの名無しさんNGNG
Delphi と直接関係ないかも知れないけど、
フリーのオブジェクト指向分析／設計ツールでおすすめのってある？
0926デフォルトの名無しさんNGNG
JBuilder Enterprise買えばおまけでついてくるよ。
0927デフォルトの名無しさんNGNG
>>926
フリーちゃうやんｗ
0928デフォルトの名無しさんNGNG
>>925
紙と鉛筆。

特徴
・直感的な操作性
・文字/図形/画像など豊富な表現力
・コピー、切り取り、貼り付けなど強力な編集機能
0929デフォルトの名無しさんNGNG
>>928
その他にも、ワープロ、表計算、関係データベース、記録メディアとしても利用できる。
0930デフォルトの名無しさんNGNG
>>928
さらに多人数による同時編集も可能
0931デフォルトの名無しさんNGNG
今話題のグループシェアリングなのか！？
0932デフォルトの名無しさんNGNG
弱点：火と水
0933デフォルトの名無しさんNGNG
>>932
意外と知られていない弱点が「クソガキ」
0934デフォルトの名無しさんNGNG
お前らマ板のノートスレにでも行っちまえ。
0935デフォルトの名無しさんNGNG
コクヨ、300g厚さ5mmのノート発売！
http://pc3.2ch.net/test/read.cgi/mobile/1007674054/
0936デフォルトの名無しさんNGNG
>>928
>・コピー、切り取り、貼り付けなど強力な編集機能
嘘だろ？
紙と鉛筆だけじゃ無理だ(w
0937デフォルトの名無しさんNGNG
>>940 次スレたてて ダメなら>>950　お願い
0938デフォルトの名無しさんNGNG
940 はどこ？
0939Delphi1 から使ってますNGNG
940 ではございませんが、次スレ立てますた。

Delphi相談室その７
http://pc3.2ch.net/test/read.cgi/tech/1032576325/l50

0940デフォルトの名無しさんNGNG
age ちゃった...
0941Age2chNGNG
　　　　　キ　　　 　 　 //　　　/::::://O/,|　　 　 　/
　　　　　　ュ　　　　　/　|'''' 　 |::::://O//|　　 　　/
　　　　　　.ッ 　 　 　 ＼ |‐┐ |::://O/ ノ　　 ヾ､/
　　　　　　 ：　　　　　　　|__」　|/ヾ. ／　　　　／
　　　　　　 　 ヽ ／＼　　ヽ___ﾉ　／ . へ、,／　　　　
　　　　　　　 ／　 ×　　　　/ 　{　く　　／
　　　 　 　 く　 ／＿ ＼　　 !､.ノ `ー''"
　　／＼　　　　　　 　''"　 //
　| ＼／､／　　 　 　 　 　 ﾞ′
　|＼ ／|＼￣
　　　＼|
0942Age2chNGNG
　　　　　キ　　　 　 　 //　　　/::::://O/,|　　 　 　/
　　　　　　ュ　　　　　/　|'''' 　 |::::://O//|　　 　　/
　　　　　　.ッ 　 　 　 ＼ |‐┐ |::://O/ ノ　　 ヾ､/
　　　　　　 ：　　　　　　　|__」　|/ヾ. ／　　　　／
　　　　　　 　 ヽ ／＼　　ヽ___ﾉ　／ . へ、,／　　　　
　　　　　　　 ／　 ×　　　　/ 　{　く　　／
　　　 　 　 く　 ／＿ ＼　　 !､.ノ `ー''"
　　／＼　　　　　　 　''"　 //
　| ＼／､／　　 　 　 　 　 ﾞ′
　|＼ ／|＼￣
　　　＼|
0943デフォルトの名無しさんNGNG
　　先に1000getしたひとの勝ち！！
　　　　　　　Å　　　　　 　　　Å　 　 ／
　　　　　 ／■＼　　 　 　/■＼　 　－
　　　　●( ´ー` )● 　∩(･∀･　)∩ ＼
　　　 　⊂　　　つ　 　 ＼ 　　 　 /
　 　 　 　 |＿＿|　　　　　|＿＿__|
　　　　⌒
　　　　 ⌒　　　　　　　⌒
　　　　　>)　　　　　　⌒
===============(∧)====　
　　　　　1000　g　e　t
0944デフォルトの名無しさんNGNG
1000!
0945ななしへたぐらま ◆B18Bks.Y NGNG
>>943
このAAの元ネタってドリームキャストの
『アキハバラ電脳組パタPies!』のような…懐かしい．
0946デフォルトの名無しさんNGNG
パタ・・・何？
0947デフォルトの名無しさんNGNG
>>945
dat落ちしてるけど
明治カールのパッケージの裏に
http://news3.2ch.net/test/read.cgi/news/1032527416/l50
から頂いてきた。

http://isweb44.infoseek.co.jp/art/sumimase/cgi-bin/img-box/img20020920224056.jpg
0948ななしへたぐらま ◆B18Bks.Y NGNG
>>946
アニメ『アキハバラ電脳組』を題材にしたゲームソフトです．
アニメの方はアニヲタには有名なのですがゲームの方はドマイナー…．

>>947
作品世界ではパタＰっていうペットロボットが少年少女の間で流行っていて
このゲーム版では主人公が友人と会ってふたりのパタＰ同士で遊ばせるのですが
その遊びの一つ（競走）とこのAAがよく似ていたので「もしや…」と思ったのですが…．
0949946NGNG
知ってるYO!!煽ってみたの!!
解説しなくていいよ!!
レス数が900を超えています。1000を超えると表示できなくなるよ。