1001コメント265KB

モナーのやさしい Delphi質問スレ Ver.14

レス数が1000を超えています。これ以上書き込みはできません。

0001Delモナー

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜｜｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

前スレ
フサギコの *やさしい* Delphi質問スレ Ver.13
http://pc2.2ch.net/test/read.cgi/tech/1048589518/

0002Delモナー

NGNG

■過去スレ
フサギコの *やさしい* Delphi質問スレ Ver.12
http://pc2.2ch.net/test/read.cgi/tech/1045476912/
モナーの *やさしい* Delphi質問スレ Ver.11
http://pc2.2ch.net/tech/kako/1042/10424/1042421592.html
モナーの *やさしい* Delphi質問スレ Ver.10
http://pc3.2ch.net/tech/kako/1038/10388/1038880567.html
モナーの *やさしい* Delphi質問スレ Ver.9
http://pc3.2ch.net/tech/kako/1033/10336/1033668645.html
モナーの *やさしい* Delphi質問スレ Ver.8
http://pc3.2ch.net/tech/kako/1027/10278/1027873869.html
モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/tech/kako/1021/10212/1021262086.html
モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/tech/kako/1019/10191/1019134412.html
モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/tech/kako/1017/10178/1017803412.html
モナーの *やさしい* Delphi質問スレ Ver4
http://pc.2ch.net/tech/kako/1016/10164/1016467137.html
モナーの *やさしい* Delphi質問スレ Ver3
http://pc.2ch.net/tech/kako/1014/10144/1014474727.html
モナーの *やさしい* Delphi質問スレ Ver2
http://pc.2ch.net/tech/kako/1011/10116/1011649179.html
モナーの *やさしい* Delphi質問スレ
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html

DelWiki
http://onigiri.s3.xrea.com:8080/delphi/

0003デフォルトの名無しさん

NGNG

何で俺生きてるんだろ。。。

0004デフォルトの名無しさん

NGNG

がんばれ

0005デフォルトの名無しさん

NGNG

モナーに戻ってめでたしめでたし。

0006デフォルトの名無しさん

NGNG

今からプログラミングを始めるにはDelphiとC#どちらがよいでしょうか？
いろいろ調べているとC#のほうが将来性がありそうな気がしていますが｡

0007デフォルトの名無しさん

NGNG

＞いろいろ調べていると
適当に2chのスレを読むと。に訂正してくれ。

0008デフォルトの名無しさん

NGNG

>>6
お前には将来性無いからどれ選んでも大差ねえよ。

0009デフォルトの名無しさん

NGNG

結局MSとBorのどちらを信じるかに帰着するので、
不毛な論争に巻き込まれたく無ければ2chで聞かない方がいいでしょう

0010デフォルトの名無しさん

NGNG

>>9
確信犯もいるモヨン。

0011デフォルトの名無しさん

NGNG

何に対する将来性を考えるかによって変わるんじゃないかな？
ソフトで食っていくのか、大学で研究に没頭するのか。趣味のアマグラマなのか。

ただし、未来が分かる人は（おそらく）どこにもいませんからそんなことで悩んでいる暇があったら
プログラムの一つでも作りましょう。

職業プログラマを目指すのであれば、言語に左右されない基礎を学ぶのが先だと思いますよ。

0012デフォルトの名無しさん

NGNG

ＤＥＬＰＨＩでボタンを作るとWin98系のボタンになっちゃうよね。ちゃんとXPぽいのは出せないの？

0013デフォルトの名無しさん

NGNG

>>12
Delphiじゃなくてもデフォルトではそうなります。
そしてDelphiはXPVisualStyleを使ったアプリケーションを作成できます。

0014デフォルトの名無しさん

NGNG

DELモナーさんに質問です！
最近あなたを見かけないのですが、今どこで何をされているんでしょうか？

0015デフォルトの名無しさん

NGNG

Delモナーとは一人のことを指すのではありません。
Delphian達の優しき心こそがDelモナーなのです。
ほら、あなたの中の人もDelモナーですよ。

0016デフォルトの名無しさん

NGNG

中の人などいない！

0017デフォルトの名無しさん

NGNG

Delフサギコって死滅しちゃうの？

0018デフォルトの名無しさん

NGNG

死滅ってDELPHIするの？

0019デフォルトの名無しさん

NGNG

ListViewを検索するのは
ListView1.FindCaption(0,Edit1.Text,True,True,False)
のようにすればいいですよね？
これはItemのCaptionをもとに検索されますよね。
SubItem[0]をもとに検索するにはどうすればいいですか？

0020デフォルトの名無しさん

NGNG

CustomSort

0021デフォルトの名無しさん

NGNG

>>19
普通にループで検索すればいいじゃん。

002219

NGNG

>>21
すみません、ｻﾝﾌﾟﾙ書いていただけませんか？
SubItem[0]のTextが 'あ' から始まるItemを
選択するというのをお願いします。
var
i : Integer;
li : TListItem;
begin
i := 0;
while i < ListView1.Items.Count do
begin
li :=　???
という感じでどうすればいいか分からなくなってしまいました。
あつかましくてすみません。
どうぞよろしくおねがいします。

0023デフォルトの名無しさん

NGNG

while I<ListView1.Items.Count do
begin
if ListView1.Items.Item[I].SubItems.Strings[0]='aaaaaaa' then
begin
//みつかった
Break;
end;
Inc(I);
end;

0024デフォルトの名無しさん

NGNG

FormatDateTimeで、曜日を 'Sun' 'Mon' とアルファベットで出力させたいのですがヘルプの書式にのってません
どうしたらよいでしょうか？

0025デフォルトの名無しさん

NGNG

> 結局MSとBorのどちらを信じるかに帰着するので、
> 不毛な論争に巻き込まれたく無ければ2chで聞かない方がいいでしょう
MSを信じなかったらKylixしか選択肢がなくなってしまうのだが。

0026デフォルトの名無しさん

NGNG

25は一つを信じるともう他は全く信用しなくなる信者タイプ。

0027デフォルトの名無しさん

NGNG

イラク戦争でアメリカ非難するとイラク擁護とすぐ決め付ける
奴らに似てるね。

0028デフォルトの名無しさん

NGNG

なるほど、信者タイプと決め付けているわけだ。

002919

NGNG

>>23
if ListView1.Items.Item[I].SubItems.Strings[0]='aaaaaaa' then
は、Item[I]のSubItems[0]のﾃｷｽﾄの最初の文字が'aaaaaaa'の時
という意味ですよね？
そう解釈して
ﾎﾞﾀﾝ1のOnCkickｲﾍﾞﾝﾄで
while i < ListView1.Items.Count do
begin
if ListView1.Items.Item[i].SubItems.Strings[0] = Edit2.Text then
begin
　　 Edit1.Text := IntToStr(i);
Break;
end;
Inc(i);
end;
と書いてもEdit1には何も表示されません。
最終的に、見つかった時における i で
ListView1.Items.Item[i]を選択した状態にしたいのですが
ちゃんとEdit2にはListViewのItemsのSubitemsの最初の文字にしています。
どうかアドバイス下さい。
物分りが悪くてすみません。

0030デフォルトの名無しさん

NGNG

まあ、MSが死滅したら、Windowsで動いてるDelphiも死滅するだろうね。

0031デフォルトの名無しさん

NGNG

そうするとKylixにシフトするわけだな。

0032デフォルトの名無しさん

NGNG

いつになったらシフトするのだろう。

0033Delモナー

NGNG

Delモナーからの質問です。
趣味で遊ぶだけなら、Microsoft Visual Basic(TM)とデルパイのどちらがいいのでしょうか？

0034デフォルトの名無しさん

NGNG

はい次の方どうぞ～

0035デフォルトの名無しさん

NGNG

>>33
遊ぶだけならデルパイでいいよ。
タダだし。

0036デフォルトの名無しさん

NGNG

Kylixが普及しない理由ってなんだろ？
MSのせい？ Linuxのせい？ Kylixのせい？

0037デフォルトの名無しさん

NGNG

DelphiにはVBのビジュアルベーシッ君のようなキャラクターはいないのですか？

0038デフォルトの名無しさん

NGNG

ビジュアルベーシッ君（？)ように勝手に自分で作って
「これがDelphiのキャラクターだ！」って言えば？

0039ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>6
プログラミングを覚えることが大事
プログラミングの技術や能力は
使う言語が変わったら無意味になるような物ではありません．

>>37
ビジュアル系のべーしっ君か…．あの漫画，
今でも続いていたらDelphiをもじったキャラも出てきたんだろうなぁ．
しかし近藤マシン語臣みたいないい名前が浮かばない…．

0040デフォルトの名無しさん

NGNG

>>29
実行時に仕様通り動かない場合、ステップ実行すれば原因はおのずとわかる。
ブレークポイントをかけるなりして、不具合個所を見つけ出す癖をつけましょう。

考えられる原因
一.文字列と文字の混同( TStrings の解説を読みましょう)。
　その条件の場合、subitems.strings[0] と Edit2.text の
　 "文字列"が一致した場合のみ、ヒットするようです。
if ListView1.Items.Item[i].SubItems.Strings[0] = Edit2.Text then
の代りに、
if Pos(Edit2.Text,ListView1.Items.Item[i].SubItems.Strings[0]) = 1 then
でも置けば、当座の用はしのげるかと。
1文字目であったのが幸いし、2 Byte も 1 Byte も関係無いようですので。

0041デフォルトの名無しさん

NGNG

>>37
某雑誌であらいぐまパスカルと言う生物がいた。

0042デフォルトの名無しさん

NGNG

Del厨がキャラクターです

0043デフォルトの名無しさん

NGNG

image.pictureに読み込んであるビットマップの明度を変えたいのですが、
「順番にピクセルの色情報にアクセスして、値を変えて戻す」しか方法は無いのでしょうか？

0044デフォルトの名無しさん

NGNG

なんで「.Free」のように開放するんですか？

0045冬月

NGNG

開放しないと暴れ出すからです。
エバ１号機が良い例です。
詳しくはアカギリツコ博士に聞くと良いでしょう。

0046デフォルトの名無しさん

NGNG

真面目に聞いてるんだからちゃんと答えてくれないと起こるよ？

0047デフォルトの名無しさん

NGNG

じゃあなんで.freeで開放するという話を知りたいの？

0048デフォルトの名無しさん

NGNG

気になって夜も寝れないから

0049デフォルトの名無しさん

NGNG

今まではVB使ってたんですか？

0050デフォルトの名無しさん

NGNG

オナニーにつかったティッシュ置いてても部屋の幅取ってムダだから
freeしてゴミ箱に捨てる

0051デフォルトの名無しさん

NGNG

今まではHSPを使ってました。いいから早く教えてくださいよ

0052デフォルトの名無しさん

NGNG

set obj=Nothing

0053デフォルトの名無しさん

NGNG

>今まではHSPを使ってました。いいから早く教えてくださいよ

........。

0054デフォルトの名無しさん

NGNG

何ですか？HSPからDELPHIに移行するのはだめなんですか？うん？

0055デフォルトの名無しさん

NGNG

本当はネタなんだろ？

0056デフォルトの名無しさん

NGNG

取りあえずCの本を参考にして勉強でもしとけ。

0057デフォルトの名無しさん

NGNG

classの解説をしてる本ならどれにでも載ってそうな話なんだがな＜Freeで解放

0058デフォルトの名無しさん

NGNG

>>54
だめです。
VC++を使いましょう。

0059デフォルトの名無しさん

NGNG

無料が大好きだからです

0060デフォルトの名無しさん

NGNG

安物買いの銭失い。

0061デフォルトの名無しさん

NGNG

HSPとVBから違う言語に移行する場合、手首を豪快に切った後自力で生き延びる程の苦しみと努力が伴います。

0062&hearts

NGNG

♥

0063♥

NGNG

test

0064♥♣&diamonds;♠

NGNG

♥♣♦♠

0065デフォルトの名無しさん

NGNG

Direct3Dを使わないで
テクスチャ付きポリゴンをTBitmapにScanLineで高速に描く方法を伝授希望！

0066デフォルトの名無しさん

NGNG

ハードウェアサポートを使わずに。ということ？
TBitmap に書く時間より、テクスチュア付きポリゴンのレンダリングのほうが時間がかかると思うぞ。

0067デフォルトの名無しさん

NGNG

ハードでなくソフトで。

0068デフォルトの名無しさん

NGNG

>>65
１．Direct3Dを使わないで
OpenGL
２．TBitmapにScanLineで
TBitmapで高速は不可能

0069デフォルトの名無しさん

NGNG

TRichEditでは「文字などを選択したときの色」は
TRichEdit.ColorのRGB反転した色になっちゃうんですが、
この「文字などを選択したときの色」を変えるか指定する方法を教えてください。

背景色との相性が悪すぎで困ってます。
どうかよろしくお願いします。

0070デフォルトの名無しさん

NGNG

>>69
コントロールパネル

0071デフォルトの名無しさん

NGNG

ファイルストリームのReadComponentでstringgridを読み込むと
TInplaceEditが見つかりません。と表示されてエラーになるのですが
どうしたら回避できますか？

0072デフォルトの名無しさん

NGNG

マウス操作のフックについて質問があります。
DLLでフィルタ関数をインストールしてシステム全体をフックする処理で、
DLL内で、APIから渡されたメッセージをアプリケーションに送ったあと、
CallNextHookExで次のフックに渡しているところを、
DLLから受け取ったメッセージをアプリケーション内で条件分岐で処理したあとに
次のフックにメッセージを渡すかどうか決定したいのですが、どのようにすればいいのでしょうか？
DLL内で条件処理までやってしまった方がいいのですか？

色々調べると、フックのときはなるたけ、DLL内の処理はシンプルにすべきとあるのですが。

用途は、左ボタンを押している状態で右クリックされたら、ファイルを起動するという様な処理をいくつか実現したいのですが。
(Orchisとかで実装されてる様な機能)

メッセージは次のフックへ垂れ流しでも悪くはないのですが、アプリケーションでなんらか処理したあとに
本来の右クリックの機能が実行されるとあまりうまくないので、条件わけしたいということです。
よろしくお願いします。

0073デフォルトの名無しさん

NGNG

自作（TStringGrid からの継承含む）の stringgrid ?
それとも TStringFrid そのもの？

実行時パッケージを使うようにして再コンパイルしなおすを結果は変わりますか？

0074デフォルトの名無しさん

NGNG

>>72
そこまでできるなら、実験して御覧なさいな。
人に聞くより結果を出したほうが早い。
それに処理内容によるから正解は無いよ。

0075デフォルトの名無しさん

NGNG

>>72
使ってみて特に重くなければいいのでは？

007672

NGNG

>>74-75
一応実装して試しては見たのですが、(不具合無く動作してます）
セオリーのようなものがあれば聞いておきたいなと思いまして。
処理的にまずいことしてる気がしてならなかったので。

別に重くなるようなこともないので、DLL内で処理したものでしばらく使ってみて
様子をみますです。
ありがとうございました。

007771

NGNG

>>73
TStringGridそのものです。

実行時パッケージというのは初心者故よく分かりません。

0078デフォルトの名無しさん

NGNG

WideStringをファイルに保存するのに一番簡単な方法は何ですか？

0079デフォルトの名無しさん

NGNG

>>78
TFileStreamでしょう。

008069

NGNG

>>70
もう少し詳しくお願いします。
TWinControlのことですか？

0081デフォルトの名無しさん

NGNG

変なWindowsテーマにしてるんじゃないの？
普通は白黒反転でしょ

008269

NGNG

>普通は白黒反転でしょ

えーと。
その例だと、背景色が白だと選択箇所は黒になるじゃないですか、
その黒色を任意の色に変える方法がわからないのです。

TMemoならWindowsテーマの「選択項目」の色になるのですが
TRichEditの場合はRGBが逆転した色（青なら黄に、緑なら桃色に）になっちゃうんです。

みなさんhtmlエディタもどきとか作るときにはRichEditなんか使わないですか？

0083デフォルトの名無しさん

NGNG

TStringListのIndexOfメソッドですが、
アルファベットの大文字、小文字は区別しないんでしょうか？
（Del5での確認では区別しない様子）
この辺の仕様はヘルプのどこ見ればいいでしょうか？

008469

NGNG

>>83
>この辺の仕様はヘルプのどこ見ればいいでしょうか？

TStringList.IndexOfに書いてありますよ

0085デフォルトの名無しさん

NGNG

D6以降ではCaseSensitiveプロパティがあるよん

008683

NGNG

これしか書いてないです．．

説明
IndexOf メソッドを呼び出すと，
S パラメータで指定する文字列の最初のインデックスを取得できます。
IndexOf は文字列の 0 ベースインデックスを返します。
このため，S がリストの最初の文字列に一致する場合に IndexOf は 0 を返し，
S が 2 番目の文字列の場合に IndexOf は 1 を返し，という対応になります。
また，文字列が文字列リストにない場合は，IndexOf は -1 を返します。

008769

NGNG

>>86
スマソ。D6で新しく加わってたのね。勉強不足でした。

IndexOf メソッドを呼び出すと，S に一致する文字列が最初に登場する位置の添字を取得できます。
文字列は，S と同一の場合は完全一致で，CaseSensitive プロパティが False の場合には大文字と小文字の区別のみが S と異なります。

とのこと。でもこれはD6のヘルプに載ってたことだからD5でも使えるかどうか・・

0088デフォルトの名無しさん

NGNG

>>57
なんで教えてくれないの？classはやっぱ機密情報なの？

0089デフォルトの名無しさん

NGNG

88.Free

0090デフォルトの名無しさん

NGNG

>>69
TRichEditの反転色の変更ですが、なんとも難しいです。
TRichEditはW32.RichEditを内包していて
　文字色変更　EM_SETCHARFORMAT
　背景色変更　EM_SETBKGNDCOLOR
で行えますがそれぞれの反転色の指定は分からないです。存在しないのかもしれません。

TMemoはW32.Editを内包しているためTRichEditと挙動が異なるのでしょう。

W32APIスレに行くともっと情報が得られると思います。役立たずですみません。
http://pc2.2ch.net/test/read.cgi/tech/1047819779/

0091デフォルトの名無しさん

NGNG

>>82
じゃあ、相性の良くなる色を選べば？
っていうか、背景を青とか緑にしない方がいい。
ユーザーが他人ならば、迷惑この上ないです。

009290

NGNG

>>91
目に優しい配色に設定するつもりが、反転色の制約を回避するべく妥協色を選び、
気がついたら自分ののデスクトップを珍妙奇天烈な色設定にしたことがありますよ。
（結局標準に戻しましたが。）

自由に変更するテクニックが存在するなら私も興味あります。選択はユーザーに
任せればいいわけですし。

0093デフォルトの名無しさん

NGNG

>>89
なるほど。よくわかったよ( ´,_ゝ )ﾌﾟｯ

009429

NGNG

>>40
ありがとうございます。
ついにできました！！
ほんとうに感謝です。
ありがとうございました(^o^)丿

0095デフォルトの名無しさん

NGNG

無視されても調べずもう一度きくやつは
真性教えて君。

0096デフォルトの名無しさん

NGNG

>>88
ほんとに誰も答えてないな
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
デストラクタDestroyは参照するインスタンスがnilだとエラーになるので
Freeの使用が推薦されている

なおCustomFormとその派生クラスでは
フォームのイベントキューにあるメッセージを処理し終わってから開放するために
Releaseの使用が推薦されている
（ReleaseはキューにCM_RELEASEを送って
　そのメッセージを処理する形でFreeを呼び出す仕組みになっている）

0097真性教えて君

NGNG

>>96
(´・∀ `)ﾍ-。よくわかんないけど分かったよ。ありがとう

0098デフォルトの名無しさん

NGNG

＞デストラクタDestroyは参照するインスタンスがnilだとエラーになるので

ニルポ

0099真性教えて君

NGNG

>>98
何？ニルポって何？彼の言ったことは嘘だったの？？うん？　

0100デフォルトの名無しさん

NGNG

>>98
　（　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　　 |　|
　　Ｙ　/ノ　　　人
　　　 /　）　　 < 　>__Λ∩
　＿/し'　／／. Ｖ｀Д´）/
　（＿フ彡　　　　　　　/ 　

0101真性教えて君

NGNG

何？何でお前らたちだけで楽しそうにやってるの？俺も混ぜろよ(　ﾟдﾟ)ﾎﾟｶｰﾝ

0102デフォルトの名無しさん

NGNG

ニルポでも殴るのかよっ！

0103デフォルトの名無しさん

NGNG

こないだ「にるぽ」って書いたら
「がんばれ」って言われた

0104デフォルトの名無しさん

NGNG

>>103
ﾜﾗﾀ

0105デフォルトの名無しさん

NGNG

Windowsコンポーネントください

0106デフォルトの名無しさん

NGNG

　（　・∀・）　　　|　|
　と　　　　）　　 |　|　ｶﾞｶﾞｶﾞｯ
　　Ｙ　/ノ　　　人人人
　　　 /　）　　 < 　>__ΛΛΛ∩
　＿/し'　／／. Ｖ｀Д´）´）´）/
　（＿フ彡　　　　　　　/ / / 　←>>102-104

0107初歩的ですみません

NGNG

ListViewのScrollBarを縦方向のみの表示したいのですが
どうすればできるのでしょうか？

0108デフォルトの名無しさん

NGNG

前スレでDelphi用のAPIリファレンスが欲しいと言ってた者ですが、
とりあえず大学の図書館から「win32APIリファレンス」っていう
お高いリファレンス借りて来ますた。Delphi用じゃないですが、
とりあえずこれで勉強してみます。

010969

NGNG

>>90
解説ありがとうございます。
やっぱり簡単にはいかないみたいですね・・。

>>91
もちろん自分用に作ってます。
背景を濃い色とかの落ち着く色にすればするほど
反転色がケバケバしくなるんですよ。
とりあえず今は中くらいの色で妥協しました。

0110デフォルトの名無しさん

NGNG

ActionListコンポで、Actionを設定すると
Captionまで変わってしまうのですが、こうならないようにするにはどうすればいいですか？

0111質問すみません

NGNG

IMEの単語/用語設定画面の
読みを入力するEditのように、
ひらがなを入力するとEnterを押さずに
ひらがながEditに入力されていくようにするには
どのようにすればいいのですか？
分かりにくい説明ですみません。
どうかよろしくお願いします。

0112110

NGNG

解決しました

0113デフォルトの名無しさん

NGNG

自作アプリから他のアプリを操作するにはどうすればいいのでしょうか？
例えば自作アプリからWinampでmp3を再生、停止させたり…など。

0114デフォルトの名無しさん

NGNG

>>113
色々です。基本的にあるプロセスは他のプロセスから保護されるものという
（オブジェクト指向と根は同じ）考え方基づき、やり方は幾つかの上策と
その他の下策に分けられます。

一番の上策は、操作される側のアプリが操作する側にインターフェースを公開して
あることです。winampやirvine、office製品群、ieなどが当てはまります。
ActiveXの取り込みでexeやtlbが取り込めるタイプがこれです。

0115デフォルトの名無しさん

NGNG

>>113
FindWindowEx等でWinamp内のボタンのハンドルを取得します。
あとはSendMessageでクリックBM_CLICKを投げるなどをすると良いのではないでしょうか。

0116デフォルトの名無しさん

NGNG

>>111
Edit等にキーが送られた時に自分でIMEにそのキーを送り、即座に入力させるというのはどうでしょうか。

0117111

NGNG

>>116
すみませんもう少し詳しくお願いします。
無能なので理解できませんでした
すみません<(__)>

0118デフォルトの名無しさん

NGNG

今、Delphi6で作ってるんですが、
これを7でコンパイルしたときに自動的にXPヴィジュアルに対応するのでしょうか？
それともコンポーネントを入れ替えなきゃ駄目なのですか？
今使ってるコンポーネントは6に最初から入ってたやつだけです

0119デフォルトの名無しさん

NGNG

>>114さん、>>115さんありがとうございました。
WinAPIですね。

0120デフォルトの名無しさん

NGNG

Edit1KeyPress
母音が押されたときにVK_RETURN

で似たようなことは出来そう

0121デフォルトの名無しさん

NGNG

>>65

Bmp.PolyMap(MapBmp, [Point( x1,y1),... ] );

0122デフォルトの名無しさん

NGNG

>>118
http://www.google.co.jp/search?num=20&hl=ja&inlang=ja&ie=Shift_JIS&c2coff=1&q=manifest+%83r%83W%83%85%83A%83%8B%83X%83%5E%83C%83%8B&lr=lang_ja

0123デフォルトの名無しさん

NGNG

Form1とForm2があるとして、Form2がアクティブの際は
（Form2が閉じられるまでは）Form1へフォーカスを
移せないようにするにはどうすればいいのですか？

0124デフォルトの名無しさん

NGNG

Form2.ShowModal;

0125デフォルトの名無しさん

NGNG

Form2.Free

0126デフォルトの名無しさん

NGNG

Delphiの先生方
どうかお力をお貸しください

DBGridで縦・横のスクロールを
表示するレコードに関係なく常に表示無しにしたいのですが
何かよい方法はありませんでしょうか？

0127デフォルトの名無しさん

NGNG

>>122
勉強になりました。頑張ってやってみます

0128デフォルトの名無しさん

NGNG

>>126
DBGridを継承して、ScrollBarsにssNoneを入れる。

0129デフォルトの名無しさん

NGNG

>>128
DBGridを継承したコンポを
作れということでしょうか？

ちなみに

TGridchan = class of TCustomGrid
TGridchan(DBGrid1).ScrollBars := ssNone;

は試しましたがだめでした

0130デフォルトの名無しさん

NGNG

> DBGridを継承したコンポを
> 作れということでしょうか？

そう。

0131114

NGNG

>>113
昨日はいい加減なことを言ってすみませんでした。
winampはタイプライブラリを公開していないようです。私の勘違いでした、すみません。

そのかわり、winampは外部からメッセージを送信することで操作できます。
詳細は公式サイトからsdkを落としてください。frontend.hに纏まっています。

0132111

NGNG

>>120
begin
if LabeledEdit1.OnKeyPress(A) then
begin
VK_RETURN
end;
end;
とするとAは未定義だよと怒られます…。
まず、母音vowelというものはヘルプに載っていませんでしたので。
Key関係のｲﾍﾞﾝﾄはサッパリ分かりません…。
ASCIIとかなんだとか。
どうか助けてください。
Aを何とかけばいいのですか？
ｷｰﾎﾞｰﾄﾞのAキーを押した時というふうにしたいです。

0133よく考えずカキコ

NGNG

'A' 　じゃダメなの？

0134デフォルトの名無しさん

NGNG

Delphiの印刷ツールってなにがいいですか？
教えてください。

0135デフォルトの名無しさん

NGNG

TPrinter

013671

NGNG

誰か>>71にもこたえてちょうだい。(´･ω･`) ｼｮﾎﾞﾝﾇ
　 ∧＿∧　　
(´･ω･`) ｼｮﾎﾞﾝﾇ
（　　　　）　
　｜｜｜　 |
　（＿_）＿）

0137デフォルトの名無しさん

NGNG

TInplaceEditが無くなっちゃったみたいだから探そうぜ！

0138デフォルトの名無しさん

NGNG

タブ区切りのテキストをCSVに変えるにはどうすればよいのでしょうか

0139デフォルトの名無しさん

NGNG

>>136
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=TInplaceEdit%E3%81%8C%E8%A6%8B%E3%81%A4%E3%81%8B%E3%82%8A%E3%81%BE%E3%81%9B%E3%82%93&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja

0140デフォルトの名無しさん

NGNG

FormCreateあたりでRegisterClass(TInplaceEdit);ってやればよいのでは。
但しグリッドの内容は保存されない罠。

0141デフォルトの名無しさん

NGNG

>138
CommaText

0142デフォルトの名無しさん

NGNG

>>133
Edit内でAが押された場合にメッセージが出る

procedure TForm1.Edit1Change(Sender: TObject);
begin
if GetKeyState(Ord('A')) < 0 then begin
ShowMessage('Edit1の中でAを押したね？');
end;
end;

これをShowMessageじゃなくてRETURNキー(変換確定)押させるようにすれば、
Aで「あ」に。A以前にKが押されてたら自動的に「か」になる仕組みになるかと思ったけど、
Ord('A')じゃ、「あ」とは別ものみたいで、ひらがなが押された時ってのはよくわかんない。

0143デフォルトの名無しさん

NGNG

(ﾟДﾟ)　誰もカキコしてないぞｺﾞﾙｧ

0144デフォルトの名無しさん

NGNG

('A')ｺﾞﾙｧ

0145デフォルトの名無しさん

NGNG

おまいら、そろそろプロジェクトXの時間だぞ。

第111回　4月15日放送予定
「家電革命　トロンの衝撃」
http://www.nhk.or.jp/projectx/yokoku/yokoku.html

0146132

NGNG

>>133
無理でした（;´Д⊂）
>>142
詳しいﾚｽほんとうに感謝です。
ありがとうございます。
ひらがな入力のときにAキーを押しても反応しないですね…
お手上げですね。
あきらめます…。
また勉強してると閃くかもしれませんし

0147デフォルトの名無しさん

NGNG

何がスーパーだ。アメリカめ。

0148デフォルトの名無しさん

NGNG

こんなのアンフェアだよ。

0149デフォルトの名無しさん

NGNG

TRONまんせー！

俺は今から超漢字を使うぞ。

0150デフォルトの名無しさん

NGNG

携帯の発達はトロンのおかげだったのか。

0151デフォルトの名無しさん

NGNG

俺も超漢字使うよ。

0152デフォルトの名無しさん

NGNG

技術者の鏡だな。

0153デフォルトの名無しさん

NGNG

感動した！！

0154デフォルトの名無しさん

NGNG

コンピューターはいつまでやっても飽きない！

俺史に残る名言だぞ。

0155デフォルトの名無しさん

NGNG

トロンってこれ？結構いいかも。使ってみたいけどどうやって手に入れればいい？
http://www.katakuri.sakura.ne.jp/~molless/v-net/v20002/2111/2110b.htm

0156喧嘩王 ◆52.FsIEe7o

NGNG

仲間ﾀﾝ見てたぜ
ﾌﾟ━( ´,_ゝ`)━( ´,_ゝ)━( ´,_)━( ´,)━( )━m9( ﾟ,_ゝﾟ)ﾌﾟｯ!!

015771

NGNG

>>139
とりあえずサンクス湖

0158デフォルトの名無しさん

NGNG

官僚の選択は正しい！
トロン使ったら貿易摩擦で大変です。
代償に農産物自由化を強く迫られ。
米農家が死滅しますよ。

0159デフォルトの名無しさん

NGNG

>米農家が死滅しますよ。

どうでもいい。PCあれば毎食パンでも良いよ。

0160デフォルトの名無しさん

NGNG

ヲタの匂いがする( ´ゝ`)ﾌﾟｰﾝ

0161デフォルトの名無しさん

NGNG

きみたちは農家を守ろうという気持ちはないのですか？
アメリカOSを輸入してあげるくらい、いいじゃないですか！

0162デフォルトの名無しさん

NGNG

Delphiに関税でもかけるか

0163Delしぃ

NGNG

雑談は他のところでやってるくれる？

0164デフォルトの名無しさん

NGNG

目がトロン

0165デフォルトの名無しさん

NGNG

パトロン

0166デフォルトの名無しさん

NGNG

バビロン

0167デフォルトの名無しさん

NGNG

型付定数でのコンパイラ指令の{$J}って、コードのどこに記述すればいいのでしょうか？
色々な所に記述しているのですが、エラーになります。

0168デフォルトの名無しさん

NGNG

+/-を付けてないとか

0169167

NGNG

ありがとうございました。できました。
+とか-とかあったのですね。

0170デフォルトの名無しさん

NGNG

TLabelとTImageを持ったクラスを作るにはどうすれば良いですか？

0171デフォルトの名無しさん

NGNG

そのままじゃん・・・

0172デフォルトの名無しさん

NGNG

TYourClass = class
public
　property Label: TLavel read FLabel;
　property Image: TImage read FImage;
end

0173170

NGNG

プロパティ使うことすら気付きませんでした…。
ありがとうございました。

0174デフォルトの名無しさん

NGNG

HPのデータダウンロードしたいのだけれど
どうすればよい？

エクセルのWEBクエリみたいなやつ

0175デフォルトの名無しさん

NGNG

ちょっと前に multipart/form-data でアップする方法について質問したのですが、
アップできません。。。何が原因なのでしょうか？
http://forgamedev.zombie.jp/uploader/up5/upload.php

エラーは出ません。
リロードしただけのようです。

　S := 'POST /uploader/up5/upload.php?MAX_FILE_SIZE=1048576&pass=a&com=test HTTP/1.0' + #13#10;
　S := S + 'Host: forgamedev.zombie.jp' + #13#10;
　S := S + 'Accept-Language: jp , en' + #13#10;
　S := S + 'Content-type: multipart/form-data, boundary=ABCD0123' + #13#10;
　S := S + #13#10;
　S := S + '--ABCD0123' + #13#10;
　S := S + 'content-disposition: form-data; name="upfile"; filename="test.txt"' + #13#10;
　S := S + 'Content-Type: text/plain' + #13#10;
　S := S + #13#10;
　S := S + 'testdesu' + #13#10;
　S := S + '--ABCD0123--' + #13#10;
　S := S + #13#10;

スレッドのExecuteで、
　Stream := TWinSocketStream.Create(FClientSocket.Socket, 6000);
　try
　　Stream.Write(S[1], Length(S));
　　while Stream.WaitForData(Stream.TimeOut) do
　　...
とやっています。

0176デフォルトの名無しさん

NGNG

>>174
ググればすぐわかるだろイカ

0177デフォルトの名無しさん

NGNG

パーソナル版でシェアウェア公開してて逮捕された人いますか？

0178デフォルトの名無しさん

NGNG

さぁね。
刑事罰ではなく某が親告しなければ成り立たない親告罪だし。
ただ、ばれたときにどれだけの非難が集まるかを考えるべき。
逮捕以外にも、責任を問われる形は多数あることを忘れずに。

なお、パーソナルで作ったかどうかは簡単にチェックできますよ。

0179デフォルトの名無しさん

NGNG

え？Personal版でｼｪｱ作ったらいけないの？
今おもいっきりPersonal版で作ってるよ…

0180デフォルトの名無しさん

NGNG

割れもののエンタなら大丈夫だな

0181デフォルトの名無しさん

NGNG

Borland Delphi 7 Studio Enterprise
希望小売価格
360,000円（税別）
買えるか(怒)
6のPersonalはｼｪｱだめなんですよね？
それならば
7のPersonalでもだめなのですか？

0182デフォルトの名無しさん

NGNG

2ch の書き込みを真に受けるなよ...
気にするなら Borland にメール出してみなさい。それが唯一の解決方法。

0183デフォルトの名無しさん

NGNG

>>181
７のﾊﾟｿﾅﾙも駄目だよ
定価10000円だけどね

0184動画直リン

NGNG

http://www.agemasukudasai.com/movie/

0185デフォルトの名無しさん

NGNG

>>183
撤回されてますが？

0186デフォルトの名無しさん

NGNG

徹底の間違いでしょ。

0187デフォルトの名無しさん

NGNG

http://www.borland.co.jp/delphi/del7/feamatrix/
＞商用・業務アプリケーションの開発
○ついてないけどシェアウェアはこれには該当しないってこと？

0188デフォルトの名無しさん

NGNG

撤回されたのはProのアカデミック版でしょ。
Personalでシェアウェア作っちゃダメでしょ。

0189デフォルトの名無しさん

NGNG

だめだよ。都合よく解釈したら。

0190デフォルトの名無しさん

NGNG

Del スレを age 荒らししてる .NET 厨がおる…

0191デフォルトの名無しさん

NGNG

じゃー7のProfessionalはｼｪｱつくってもいいんだよね？

0192デフォルトの名無しさん

NGNG

>>191
ええよ

0193デフォルトの名無しさん

NGNG

6持ってるけど、7を買う価値はあるの？

0194デフォルトの名無しさん

NGNG

Personalはｼｪｱだめなのか…
危なかった。
今週中にVectorに登録しようとしてたとこだ。
あきらめてﾌﾘｰにするか…
ｼｪｱで稼いで大学の授業料を稼ごうと思ったのだが

0195デフォルトの名無しさん

NGNG

>>194
大学の授業料が浮くくらい稼げそうなソフトなら
Proを買っても元がとれるでしょ

0196193

NGNG

>>194
そんなたいそうなｿﾌﾄじゃないんです…
ｼｪｱにしてもとりあえずは500円にしようと思っていました。
この次は気合の入ったちょっとしたｿﾌﾄを
作ろうと思っていました。
MXで割れ物とかは嫌ですし
力作ｿﾌﾄを作れそうになったときになるまで
お金貯めることにします。

0197デフォルトの名無しさん

NGNG

カンパウェアなら商用じゃないと言い張れるんじゃないかな。

0198デフォルトの名無しさん

NGNG

Delphi 6.0 PersonalをVBみたいにMDIにしたいのだが、どうすれば良いのだろう・・・

0199193

NGNG

あのさ、俺ってこう見えても短気だから、早く答えてくれないと怒るよ？え？

0200デフォルトの名無しさん

NGNG

>>193
あります。

0201デフォルトの名無しさん

NGNG

>>193
ありません。

0202デフォルトの名無しさん

NGNG

>>200
>>201
どっちやねん!!

0203デフォルトの名無しさん

NGNG

>>202
pro買えってこった

0204デフォルトの名無しさん

NGNG

193
↑あなたはどう見えますか?

0205デフォルトの名無しさん

NGNG

>>193の場合は買う必要なし。
6も、持ってるだけじゃだめだ。

0206デフォルトの名無しさん

NGNG

　TOpenDialog（やTSaveDialog）で開くダイアログのフォーム名は何なのでしょう？
　Wnd := FindWindow('TForm1', nil);
　if Wnd = GetForegroundWindow then Exit;
というような処理をしたいのです。

0207デフォルトの名無しさん

NGNG

Delphi.NETよりSideWinder(Borland製C# IDE)が先に出るんだって。
C#死滅よりDelphi死滅の方が現実味を帯びてきたね。

0208デフォルトの名無しさん

NGNG

海外の比較的マイナーな文学作品を翻訳出版する
小さな出版社がある。そして文学ファンはこういった出版社を
潰さないため、今後も翻訳を続けてもらうために
１人で同じ本を２・３冊買うことが良くある｡

我々もこういう時だからこそDelphi7を買って
ボーランドを支えるべきなんじゃないだろうか。
Delphi7の売り上げはDelphi8以降の開発資金となるし、
ボーランドジャパンの今後に大きな影響をもたらすだろう。

Delphi7の出来のみを云々するのは
あまりにも近視眼的ではないだろうか？

0209193

NGNG

もう怒った。本当に怒った。ウィニーで7を落としてやるよヽ( ｀Д´)ﾉｳﾜｧｧｧｧﾝ

0210デフォルトの名無しさん

NGNG

TStringList内に複数ある文字列の位置をそれぞれ取得したいと考えています。
例えば

123
456
78
912

とTStringListにある場合、「12」が二つありますよね。
それぞれの「12」の位置を得たいのですが…
どういった書き方をすればいいのか、ご教授お願いします。

0211デフォルトの名無しさん

NGNG

Delphi3を使ってシェア作ればいいよ。

0212デフォルトの名無しさん

NGNG

>>210
ループ回して、AnsiPos()でチェックするんじゃだめ？
for i:=0 to (sl.Count-1) do
begin
　　j:=AnsiPos('12',sl.Strings[i]);
　　if j <> 0 then
　　begin
　　　{'12'がありました}
　　end;
end;

0213デフォルトの名無しさん

NGNG

パーソナルでシェアウェアを作るスレ

0214デフォルトの名無しさん

NGNG

>for i:=0 to (sl.Count-1) do
括弧悪い

0215

NGNG

つーか、シェアウェア買う気持ちが分からん。
５００円ならいいって思っちゃうのかなぁ？

0216デフォルトの名無しさん

NGNG

つーか、普通フリーを使うからね。
シェアで儲かるのは市販レベルのみ。

0217　

NGNG

>>216
んだ。
「儲かってる」レベルなのは、ほんの一握りだと思う。

でも５００円とかそーゆーのでも金払う人がいることに納得がいかない。
かの有名なCompJapanとか（藁
まぁ、直接関係無いのでこの辺で…。

0218デフォルトの名無しさん

NGNG

シェア料金って、そのソフトに対して払うものなの？
俺は、恵まれてなさそうな境遇の子供への義援金だと思って払ってたよ

0219佐々木健介

NGNG

　　　　　＿＿＿＿_＿
　　　／＿　　　　　　|
　　 /.　＼￣￣￣￣|
　　/　　／　 ―　― |
　　|　 /　　　-　　- |
　 ||| (5　　　　　　>　|
　| | |　　　　 ┏━┓|　　／￣￣￣￣￣￣￣￣￣￣
| | | | 　　　　┃─┃|　＜　こんなサイトを見つけた
|| | | | 　＼　┃　 ┃/　　＼　　正直、スマンカッタ
| || |　|　　　￣　　　　　　　　　＼＿＿＿＿＿＿＿＿＿
http://freeweb2.kakiko.com/mona/

0220193

NGNG

>>219
るるせーーー氏ねええええええええ！！！！！！！！！！！！

0221210

NGNG

>>212さん、ありがとうございます。
そのコードで12があった場合位置をShowMessageさせるようにしてみたのですが
どうも挙動がおかしい気がします。
AnsiPos()で取得した位置をShowMessageさせるようにしてみたんですが
「1」と「2」が返ってきます。実際は一行目と四行目にあるのに…どこか間違っている点があれば
引き続き教えていただきたいのですが…

0222デフォルトの名無しさん

NGNG

AnsiPoS で取得できる数値は、"文字列内"の"指定文字列"の位置です。
TStringList 内の該当項目を列挙したいなら、ループ変数を返すべきでしょう。

210の
>それぞれの「12」の位置を得たいのですが…
を読んだ人間の殆どは、"文字列内の位置"を取得したいのだ、と読解したと思われます。
TStringList 配列内の該当項目の Index を得たいと言う風には、解釈しかねたはずです。

0223　

NGNG

寝ちゃったかな？
よーするに「i」を得たかったワケだ。

0224デフォルトの名無しさん

NGNG

>>210
よくありそうなアルゴリズム。がんばれ。

0225デフォルトの名無しさん

NGNG

今考えたらCompJapanも一応効果がある場合もあったんだな

0226デフォルトの名無しさん

NGNG

Application.ProcessMessage()というのは、APIでいうと何なのでしょうか？
特殊な仕組みで実現してるのでしょうか？

0227デフォルトの名無しさん

NGNG

>>212
それはデータ量の2乗に比例するアルゴリズムだから、サイズが判ってる時以外は、使っちゃダメ。
そんなの使ってると、VB屋って呼ばれちゃう。

>>210
まず、StringList にある Objects に自分の番号振ってからソートさせた後
連続する２行が一致するかどうか調べます。
見つかったら Objects から下の番号を報告します

0228A

NGNG

>>227
同じデータがある行を調べたい。ってわけじゃないと思うけど…

>>210は、ある特定のデータを含む行のリストアップをしたいのでは？
それなら、>>212の方法でもデータ量に正比例しかしないし、
例題みたいに、一部に含まれる、なんてのはソートじゃ見つからないんじゃ

0229デフォルトの名無しさん

NGNG

>>214
ワラタ（ｗ
昔TStringListを処理するルーチン書いたときオレもそう思ったもんだ。
今ではもう慣れたけどな

0230デフォルトの名無しさん

NGNG

>>226
キューにたまってるメッセージを処理するので
基本的にメッセージループと同じでし
（中でApplication.Runと同じメソッドを呼び出してまふ）
結局、おなじみの
　PeekMessage、TranslateMessage、DispatchMessage
が出てきまふ

0231デフォルトの名無しさん

NGNG

>>227
それって重複する文字列を調べる方法じゃない？

0232デフォルトの名無しさん

NGNG

バイト配列を TBits に展開したいのですが、良いアルゴリズムはないでしょうか。

Procedure Bit(Bytes : Byte; Index : Integer;var bits:tbits);
var
i,o:Byte;
begin
for i := 0 to 7 do
begin
o := ((Bytes shr (7 - i)) shl 7);
bits[i + Index] := Boolean(o);
end;
end;

Procedure Main;
var i:integer;
begin
for i := 0 to (high(Bytedata) -1) do
bit(Bytedata[i],i * 8,bits);
end;

何度かの改良の後、こんな感じで回してるのですが、Athlon 1.4GHzのマシンでも、
600 KB のバイト配列を展開するのに、 100 ms ほどかかってしまいます。
もっとマシな方法を使ってる方いましたら、ご教授ください。

0233デフォルトの名無しさん

NGNG

>>232
それはさすがにasm文で書くべきでしょ

0234デフォルトの名無しさん

NGNG

>600 KB のバイト配列を展開するのに、 100 ms ほどかかってしまいます。
これが本当にボトルネックになっているのか甚だ疑問だけど
速くしたいのならやはり自分で最適なTBitsもどきを書けばいいよ｡

0235デフォルトの名無しさん

NGNG

単純なプログラムでもコンパイルすると４００KBを超えてしまいますね

0236デフォルトの名無しさん

NGNG

はいはい。.NET と同じにしたければ４Ｋバイトくらいになるし。
再配布ファイルは .NET の 1/10 くらいだし。
設計時と実行時に分かれていない .NET のライブラリよりは幾分マシ。

0237デフォルトの名無しさん

NGNG

>>235
ファイルサイズに不満があるなら実行時パッケージを使えば
VC++やVBのように配布サイズを小さくできる
（OSに入ってるわけじゃないからそのためのDLLを別に配布する必要がある
　古いVC++やVBで作られたアプリもXPなんかにはDLLが入ってないから似たような状況になるけど）

VCLを必要としないなら、昔ながらのSDKスタイルで書くことだってできる

0238デフォルトの名無しさん

NGNG

>>232
　パフォーマンスが希望ならコピーしない事だ。
　だから、バイト配列をbit単位アクセスする関数を作って
　カッコウ良くしたいならクラスでラップしなさい。

0239動画直リン

NGNG

http://www.agemasukudasai.com/movie/

0240デフォルトの名無しさん

NGNG

>>237-238

0241ねこま

NGNG

>>232
- Procedure Bit を呼び出すオーバーヘッドを潰す
- わざわざシフト演算でビット位置計算しない
としてみたらどうでしょう？

0242デフォルトの名無しさん

NGNG

プロジェクトファイル名とは違う名前でコンパイルすることは出来ないんですか？

0243デフォルトの名無しさん

NGNG

>>242
どういう目的で？

どうしても別の名前にしたいのなら
コンパイルした後で名前を変えればいいじゃん

0244デフォルトの名無しさん

NGNG

>>242
ないね｡付け忘れたんだろ｡

0245デフォルトの名無しさん

NGNG

ワードやペイントなどでは
プリンタの種類によって選べる用紙サイズを取得していますよね？

これをデルファイでやるにはどうすれば良いのでしょう？

DMPAPER_A3 = 8; { A3 297 x 420 mm }

これでは指定できないですよね。

0246デフォルトの名無しさん

NGNG

>>245
EnumForms
「やさしいスレ」の範囲じゃないだろうけど

0247デフォルトの名無しさん

NGNG

オペラのお気に入りをエクスポートして自作ソフトにインポートしようとしているのですが
オペラからエクスポートされたファイルは
名前の、漢字部分だけが意味のわからない文字列になっています。
あの漢字部分はどういう処理をしたら元の名前に戻るのでしょうか？

0248245

NGNG

>>246
レスありがとうございます。
やっぱりAPIになっちゃうんですね。

0249デフォルトの名無しさん

NGNG

>>247
オペラなど知らん！
とりあえずそのお気に入りファイルをまるごとアップしなさい！
話はそれからだ！

0250ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>247
『オペラ』の『お気に入り』（ブックマーク）はUTF-8で書かれています．
（念のためうちのブックマークを秀丸で読み込んで確認）
『UTF-8 変換』でちょっとぐぐったら…

http://www.tama.or.jp/~y.ohm/memo/del6vcltoc.shtml
・↑によるとDelphi6にはUtf8ToAnsi 関数というのがあるようですね．
　※Personal版にあるかどうかはわかりませんが．

http://www.cityfujisawa.ne.jp/~yanai/xml/terms/utf.html
・UTF-8についての説明があります（さららたん萌え～）
ASCIIコードがわからないときはASCII24あたりの用語辞典を見てください．

あと，Delphi7は確かUTF-8文字列というのがあると思ったのでそれが使えるかも知れません．
　※Personal版にあるかどうかはわかりませんが．

0251デフォルトの名無しさん

NGNG

しました。
では、話をどうぞ。

0252デフォルトの名無しさん

NGNG

メールチェックソフトを作りたいのですが
メールサーバーに問い合わせるように
するには、やはり自分でややこしいｽｸﾘﾌﾟﾄを
書かなければなりませんか？
便利なｺﾝﾎﾟｰﾈﾝﾄはないでしょうか？
Delphi 7 Professionalを使っています。
宝の持ち腐りをしていて
使ってやりたいので。

0253デフォルトの名無しさん

NGNG

>>252
やあ！Indyって使ったことあるかい？

0254デフォルトの名無しさん

NGNG

StringとPCharには互換がありませんと言われました。
StringをPCharに変換する方法を教えてください。

0255デフォルトの名無しさん

NGNG

PChar(String)

0256デフォルトの名無しさん

NGNG

DirectXやる場合どのコンポーネントがいいの？
色々あるから迷う。
全種類インストールしても不具合とか起きない？

0257デフォルトの名無しさん

NGNG

>>252
FastNetでも可。
とりあえず、「SMTP」と「POP3」の言葉の意味を調べることだな。

0258252

NGNG

>>253
>>257
Indy知りませんでした。
ほんとうにProfessionalは猫に小判ですね。
がんばってシンプルすぎるくらいの
軽いﾒｰﾙﾁｪｯｶｰを作ります。
ありがとうございました。

0259デフォルトの名無しさん

NGNG

>>255
ありがとうございます

0260デフォルトの名無しさん

NGNG

>>252
Indyって、Personalでも無料でDLして使えるよね。

0261遅レサー

NGNG

>>225
プラシーボ効果は範疇に入れてはいけません。

0262Indy知らないって？DELPHIやらなくていいよ？ていうかやるな

NGNG

>>258
Indy知らないって？DELPHIやらなくていいよ？ていうかやるな

0263デフォルトの名無しさん

NGNG

OpenDialogというコンポがありますが、Buttonを押したらOpenDialogがShowするようにするにはどうすればいいのでしょうか？

0264　

NGNG

（´-`）。o ○ （>>263にどんなレスが来るのかなぁ…）

0265デフォルトの名無しさん

NGNG

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

0266デフォルトの名無しさん

NGNG

>>265
見事に出来ました。ありがとうございました！

0267デフォルトの名無しさん

NGNG

263死ねｘ99

0268　

NGNG

いや、死なんでもいいとは思うが…。
ヘルプ、読まないのかなぁ？
ま、ネタじゃないとして。

いっくら「やさしい」とはいえ限度っちゅーもんがあると思うが…。

0269デフォルトの名無しさん

NGNG

Explorerの右クリックメニューに自分のアプリを追加する方法をご存知のかた教えてください
ポインタだけでもいいですので。

0270デフォルトの名無しさん

NGNG

>>267
お前が死ね。誰もお前なんて必要としてないんだよ！種の存続のためにも死ね！！

0271デフォルトの名無しさん

NGNG

>>269
DELPHIでは無理

0272デフォルトの名無しさん

NGNG

formをアニメーションで閉じたり・開く設定教えて下さい。

0273デフォルトの名無しさん

NGNG

色の重ね方ですが、Pen.ModeがpmMergeのときに、たとえば
color:=64;{$00000040}とcolor:=63;{$0000003F}をLineToなどで重ねると
127になりますが、color:=64;とcolor:=65;を重ねても65にしかなりません。
129{$00000081}にする方法はないのでしょうか？
ピクセルごとにシコシコと足し算するしかないのでしょうか。

0274デフォルトの名無しさん

NGNG

AnimateWindow(Handle, 1000, AW_BLEND or AW_HIDE);
Close();

0275デフォルトの名無しさん

NGNG

>>273
本当にそういう仕様でいいの？
127と129を足して256になったら
色相が全然変わってしかもほとんど真っ黒になるけど

そういう仕様はほとんど誰も使いたがらないだろうから
想定してないと思うよ、VCLというよりOSそのものが

0276273

NGNG

各色255{FF}を越えたらFFで止まるのが望ましいです。
やはり自分で工夫するしかない、ということでしょうか。

0277デフォルトの名無しさん

NGNG

>>276
特殊な用途らしいですね
それなら自分でなんとかするしかないでしょう
ばんばりませう

0278273

NGNG

わかりました。ありがとうございます。
頑張ってみます。

0279ミ,,ﾟДﾟ彡 ◆A6VzDeLphI

NGNG

>>269
コンテキストメニュー言います。

0280デフォルトの名無しさん

NGNG

>>279
別に叩くワケでも煽りでもあげあしとりでも無いんだが、
それだけのレスってどーなの？
やり方は教えてあげないの？

0281デフォルトの名無しさん

NGNG

>>280
DelphiのIDEでコンポーネントぺたぺた置いて遊んだ経験があるならそれは十分な情報だと思うが。
それ未満の人はDelphiに限らずプログラム全般において才能はないだろう。

0282デフォルトの名無しさん

NGNG

DelphiはVC++とかより、簡単で習得しやすい？

0283デフォルトの名無しさん

NGNG

>>282
クラスライブラリはVCLの方がすっきりしてると思いますな。
言語習得の容易さに関してはあまり差はない。

0284デフォルトの名無しさん

NGNG

>>282
Delphiはすべてにおいて最強です。
あなたもすぐに始めましょう。
世間から置いていかれますよ。

0285デフォルトの名無しさん

NGNG

煽りとかでなくて、率直に聞きたいのですが、
Delphiって将来性ないのですか？
消えていく運命なのですか？

なんか他のスレ見てて心配になったもので、、、　

0286デフォルトの名無しさん

NGNG

>>285
まぁ、あまり先行きは明るくないですな。

しかし、Delphiから得られ、他の言語を使用する際にも役立つものは数多くあります。
これはVBにはないDelphiのメリットといえるでしょう。

最終的には他の言語に移行する前提で勉強してみるのも良いでしょう。

0287デフォルトの名無しさん

NGNG

最初はVC#ライクに標準コントロールだけで一応組める？

0288デフォルトの名無しさん

NGNG

>>285
これから時代は.NETになりますが、
大丈夫です。Delphiは.NETも完全サポートです。

0289デフォルトの名無しさん

NGNG

>>287
＞最初はVC#ライクに標準コントロールだけで一応組める？
それになんの意味があるか知らんが組める。

0290デフォルトの名無しさん

NGNG

> しかし、Delphiから得られ、他の言語を使用する際にも役立つものは数多くあります。
なんですか。それ？

0291デフォルトの名無しさん

NGNG

>>286
Delphi使いはVBに対抗意識を燃やしているというのは本当みたいですね。

0292デフォルトの名無しさん

NGNG

よく分からない>>291が釣れました。

0293デフォルトの名無しさん

NGNG

なんか朝からチャット状態だね

0294デフォルトの名無しさん

NGNG

DelphiスレでVBって言葉を出すと荒れるよ。

0295デフォルトの名無しさん

NGNG

自作コントロール作るのは難しい？
Professionalである程度はできる？
Enterpriseは高い。

0296デフォルトの名無しさん

NGNG

>>295
Personalでも何不自由なくできますが。

0297デフォルトの名無しさん

NGNG

ソース無いのに？

0298デフォルトの名無しさん

NGNG

>>297
何を訳の分からんことを。

0299デフォルトの名無しさん

NGNG

自作コントロール作るのは難しいですが、楽しい難しさなんでガンバッテね。

0300デフォルトの名無しさん

NGNG

俺、趣味でVBしてるんだけど、自作コントロールが作れないので
Delphiに移行しようかなとおもって。

0301デフォルトの名無しさん

NGNG

>>300
もしかしてActiveXのこと言ってます？

0302デフォルトの名無しさん

NGNG

＞俺、趣味でVBしてるんだけど、自作コントロールが作れないので

VBのCCEとかってコントロール作れなかったっけか？

0303デフォルトの名無しさん

NGNG

>>296
データベース関連は全滅。
しかもシェアウェア作れない。
制限ありまくり。

0304デフォルトの名無しさん

NGNG

>>300
VBでコントロール作れないならDelphiでも無理でしょ。

0305デフォルトの名無しさん

NGNG

＞データベース関連は全滅。
別にラッパーがないだけで。

＞しかもシェアウェア作れない。
コストなしで金とろうとするよなと。

＞制限ありまくり。
データベースを使用 or 金を取る
がfalseになるソフトウェアはごまんとあるが。

0306デフォルトの名無しさん

NGNG

VB.NETとより優れてる点教えてくれ。

0307デフォルトの名無しさん

NGNG

>>306
OK、答えてやるよ。
日本語が変だ。

0308デフォルトの名無しさん

NGNG

>>306
そういうの専門のスレでやってくれ

0309デフォルトの名無しさん

NGNG

>>300
プロジェクトにユーザーコントロールを追加してください。
これだけで自作コントロールになります。
ActiveXコントロールにしたいときは、新しいプロジェクトか、
プロジェクトの追加でActiveX コントロールを選択するだけです。

0310デフォルトの名無しさん

NGNG

>>306
Windows95でも動く。

0311デフォルトの名無しさん

NGNG

できることは一緒なんだからわざわざC#を避けてVB.NET使う理由がないからなぁ・・・。

0312デフォルトの名無しさん

NGNG

以上

0313蓮華

NGNG

時折くだら過ぎるリア房の質問だがHSPで音楽が再生できない・・・何故だ・・・。

0314デフォルトの名無しさん

NGNG

>301
VC++とかでしかDLL作ってVBと連動させることはできるらしいが、
VC++習得するのめんどいので。
Delphiの方が楽ならそっちしようかなと思って。

0315デフォルトの名無しさん

NGNG

>>314
取りあえず絶対的な知識レベルの低さを感じるので離すのが面倒。

0316デフォルトの名無しさん

NGNG

C#は楽？
らくちんした～い。

0317デフォルトの名無しさん

NGNG

>315
俺、VBしか知らんので。
コントロールに限界感じてるんよ。

0318デフォルトの名無しさん

NGNG

>>316
作るのは結構楽。配布とかは地獄。

0319デフォルトの名無しさん

NGNG

>>318
どんなことが地獄なの？

0320デフォルトの名無しさん

NGNG

>>319
40MB程度の大きなランタイムエンジンを要求されます。

0321デフォルトの名無しさん

NGNG

>>320
それだけ？

0322デフォルトの名無しさん

NGNG

>>321
Windows95で動きません。

0323デフォルトの名無しさん

NGNG

>>321
それだけ。

0324デフォルトの名無しさん

NGNG

なんだ、たいした問題じゃないね。

0325デフォルトの名無しさん

NGNG

>>321
うむ。それだけで十分だ。
このソフト使うにはJRE1.4入れてね♪並に痛い。

0326デフォルトの名無しさん

NGNG

このソフト使うにはDirectX8いれてとか、IE5いれて程度の問題だね。

0327デフォルトの名無しさん

NGNG

＞このソフト使うにはDirectX8いれてとか、IE5いれて程度の問題だね。

いろんな方面で大問題になってるわけだが。

0328デフォルトの名無しさん

NGNG

>>327
まぁ、それらは.NETと違ってCOMだからね。

0329デフォルトの名無しさん

NGNG

>>328
.NETだって1.0入れた後に1.1入れて、1.1にバグがあったら
1.0で正常に動いていたソフト動かなくなるでしょ。

0330デフォルトの名無しさん

NGNG

>>328
後、FrameworkのバージョンアップによってAPIの挙動が変わる可能性も否定できない。
アプリケーションレベルでのDLL HELLは無くなったかもしれんが、もっと根本的なレベルでDLL HELLが怒る可能性がある。

0331デフォルトの名無しさん

NGNG

アプリケーションレベルじゃない、根本的なレベルってなにをさしているのやら。
抽象的なこといってごまかしんじゃねぇぞｺﾞﾗｧ

0332デフォルトの名無しさん

NGNG

>>329
なりません。

0333デフォルトの名無しさん

NGNG

jconvertで
jconvert.ConvertJCode(Memo1.Lines.Text, JIS_OUT);
とすると、普通の文字なら変換してくれるのですが、
外字ｴﾃﾞｨﾀに登録してある文字(i-modeの絵文字etc)は
文字化けしてしまいます。
これを無事変換できるようにjconvertを書く方法を
教えていただけませんか？
ｽﾚ違いならごめんなさい。

0334デフォルトの名無しさん

NGNG

>>332
　どっちで動かすかいちいちエンドユーザが指定させればね

0335デフォルトの名無しさん

NGNG

>>333
相談室でないと、難しいんじゃない？

その外字コードがどの範囲とか纏めて相談室に書いてみて。　2～３日後でよければ見てみるから

0336333

NGNG

はい相談室ｽﾚ逝ってきます。
ありがとうございました。

0337デフォルトの名無しさん

NGNG

>>331
抽象的な考え方もできないでプログラムは組めません。

0338京都府山科区首塚にて

NGNG

　　　　　　　　　おむすびワッショイ！！
　　　　　＼＼　おむすびワッショイ！！　／／
　+　　　+　＼＼　おむすびワッショイψ！！／+
+　　　　　　　　　　　　　　　　　　//　　　　　　　　　+
.　　　+　　／■＼　　／■＼　//／■＼　　+
　　　　　　（　´∀｀∩（ω∀｀〃）（　´ー｀）
＊　　　　　　￣￣￣　　￣￣　　　￣￣￣　　　

0339デフォルトの名無しさん

NGNG

指定した範囲の乱数を発生させるにはどうすればいいんですか？
例： 5～20　10~100　など
Random関数だと0から指定値-1までの乱数しか作れないようで分かりません…
RandomRange関数を使えばいいんでしょうか？　でもこの関数、
よく使い方がわからないです…　ぐぐっても片手の指の数ほどしか
引っかかってくれないし…

0340デフォルトの名無しさん

NGNG

>>339
足し算の勉強を始めよう。

0341339

NGNG

>>339
いや、申し訳ないんですが意味がよくわからないんですが…
HELP見てもRandom関数は0 <= X < Range の範囲にある
乱数を返すとありますし…

0342デフォルトの名無しさん

NGNG

>>339
向いてないねー

0343デフォルトの名無しさん

NGNG

>>341
例えばだ。

n + 10 (n >= 0)

の値域はいくらだ？

0344デフォルトの名無しさん

NGNG

>>339
０から１５までの乱数に５を足せば５から２０じゃん。

0345339

NGNG

失礼しますた…＿|￣|○ｻﾝｽｳｶﾗﾔﾘﾅｵｼﾃｸﾙﾖ

0346デフォルトの名無しさん

NGNG

閾値のことだろうか。。。

0347デフォルトの名無しさん

NGNG

>>346
ちなみに今何年生ですか？

0348デフォルトの名無しさん

NGNG

http://dictionary.goo.ne.jp/search.php?MT=%C3%CD%B0%E8&kind=jn

定義域のことか。値域なんて初めて聞いた。

0349デフォルトの名無しさん

NGNG

>>339
ヘルプ嫁

0350デフォルトの名無しさん

NGNG

>>348
違うぞ。

ある関数に定義域を適応したときに取りうる値の範囲のことだ。

0351デフォルトの名無しさん

NGNG

ああ、よく読んでいなかった。⇔だから逆か。俺は「～がとりうる値」と言うかなぁ。

0352デフォルトの名無しさん

NGNG

RandomRangeっていつからあったんだ?
こんなのこっそり入れられても気づくわけないだろ｡
Randをoverloadしてくれればいいのに｡

0353デフォルトの名無しさん

NGNG

高校の数学から、関数の定義域、値域って概念がなくなってから何年経つっけ。
いまの若者は集合論も関数論も教わらずに義務教育を卒業しているのです。

0354デフォルトの名無しさん

NGNG

>>353
どうでもいいが高校は義務教育ではないぞ。

0355デフォルトの名無しさん

NGNG

>>352
math unit のだろ。Rand は組み込み関数だからなぁ。

0356353

NGNG

>どうでもいいが高校は義務教育ではないぞ。
自爆。ｳﾂﾀﾞｼﾉｳ...

0357デフォルトの名無しさん

NGNG

>>353は高校が義務教育でないということも教わらずに卒業してしまったんだ。

0358デフォルトの名無しさん

NGNG

大学までが実質義務教育だろ｡
それ未満は正直ﾔｳﾞｧｲ｡

0359デフォルトの名無しさん

NGNG

>>353
やったが、そういう言葉は使わなかったな。

0360デフォルトの名無しさん

NGNG

自己義務教育？
チャンスは保証されてます。ってことでアメリカっぽくなったよなぁ

0361デフォルトの名無しさん

NGNG

>>359
何年ごろはどんな言葉使っていたの？
数学板向きになってきたぞ。

0362デフォルトの名無しさん

NGNG

>>361
5年ほど前だけど、>>351

0363343

NGNG

>>362
今22歳だけど思いっきり教科書とかにも書いてあったYO

0364デフォルトの名無しさん

NGNG

変域・・・？

0365デフォルトの名無しさん

NGNG

>>363
うーん・・・概念はやったけど、値域はまじで初めて聞いたぞ。
ど忘れしたのかな。

0366デフォルトの名無しさん

NGNG

そろそろスレ違いだね。

0367デフォルトの名無しさん

NGNG

やっぱり.NETって便利だね♪

Random.Next メソッド
乱数を返します。

オーバーロードの一覧
正の乱数を返します。
public virtual int Next();

指定した最大値より小さい正の乱数を返します。
public virtual int Next(int);

指定した範囲内の乱数を返します。
public virtual int Next(int, int);

0368デフォルトの名無しさん

NGNG

>>367
いや、足し算一回の手間にわざわざクラス引っ張り出してくることもないと思うのよ。

0369デフォルトの名無しさん

NGNG

>>367
　便利っていうか、バカッっぽいというか。　

0370デフォルトの名無しさん

NGNG

Delphiｻｲｺｰ

System.Random
Math.RandG
Math.RandomRange
StrUtils.RandomFrom

0371デフォルトの名無しさん

NGNG

Delphiっておもしろいね!

0372デフォルトの名無しさん

NGNG

うん。楽しいね。

0373デフォルトの名無しさん

NGNG

>>370
RandomRange は　最近増えた関数だからね。　皆まだD5/D6だから。

0374デフォルトの名無しさん

NGNG

俺は最先端の7

0375デフォルトの名無しさん

NGNG

>>365
聞いたことないて…
常識だぞ。
先生を恨め。

0376デフォルトの名無しさん

NGNG

>>375
乗り遅れた数学厨

0377デフォルトの名無しさん

NGNG

C++Builderｻｲｺｰ

System.Random
Math.RandG
Math.RandomRange
StrUtils.RandomFrom
stdlib rand

0378デフォルトの名無しさん

NGNG

(-＿-)　誰もカキコしてない・・・

0379デフォルトの名無しさん

NGNG

Delスレだもの。ﾏﾀｰﾘﾏﾀｰﾘ

0380デフォルトの名無しさん

NGNG

（；´Д｀）　誰もカキコしなないよ

0381デフォルトの名無しさん

NGNG

>>380
ここは雑談スレじゃないんだし
質問がないということは今のところ誰も困ってないということで
結構なことでは

落ちない程度にスレを見守りましょう
警察と消防と質問スレは暇なほど良い

0382デフォルトの名無しさん

NGNG

age荒らしだろ只の

0383デフォルトの名無しさん

NGNG

質問です。困ってます。
DelphiとVBって、どっちがいいんですか？

0384デフォルトの名無しさん

NGNG

>>383
Delphiです。

0385デフォルトの名無しさん

NGNG

ｼﾞｴﾝ

0386デフォルトの名無しさん

NGNG

StringをTFileStreamをつかってファイルに読み書きしようと思っています。
「書き」の方は
str : String ;
i : integer ;
begin
str := 'test message' ;
fs := TFileStream.Create('test.txt', fmOpenWrite);
try
　i := Length(str);
　fs.Write(i,SizeOf(integer));
　fs.Write(pointer(str)^, i);
finally
　fs.Free;
end;
end;
で書き込めたんですが
再びStringに読み出す方法がわかりません。
fs.Read(i,SizeOf(integer));
fs.Read(str,i);
ではstrを使おうとするとEAccessViolationエラーになってしまいます。
理由はわかっています。
strは文字列のある場所を示すアドレスの入れ物にすぎないからReadで文字列を直接書き込んではいけない・・。
どうやったらうまく読み出せるんでしょうか・・。

TStringListとかを使えば悩まなくてすむんですが
将来的に他の型のデータも一緒に書き込む予定ですのでなるべくならTFileStreamで行いたいと思ってます。
どなたかご助言ください。

※余談ですが今回の件で初めてString型がポインタのようなものだという事を知りました。
手元にあるDel3の本の説明でのString型はいわゆるShortString型だったのでうまく保存できずかなり悩みました。

0387デフォルトの名無しさん

NGNG

SetLengthで長さを指定してからとか｡
SetLength(s, 100)ってやれば100バイト分の領域が確保される｡
あるいはGetMemして読んでPCharにキャストとか｡

0388デフォルトの名無しさん

NGNG

>>387
Stringの内部表現がこちらのうかがい知ることではない以上、100バイトというのは少々乱暴かと。

0389デフォルトの名無しさん

NGNG

100はただの例だよ｡100バイトずつ何回かに分けて読み込んでもいいし
前もってファイルサイズを調べてその値を指定してもいい｡

0390デフォルトの名無しさん

NGNG

Stringの内部表現はヘルプに載ってるからそれ読んでみなよ｡

0391デフォルトの名無しさん

NGNG

>386
書き込み
FS.Write(S[1], Length(S)); // S: string;
読み込み
Len := FS.Size;
SetLength(S, Len);
FS.Read(S[1], Len);
こんなんでOKだと思う。
ところでfs.Write(i,SizeOf(integer)); は何をしてるの？

0392デフォルトの名無しさん

NGNG

(ﾟДﾟ)　誰もカキコしてないぞｺﾞﾙｧ!!

0393bloom

NGNG

http://www2.leverage.jp/start/

0394デフォルトの名無しさん

NGNG

Delphi6からXMLを利用したいのですが、各要素や
データの読み込みアルゴリズムを学ぶには、
どんな参考書籍が有用でしょうか？

0395デフォルトの名無しさん

NGNG

>>394
俺はMS XML使ったけど。

0396386

NGNG

>>391
ありがとうございました。うまくいきました。
S[1]って使い方ははじめて知りました。

>ところでfs.Write(i,SizeOf(integer)); は何をしてるの？

将来、他のデータとかもまとめて保存する予定なので
ShortStringのように頭に読み出す文字列の長さを保存してます。

0397A

NGNG

>>396
そういうフォーマットなら、

fs.Read(i,SizeOf(integer));
SetLength(sｔｒ, i);
fs.Read(str,i);

のほうがいいんじゃない？

0398デフォルトの名無しさん

NGNG

>>395
そんなものがあったのですね…　使おうと思ったんですが
ttp://www.microsoft.com/japan/msdn/xml/downloads/msxml3sp2.asp
と、見ての通り404のようです(；´д⊂

0399デフォルトの名無しさん

NGNG

FindWindow,FindWindowEx　で、メモ帳のメモ部分のハンドルを得て文字を
送ったりはできるのですが、
メモ帳のメモ部分を壊して、delphi起動時にできてる
フォームだけのアプリみたいな感じにすることってできます？

0400デフォルトの名無しさん

NGNG

>>399
メモ部分のサイズを(0,0)にするとか

0401デフォルトの名無しさん

NGNG

>>396
>将来、他のデータとかもまとめて保存する予定なので
メモリ上でそういう持ち方する必要あるのか？
MyData = class
public
　intdata: integer;
　strdtata: string;
end;
って持たせればいいんじゃないの｡

0402デフォルトの名無しさん

NGNG

そんなことしたらメモ帳がかわいそうです

0403399

NGNG

>>400
それいいかも、思いつかなかった。やってみます。

>>402
爆笑してしまいました、、、

0404デフォルトの名無しさん

NGNG

>>386
読み出すときにはTStringStream使えばいいんじゃない？

0405デフォルトの名無しさん

NGNG

まじめに恋愛を考える、真剣なあなたのためにこのサイトを作りました。
http://www.h5.dion.ne.jp/~psysys/index.html
　　　　　　　　　

0406デフォルトの名無しさん

NGNG

>>394
XDOMJってのがあるよ
http://hp.vector.co.jp/authors/VA017148/delphi/xml/

0407デフォルトの名無しさん

NGNG

今日はじめてDelphi6をインストールして使ってみた。
何のことはない、Visual Pascalじゃないか。
俺はdelphiのことをVPということにする。

0408デフォルトの名無しさん

NGNG

>>407
それを人は「侮辱」と呼ぶ。

0409デフォルトの名無しさん

NGNG

>>407
VPはだめ。
Visual Perlが存在するから

0410デフォルトの名無しさん

NGNG

コマンドボタンを押したらフォームに１って表示させるにはどうしたら
よいのでしょうか？

0411デフォルトの名無しさん

NGNG

>>410
ラベルを貼り付けて
Label1.Caption = "1"

0412デフォルトの名無しさん

NGNG

>>407
その判断基準からすると
VC++とBCBのどっちが「Visual C++」になるんだべ？

0413デフォルトの名無しさん

NGNG

Pascalは文字列を''で囲います。

0414407

NGNG

>>412
BCBは持ってない。
有料だろ？

0415デフォルトの名無しさん

NGNG

>>411はもぐりですね。

0416デフォルトの名無しさん

NGNG

>>414
コンパイラだけなら無料で配られているけど、あれはBCBではないね。

0417デフォルトの名無しさん

NGNG

>>414
以前、BCBエンタの期間限定試用版が無料配布されたことはあったけどね

VC++が無料だったことはないでしょ

0418デフォルトの名無しさん

NGNG

人柱版ってVBだけ？

0419407

NGNG

＞VC++が無料だったことはないでしょ

だからなんだってんだ？？？

0420デフォルトの名無しさん

NGNG

>>419
414の>有料だろ？
こそなんだってんだ？？？

0421407

NGNG

無意味だ。

0422デフォルトの名無しさん

NGNG

>>419
はげどう

>>420
はげどう

0423デフォルトの名無しさん

NGNG

>>417
StandardEditonのコンパイラだけなら.NET SDKについてる

iostreamすら使えんがな('A`)

0424デフォルトの名無しさん

NGNG

コンパ苛だけあっても意味無い

0425デフォルトの名無しさん

NGNG

テメーそりゃブイビーの文法じゃー！

0426デフォルトの名無しさん

NGNG

>>424
APIとATL辺りは付いてくるけど。

0427デフォルトの名無しさん

NGNG

>>426
うっせーよ。いいから氏ね

0428デフォルトの名無しさん

NGNG

あ？　ﾎﾞﾗﾝﾃｨｱで答えてやったのを
なんであほとか言われにゃならんのだ？

回答する前に過去ﾛｸﾞくらい調べてこいだと？
本気でそう思うなら言ってみろや、はっきりと

誰のためにそんな手間かけんだよ
人を動かす動機がまるでわかってないな、こいつ

0429デフォルトの名無しさん

NGNG

(´-`).oO（何でVB厨はわざわざDelスレまで出張して荒らすかなぁ・・・）
(´-`).oO（逆パターンは聞いたこと無いよなぁ・・・）

(´-`).oO（そんなにDelphiがうらやましいのかなぁ・・・）

0430デフォルトの名無しさん

NGNG

(´-`).oO（どこにVB厨がいるんだろう・・・）

0431デフォルトの名無しさん

NGNG

>>430
ﾜﾗﾀ。いっちゃだめって。

0432デフォルトの名無しさん

NGNG

(´-`).oO（ここは質問スレなんだけどなぁ・・・）
(´-`).oO（なんでののしりあってるんだろう・・・）
(´-`).oO（他所でやって欲しいなぁ・・・）

0433デフォルトの名無しさん

NGNG

(´-`).oO（質問来ないかなぁ・・・）
(´-`).oO（ずっと待ってるんだけどなぁ・・・）

0434デフォルトの名無しさん

NGNG

(´-`).oO（エサまこうかなぁ・・・）
(´-`).oO（でも気づかれて煽られたらいやだしなぁ・・・）

0435山崎渉

NGNG

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

0436デフォルトの名無しさん

NGNG

(´-`).oO（またぬるぽだよ・・・）
(´-`).oO（また叩かれるのかなぁ・・・）

0437デフォルトの名無しさん

NGNG

プログラム板の鉄則だからね
>>435
　（　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　　 |　|
　　Ｙ　/ノ　　　人
　　　 /　）　　 < 　>__Λ∩
　＿/し'　／／. Ｖ｀Д´）/
　（＿フ彡　　　　　　　/ 　

0438デフォルトの名無しさん

NGNG

<dt>

0439デフォルトの名無しさん

NGNG

C#を作ったDelphiなやつはどうして宣言部と実装部を分けてくれなかったんだろうか…
入れ子構造わかりにくい。

0440山崎渉

NGNG

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

0441デフォルトの名無しさん

NGNG

>>439
宣言部を省略できると考えればよし。

0442デフォルトの名無しさん

NGNG

あぁ。なるほど。

0443デフォルトの名無しさん

NGNG

なんでPascalなの？

0444デフォルトの名無しさん

NGNG

ミリバールの方がよかった？

0445デフォルトの名無しさん

NGNG

TListを継承して自作クラスのオブジェクトを要素に持つリストを作ろうとしています。

今引っかかっているのはDeleteメソッドです。

Deleteが呼ばれたときは自動的にその要素のオブジェクトをFreeしたいのですが、
DeleteはVirtualではないのでオーバーライドができません。

隠匿するという手もあるのですが、

var
list :TList;
begin
　list := TMyList.Create();

　listDeleteProc(list);
end;

の様な多様性を使用する局面で困る気がします。

と、ここまで書いて気づいたんですが、TListを引数とする奴が無断でアイテムを削除すると、
絶対に宙ぶらりんのポインタが発生しますね。
よってそう言う実装はあり得ないと。

解決しました。ありがとう。

0446デフォルトの名無しさん

NGNG

>>445
とりあえず、そういう事をしたい場合は、TList継承ではなく TComponent継承にして、
自分クラスもTComponent継承にすると楽というか、その手の管理がついてくるので楽だよ。

TComponentで Componentsで管理すればいい

0447デフォルトの名無しさん

NGNG

IdPOP31.CheckMessages
はIntegerですよね？
しかし、
IntToStr(IdPOP31.CheckMessages)とすると
'Array'と'String'には互換性がありませんと
怒られます。
何故に'Array'が絡んでくるんですか？

0448デフォルトの名無しさん

NGNG

>>447
　エラーの出た行を全部晒してみたら？

それだけでは、そのエラーが出る筈がないから。

あるいは、改行を適当に入れてエラーメッセージがどこに出たかよくみてみたら？

0449447

NGNG

i := IdPOP31.CheckMessages;
if i > 0 then
begin
FIconData.szTip := '新着' + IntToStr(i) + '通'
end;
としています。
POP3サーバーに接続した後に
新着メールの数をｼｽﾃﾑﾄﾚｲｱｲｺﾝのHintに
出したいです。
よろしくおねがいします<(__)>

0450デフォルトの名無しさん

NGNG

>>445
TObjectList

0451449

NGNG

あ、４行目の最後に ; がぬけましたすみません。
どうぞよろしくおねがいます。

0452デフォルトの名無しさん

NGNG

>>446
なるほど、確かにアリですね。
目的に対してちょっと大げさになるのが難点ですが、候補として検討してみます。

ありがとうございます。

0453デフォルトの名無しさん

NGNG

>>449
szTip って何？　szって付いてるんだからサイズ情報＝整数型じゃないの？

それから、Delphiの型は厳格だから i が整数型で、代入の時にエラーが出なければ、IntToStr(i)がエラーにはならない。

複数の要素があるような行でエラーが出たら、

FIconData.szTip := '新着' + IntToStr(i) + '通' <-たとえばここでエラーが出たら

FIconData.szTip :=
'新着'
+ IntToStr(i)
+ '通';

と改行を入れてコンパイルして、どこでエラーが出るか見るといい。

0454デフォルトの名無しさん

NGNG

>>452
TComponent型にしても、そんなに大げさになる訳じゃないよ。
　そのインスタンスを大量に作るなら別だけどね。

0455447

NGNG

>>453

+ '通';
の行で'Array'と'String'には互換性がと言われます。
そこで、
+ IntToStr(i)を抜いて

FIconData.szTip :=
'新着'

+ '通';

と書くと問題なくｺﾝﾊﾟｲﾙできました。
やはりIntToStr(i)に問題があるようです。
上から、szTipはStringであると思います。

0456デフォルトの名無しさん

NGNG

>>449
StrCopy(FIconData.szTip,PChar('新着' + IntToStr(i) + '通'));

0457449

NGNG

>>456
無事解決しました。
ほんとうにありがとうございました。
今後ともよろしくお願いします<(__)>

0458456

NGNG

>>457
調子乗んなよカス

0459449

NGNG

>>458
うるせーカス

0460449

NGNG

>>458
(ﾟДﾟ)ﾊｧ?
そこまで偉そうにされる筋合いもないが、まっ所詮はネットで粋がる事しかできないような奴か・・・
一応礼はいったので・・じゃ

0461449

NGNG

>>459
意見は同じなんだけど騙らないでね(^_^;)

0462デフォルトの名無しさん

NGNG

タイトルバーの色を画面プロパティのデザインで設定したものではなく、
アプリケーション独自の色にすることは可能ですか？

0463Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　 ∧,,∧　　　できるですよ
　ミ,,ﾟДﾟ彡
　ミつ日(ﾐ
Formをサブクラス化して
WM_NCPAINTを監視して
function GetWindowDC(Handle: HWND): HDC;
で取得したのをCanvasにほりこんで
描画するといいみたいです。

昔はDelphi TechMagってページに
Night2000ｺﾝﾎﾟｰﾈﾝﾄ作成の
よい説明が載ってたんですが、
今、なくなっちゃったですね。

0464デフォルトの名無しさん

NGNG

>>463
ありがとうございます
早速試してみます。

0465デフォルトの名無しさん

NGNG

みなさんこんにちわ！
タイトルバーの色を変える方法はありますか？

0466デフォルトの名無しさん

NGNG

>>465
画面のプロパティ－＞デザイン

0467デフォルトの名無しさん

NGNG

指定したファイルの有無をBoolで返すAPIってありますか？

0468デフォルトの名無しさん

NGNG

FileExists

0469デフォルトの名無しさん

NGNG

Oh, thank you very much!

0470デフォルトの名無しさん

NGNG

商業アプリケーションの多くは、画像データや音声データを
バイナリデータとして一纏めにしてますよね。

・そもそもバイナリデータとして保存・利用するにはどうするのか
・一纏めにしたファイルからどうやって中に納められている各ファイルを読み込んでるのか

を教えて頂きたいです。ゲーム作ってるんですが、画像や
音声データをそのままで収録して、簡単に覗かれるのは嫌だなと…

0471デフォルトの名無しさん

NGNG

>>470
リソース

0472デフォルトの名無しさん

NGNG

小数点第１位までを表せる型は、ありませんか？
切捨て四捨五入等は問いません。

0473デフォルトの名無しさん

NGNG

内部では整数表現して後で10分の1するよろし。

0474デフォルトの名無しさん

NGNG

>>472
real

嫌なら10倍しとけ。

0475デフォルトの名無しさん

NGNG

>>470
まぁ、

[ファイル名,サイズ,データ]

ってのの繰り返しってのが一般的じゃないの？

0476デフォルトの名無しさん

NGNG

Real or Currency

0477デフォルトの名無しさん

NGNG

>>470
TMemoryStreamを継承してアーカイブに格納したファイルをstream経由で読めるクラスを作成してLoadFromStreamでTBitmapなどに読み込む。とか。

アーカイブの形式は
struct FileHeader
{
　　char ファイル名[16];
　　int アーカイブ内の先頭アドレス
　　int ファイルサイズ
};

struct ArchiveHeader
{
　　int 格納ファイル数;
　　FileHeader ファイルヘッダ[格納ファイル数];
};
な感じのヘッダの後ろにファイルを繋げていけばいいかと。

0478デフォルトの名無しさん

NGNG

オンメモリで使うんなら16進で書き出してbyte配列として持たせとくとかね｡

0479デフォルトの名無しさん

NGNG

>>473-476
アドバイスありがとうございました！

0480デフォルトの名無しさん

NGNG

>>479
なんだよお前。調子乗ってんじゃねーよクズ。

0481デフォルトの名無しさん

NGNG

↑この数日スレを荒らしてる厨。気にしないでくれ>>479

0482デフォルトの名無しさん

NGNG

>>481
（；´Д｀）なんで分かったの？

0483金正日

NGNG

0484デフォルトの名無しさん

NGNG

IdPOP3についての質問です。
POP3ｻｰﾊﾞｰやらﾕｰｻﾞｰ名などをが合っていれば
無事ｻｰﾊﾞｰに接続することができたのですが、
接続できなかった時にどう対処するかで変更すると
うまくいきません。
try
IdPOP31.Host := Edit1.Text;
IdPOP31.Port := 110;
IdPOP31.Username := Edit2.Text;
IdPOP31.Password := Edit3.Text;
if IdPOP31.Connected then
begin
　if IdPOP31.CheckMessages <> 0 then
begin
～～～
end;
end
　 else
ShowMessage('接続に失敗しました');
　　end;
finally
IdPOP31.Disconnect;
end;
とすると接続してくれません。
接続を監視して調べて見ると
接続する動作もしてくれないみたいです。
～～～部分はあまり関係のないｲﾍﾞﾝﾄなので
省略しました。
どうかうまくいくようにｱﾄﾞﾊﾞｲｽください。

0485よく考えずにカキコ

NGNG

なんかendの数多くない？

0486484

NGNG

>>485
あ、beginが一つ入れ忘れてますすみません。
ｽﾍﾟｰｽいれて書いたのにかなりｽﾞﾚてしまいました。
すみません。

0487デフォルトの名無しさん

NGNG

PopupMenuが非ｱｸﾃｨﾌﾞになったときに
PopupMenuを閉じるにはどのように書けばいいのか
簡単なようでずっと悩んでおります。
PopupMenu1.Popup(Point.x, Point.y);
とﾎﾟｯﾌﾟｱｯﾌﾟを出したはいいが
いったいどのｲﾍﾞﾝﾄで
もし非ｱｸﾃｨﾌﾞになったら
閉じる
というように書けばいいかさえ分かりません。
詳しい方が見たら一瞬で答えれるのでしょう…
どうかお助けください。

0488あまり考えずにカキコ

NGNG

>>487
非アクティブになったら勝手に閉じるんじゃない？

0489デフォルトの名無しさん

NGNG

Personal版は無料じゃないよ。
個人情報を登録しないと落とせないし、その情報は転売されてるという話。
捨てアドレスで落としてみな。
そのアドレスに突然スパムがいっぱい来るから。
それはすべてBorlandのせい。　　

0490デフォルトの名無しさん

NGNG

>>489
名誉毀損で訴えられる準備はあるんだな？

0491487

NGNG

>>488
それが閉じないんです…
ｼｽﾃﾑﾄﾚｲのｱｲｺﾝを右クリックした時の
ｲﾍﾞﾝﾄで
case Msg.wParam of
　 WM_RBUTTONDOWN:
begin
PopupMenu1.Popup(Point.x, Point.y);
end;
とすると右クリックでﾎﾟｯﾌﾟｱｯﾌﾟしたはいいが
非アクティブになっても閉じてくれないです。

0492デフォルトの名無しさん

NGNG

>>489
(　ﾟдﾟ)ﾎﾟｶｰﾝ

0493デフォルトの名無しさん

NGNG

コピペ嵐に反応するなよ

0494デフォルトの名無しさん

NGNG

>>491
定石だが、
SetForegroundWindow(Handle);

PopupMenu1.Popup(Point.x, Point.y);

PostMessage(Handle, WM_NULL, 0, 0);
としてみろ。
理由は、↓の番号のMSDN Articleを読め。
http://www.alpha-net.ne.jp/users2/junchoon/tips017.html

0495487

NGNG

>>494
ありがとうございます。
できました。
Articleを読みましたが難しいですね。
ほんとうにありがとうございました。

0496デフォルトの名無しさん

NGNG

だから、、、、Visual Pascal　だろ？

0497デフォルトの名無しさん

NGNG

だからＶＰでいいつうーの

0498デフォルトの名無しさん

NGNG

みなさんにお聞きしたいのですが、TDateTime値が無効なことを示すときに
どんな値を入れてます？漏れは適当に0とか-1を入れてるんですが。

0499デフォルトの名無しさん

NGNG

>>496
　マイクロソフトが出した失敗作は　クイックパスカルだよ。

0500デフォルトの名無しさん

NGNG

TDateTime　が無効かどうかの設定が必要なら、Variantを使う方がいいんじゃないの？

0501デフォルトの名無しさん

NGNG

とあるバイナリの並びが文字列であるかただのバイナリであるかを判定する方法ってありますか？

0502何も考えないでカキコ

NGNG

>>501
バイナリ自体が文字列だった場合はどうするの？

0503デフォルトの名無しさん

NGNG

生成する時点で判定できるようなフラグ立てとけ　

0504デフォルトの名無しさん

NGNG

#0が入ってるかどうかとか・・・・（不確実だけど）

0505デフォルトの名無しさん

NGNG

DBGridのRowSelectをtrueにして、選択行すべてをハイライトさせてる場合
選択行の一つ一つのフィールドの項目を取得するにはどのようにすれば
よいのでしょうか？

0506デフォルトの名無しさん

NGNG

小数点以下切り上げの場合どうすればよいのでしょうか?
http://homepage1.nifty.com/MADIA/delphi/DelphiTips/Syouuu.htm
これだと整数の場合でも+1されるので困っています。

0507デフォルトの名無しさん

NGNG

>>506
TruncとFloorとCeilのヘルプを見てみませう

0508デフォルトの名無しさん

NGNG

>>250
レス遅れましたが丁寧親切にありがとうございます。
がんがります。

0509デフォルトの名無しさん

NGNG

>>507
FloorとCeilはProfessional Edition以上ですよね?
環境が6のPersonalなので。

0510デフォルトの名無しさん

NGNG

>>509
PersonalにはMathがないのか～
じゃTruncしといて
整数じゃない場合だけ+1するのがいいでしょう
（整数かどうかの判定は分かるでしょ？）

0511デフォルトの名無しさん

NGNG

Mathをusesしてないだけだろ >>509
Personalでも使えるぞ。

0512デフォルトの名無しさん

NGNG

>>511
すみません、使えました。
ありがとうございました。

0513　

NGNG

Q0.1,E0.8,E0.4
正しい括弧付けかどうかをテストするプログラムを教えてください

0514デフォルトの名無しさん

NGNG

>>505
ヘルプでTDBGrid#Columnsを参照
（手元にDelphiないので間違ってたらそれっぽいのを探してくれ）

直接DataSource.DataSetを参照するのも可
ちなみにRowSelectは関係ない

0515デフォルトの名無しさん

NGNG

>>513
意味が分かりません。もっと具体的に言ってくださいな

0516デフォルトの名無しさん

NGNG

>>509
ﾜﾗﾀ

0517509

NGNG

>>516
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね

0518デフォルトの名無しさん

NGNG

>>509
ﾊｹﾞｼｸﾜﾗﾀ

0519本７

NGNG

ブラウザ情報を編集するにはどうすればよいですか？

0520デフォルトの名無しさん

NGNG

>>484

これって接続してないじゃん。
そりゃ接続されんよ。

0521509

NGNG

http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=41#0073.txt
ここ見てProfessional Edition 以上かと・・・。

0522デフォルトの名無しさん

NGNG

>>521
warotayo～^^

0523デフォルトの名無しさん

NGNG

ぬるぽについて簡単にでいいので教えてください

0524デフォルトの名無しさん

NGNG

スレ違いでしたごめんなさい

0525デフォルトの名無しさん

NGNG

>>524
お前誰？氏ねよ。

0526デフォルトの名無しさん

NGNG

コンソールアプリケーションに
画像(ベタでもBmpでも)を表示する方法というのは、
標準では存在しないのでしょうか。

0527デフォルトの名無しさん

NGNG

>>526
お前も氏ね

0528デフォルトの名無しさん

NGNG

>>526
難しいです。力技しかないと思われます。w95系ならDOSプログラムとして
レガシーにIOを叩くのが近道かと思うのですが。。

0529デフォルトの名無しさん

NGNG

>>527
お前が氏ね！なんだよそのダサいＩＤｗ

0530デフォルトの名無しさん

NGNG

>>529
IDは勝手につくからしょうがないでしょう（ｗ

0531デフォルトの名無しさん

NGNG

>>530
普段からの行いが悪いからそんなださいIDになるんだよ(w

0532526

NGNG

>>528
やはりそうですか。ご助言ありがとうございました。

0533デフォルトの名無しさん

NGNG

見えない…何も見えないぞ！！仕事のしすぎかな

0534デフォルトの名無しさん

NGNG

v:=TCanvas.Create;
try
v.Handle:=GetDC(0);
・・・・

　というようにして　Windows全体に描く事はコンソールアプリでも可能なので、

後はコンソールのサイズにあわせてクリッピングする方法を探す方法を考えることだね。

0535ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>391
Sがカラの時，S[1]を参照するとエラーになるので要注意．
>>404
書き込むときに使ってもよいと思います．
>>407
フォーム，コントロール（コンポーネント），プロパティ，イベント，統合開発環境…．
これらはまさにVisual Pascalなのですが
それは表面だけの話でつ．
>>521
これは情報が古いです．
Delphi 5（4かも)から一番安い版にもMathユニットが付属するようになっています．

0536デフォルトの名無しさん

NGNG

ListViewの各アイテムの文字、またはバックに色をつけることは可能でしょうか？

0537　

NGNG

（´-`）。o ○ （「オナニードロドロ」は禁止ね）

0538デフォルトの名無しさん

NGNG

オナニードロドロをトゥルッてする。

0539528

NGNG

>>534
何と、そんな手もあるですか。。失礼しました。

0540526

NGNG

>>534
ありがとうございます。
希望通りの動作を、安全に実現できそうです。
API の奥の深さと、TCanvas の懐の広さに感激いたしました。

0541デフォルトの名無しさん

NGNG

Windowsに付いているcalc.exe
が起動していたら、それを前面に出して、
起動していなかったら起動するような場合はどんなコードになりますか？

あと、このcalc.exeを自アプリの計算機能として使用しちゃっても問題ないですか？
後でMicroSoftに訴えたれたりしないですよね？（＾＾；

0542デフォルトの名無しさん

NGNG

>>541

HWND hWnd;
hWnd = FindWindow(NULL, "電卓");
if (hWnd)
{
　　//電卓起動
}
else
{
　　//ウィンドウ最前面処理
}

適当にPascalに翻訳しる

0543デフォルトの名無しさん

NGNG

>>536
カスタムドロー

0544デフォルトの名無しさん

NGNG

>>541
　そのcalcを使って、どんなことをやりたいの？
　簡単な電卓計算なら自分で作った方が速いんじゃないの？

　括弧付の足算掛算をさせたいなら、
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/uSpliter.txt

関数が欲しいなら GikoBasicを使えば簡単

0545541

NGNG

>>542
ありがとうございます。
自分なりに翻訳してみました。

h : HWND;

h := FindWindow(nil,'.\calc.exe');
if h = 0 then begin
//電卓起動
ShellExecute(Handle,'open',PChar('.\calc.exe'),'',
PChar(ExtractFilePath(Application.Exename)),SW_SHOWDEFAULT);

end else begin
　　//電卓前面

end;

うーむ、これだと、電卓が既に立ち上がってても、そうでなくても常に
ｈの値が０になる・・・。

>>544
そうですね。
簡単な電卓で良いので自分で作った方が速いかも。

0546デフォルトの名無しさん

NGNG

>>545
(　д )　ﾟ　　　ﾟ

>h := FindWindow(nil,'.\calc.exe');
なんでこうなるのか説明plz

0547541

NGNG

>>546
＞hWnd = FindWindow(NULL, "電卓");
より。

根本的に何か勘違いしているかも（＾＾；

0548デフォルトの名無しさん

NGNG

('A`)ﾉ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/findwindow.asp

0549デフォルトの名無しさん

NGNG

ﾊﾟｽﾜｰﾄﾞを入力してもらったEdit1.Textを
iniﾌｧｲﾙに書き出したいのですが、
何か変換を入れたいです。
色々調べたのですが
Unicodeに変換するのがいいみたいなのですが
どう書いていいのか分かりませんでした。
WriteString('Section', 'Value' , Edit1.Text);
を変えて書いて頂けませんか？
下手な日本語ですみません。
どうぞよろしくおねがいします<(__)>

0550デフォルトの名無しさん

NGNG

var
S: TMemoryStream;
Unko: WideString;
begin
S:=TMemoryStream.Create;
Unko:='パスワード';
S.Seek(0, soFromBeginning);
S.Write(Unko[1], Length(Unko));
with TMemIniFile.Create(Application.ExeName+'.ini') do
begin
WriteBinaryStream('a', 'b', S);
UpdateFile;
Free;
end;
with TMemIniFile.Create(Application.ExeName+'.ini') do
begin
ReadBinaryStream('a', 'b', S);
Unko:='';
SetLength(Unko, S.Size);
S.Read(Unko[1], S.Size);
ShowMessage(Unko);
Free;
end;
S.Free;
end;

0551550

NGNG

今のは間違ってるから無視してね。

0552549

NGNG

>>550
すみませんよく理解できませんでした…。
XORという関数を使えば比較的簡単に
書けるそうです。
WORの例を書いて頂けませんか？

0553552

NGNG

あ、WOR→XORでしたすみません。

0554A

NGNG

>>552
少しはヘルプ見たほうが早いと思うけど。

１文字づつ抜き出して、

a := a xor 23

で暗号化。もう一度同じことをすると、元に戻る。

0555デフォルトの名無しさん

NGNG

Φ's

0556デフォルトの名無しさん

NGNG

今時パスワードの保存にxorはないだろ｡
MD5使えや｡

0557デフォルトの名無しさん

NGNG

MD5って聞いたことあるな
Winnyで使ってるやつだったかな

0558デフォルトの名無しさん

NGNG

>>552
過去ログに暗号・復号コードあるから
http://pc.2ch.net/tech/kako/1017/10178/1017803412.html
77,84

0559552

NGNG

>>554
ありがとうございます
var
i.i2,siz: Integer;
S1,S2: String;
～～～
S1 := Edit1.Text;
siz := Length(S1);
for i:=1 to siz do
begin
i2 := StrToInt(S1[i-0]) xor 23;
S2 := S2 + IntToStr(i2);
end;
WriteString('Setting', 'Passward', S2);

とするとｺﾝﾊﾟｲﾙはできるのですが、
ｿﾌﾄを動作させるとEConvertErrorｸﾗｽの例外を生成しました。
'k'は整数ではありません。と言われてしまいます。
kは使っていないのですが…
どこが間違っているか指摘してください。
>>556
見た目が少し違うようになるだけでいいので
xorで十分です。
ﾚｽありがとうございます。

0560A

NGNG

>>559
Edit1.Text に入れた文字の１文字目が、'ｋ'になってない？
StrToInt は、”数を表す文字列”を、その数値に変換する関数で、
それ以外の文字は変換できない。というか、変換しようがない。

文字自身の値そのものを数値として扱うには、Byte型にキャストすればいいはず。
キャストについては、ヘルプ参照。

あと、xorかけた後も、単に、IntToStr を使って文字にして
単純に繋いでしまうと、区切りのない数字の羅列になって元に戻せなくなると思う。
IntToStrを使わずに文字にキャストしなおした場合は、xor後の値はすでに
文字を示すとは限らないから、そのまま、INIに書き込むのはまずい。
方法はいくつかあるから、考えて工夫してみれ。

0561デフォルトの名無しさん

NGNG

http://210.153.114.238/img-box/img20030423224051.jpg
こういう流れは難しいでしょうか？
スクリーンごとキャプってみました

0562デフォルトの名無しさん

NGNG

>>561は見てないけどあちこちにあるからきっとブラクラ

0563デフォルトの名無しさん

NGNG

クリックもせずに失礼な回答者ですね
どうせ解決できない者の負け惜しみなので気にする必要はありませんが

0564デフォルトの名無しさん

NGNG

マルチのくせに偉そうだな（ｗ

0565デフォルトの名無しさん

NGNG

>>564
まぁ、ある意味マルチかもしれませんね＾＾

0566デフォルトの名無しさん

NGNG

ある意味じゃなく、完全にマルチだろ。

0567デフォルトの名無しさん

NGNG

シャレのわかんないバカですか？あなた
クリックもせずに偉そうな事言うなよ

0568デフォルトの名無しさん

NGNG

自分だけがシャレてると思うヴァカ

0569デフォルトの名無しさん

NGNG

マルチをクリックする必要などない。

0570デフォルトの名無しさん

NGNG

他のアプリケーションを、表示位置を指定して起動するには
どのようにすれば良いのですか？

0571デフォルトの名無しさん

NGNG

>>570
CreateProcess

http://www.eva.hi-ho.ne.jp/taketani/delphi/system.shtml

0572570

NGNG

>>571
そーじゃないだろうに、、、知らないなら引っ込んでてよ

0573デフォルトの名無しさん

NGNG

>>572
じゃあなにが知りたいのか具体的に書けよ。
糞。

0574デフォルトの名無しさん

NGNG

またいつもの奴か

0575デフォルトの名無しさん

NGNG

いつも反応している奴出現

0576デフォルトの名無しさん

NGNG

反応して何が悪い

0577デフォルトの名無しさん

NGNG

また自演か

0578デフォルトの名無しさん

NGNG

自演ではない

0579デフォルトの名無しさん

NGNG

ザコいみじめな人間。

0580デフォルトの名無しさん

NGNG

いつもの奴のことだな

0581579

NGNG

もちろんそうよ (板尾の嫁

0582デフォルトの名無しさん

NGNG

また自演だな

0583570

NGNG

>>571
求めていたのはまさにそれです。ありがとうございます。
返事が遅れたばっかりに、偽者に書き込む隙を与えてしまいました。
申し訳ありません。

>>572
死

0584デフォルトの名無しさん

NGNG

また偽者だな

0585570

NGNG

っていうか謝ってるのにそりゃないんじゃないでしょうか？
私も被害者なんですし

0586デフォルトの名無しさん

NGNG

ageで書いてるやつは偽者ということでOK?

0587デフォルトの名無しさん

NGNG

前に２回くらい質問したものですが、頻繁に偽者登場してるみたいですね
同一人物だろうか

0588デフォルトの名無しさん

NGNG

ボーランド系のスレ荒らしてる馬鹿は何が楽しいんだか
荒らすヒマがあるなら勉強しろや

0589デフォルトの名無しさん

NGNG

心地良い流れに水を指すようで申し訳ありませんが、質問です。

データ検索等の重い処理を開始させるボタンをクリックした後、そのボタンの
イベント処理中にもう一度そのボタンを押下すると、処理終了後にまた同じ
イベントが走ってしまいます。それを回避する方法はありますか？

とりあえず、
イベントの処理中はボタンのクリックイベントを無効にする。(Button.OnClick := nil)
イベントの処理中はボタンを無効にする。(Button.Enable := False)
イベントの処理中は親フォームを無効にする。(Form.Enable := False)
イベントの処理中はマウスのクリックイベントをスルーする。（Application.OnMessageイベント）
なんてことをやってみましたが、結局は処理終了後にクリックイベントが発生してしまうため
無駄でした。

分かる方がいましたら、よろしくお願いします。

0590デフォルトの名無しさん

NGNG

>>589
重い処理の始まりにフラグを立てる
ボタンを無効化
重い処理の終了時にフラグを倒す
OnIdleとかでフラグが倒れているのを確認したらボタンを有効化

こんな流れはどう？

0591589

NGNG

>>590
ループしますよ・・？
失礼ですが、きちんと確認の上なのでしょうか？

0592デフォルトの名無しさん

NGNG

>>589
「処理中」にボタンを無効にする
んじゃなくて
「処理前」にボタンを無効にしたらどうなんでしょ？

0593デフォルトの名無しさん

NGNG

Actionにして処理するときTAction.Enabled:=falseにする。
OnUpdateでtrueに戻す。

0594589

NGNG

>>590
できた！できたよ！！ありがとう。
フラグはデフォルト0にして、処理終了時に1にセットするようにして、
OnIdleイベントでフラグが1のときはボタンをアンロック、フラグを0にリセット、って
流れでバッチリOKでした。

でもこの場合、入力項目を動的にチェックして、ある条件下ではボタン使用可、
それ以外の場合は使用不可、っていう場合分けがあった場合、OnIdleイベント
にもその条件を追加しないといけなくなってしまいますね。後々条件が変わった
時なんかにはちょっと注意しないといけないって言うのがつらいところですね。

>>591
処理中、という書き方をしましたが、実際はボタンのOnClickイベントで、
Button.Enabled := False;
try
・・・イベント処理・・・
finally
Button.Enabled := True;
end;
という書き方をしました。ボタンが一時的に無効になっていることは間違いないです。

0595589=594

NGNG

あれれ。594の>>591ってのは>>592に訂正です。

>>590
>>591は私じゃないです。ループにはならないし。あと、ボタンの使用可不可が動的に
変更される場合も、ボタンを無効化する前にボタンの状態を取得しておいて、OnIdle
では取得しておいた状態に戻せば問題ナシですね。

>>593
できました！！OnUpdateっていうのは使ったことなかったけど、OnIdleの機能も含む
ものなんですね。スバラスィ。

0596こうだったら、どうなるの？

NGNG

try
Button.Enabled := False;
・・・イベント処理・・・
Button.Enabled := True;
finally

0597589=594

NGNG

>>596
それだとうまくいきません。今回の質問では、tryとfinallyは関係なかったですね。

今回は>>593のやり方で行こうと思っています。どうもありがとうございました。

0598デフォルトの名無しさん

NGNG

粘着のなりすまし荒らしが住み着いている模様
質問者・回答者ともにご注意を

お礼の代わりに暴言・珍言を書き込むのは荒らし
釣られないようにね

0599デフォルトの名無しさん

NGNG

さっそくバカが釣られてる
放置しる

0600デフォルトの名無しさん

NGNG

質問者は捨てトリップでいいからトリップ使って書き込もう。

0601デフォルトの名無しさん

NGNG

気付くの遅ェーんじゃない？

0602ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>594
『アクション』オブジェクトと実行中のフラグ変数を用意すれば
実行できる条件がどんなに複雑でもシンプルに対処できます．

// ※Button1のActionプロパティにAction1を指定しています．
TForm1 = class(TForm)
ActionList1: TActionList;
MainMenu1: TMainMenu;
Action1: TAction;
Button1: TButton;
procedure Action1Execute(Sender: TObject);
procedure Action1Update(Sender: TObject);
private
{ Private 宣言 }
FExecuting: boolean;
function GetExecutable: boolean;
public
{ Public 宣言 }
procedure Execute;
property Executing: boolean read FExecuting; // 実行中かどうかを返す
property Executable: boolean read GetExecutable; // 実行できるかどうかを返す．
end;
（つづく）

0603ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>602 （つづき）
// 処理メソッド
procedure TForm1.Execute;
var
i: integer;
begin
FExecuting := True; // 最初に処理中フラグを立てる．
try
// 処理コード
finally
FExecuting := False; // 最後に処理中フラグを確実に降ろす．
end;
end;

function TForm1.GetExecutable: boolean;
begin
Result := not Executing; // ここでは単に実行中なら実行不可能としているが，さらに条件を複雑にすることも出来る．
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
Execute;
end;

procedure TForm1.Action1Update(Sender: TObject);
begin
(Sender as TAction).Enabled := Executable; // Action1.Enabled と書かないのは名前が変わってもコードを変えなくていいから．
end;
（以上）

0604本７ ◆HON7/awDa.

NGNG

無料のＤｅｌ6使ってます。
ServerSocketを利用したＴＣＰ通信の基本的な流れ教えてください。
telnet風サーバを作るとして、
ソケットのポート指定、オープンした後にどういうイベントの流れをする
んでしょうか？あとソケットってオープンしてアプリを終了すまでオープ
ンしっぱなしでいいんですか？それともリクエストごとにオープン・クロ
ーズさせるんですか？宜しくお願いします。

0605デフォルトの名無しさん

NGNG

>>604
＞ＴＣＰ通信の基本的な流れ
ぐぐった方が早いかも。

↓こちらも参考にしてくれ
ネットワークプログラミング相談室　Port5
http://pc2.2ch.net/test/read.cgi/tech/1040220302/

0606ミ,,ﾟДﾟ彡 ◆A6VzDeLphI

NGNG

開発者ガイド： Delphi プログラマーズガイド
サービスアプリケーション
あたりに詳しめの解説があったようななかったような

0607デフォルトの名無しさん

NGNG

6 Personal の Help には無いですね >> サービスアプリケーション

0608デフォルトの名無しさん

NGNG

と思ったら、ありました。前言撤回。

0609マジレス ◆slRlj0jBXk

NGNG

煽りでもなければ、あげあしとりでも無いんだが、
「フラグが倒れたら」って言い方ってするの？
「立ったら」でなくて？
普通は「倒れる」って言うのかな？

0610デフォルトの名無しさん

NGNG

>>590のことか？
ちゃんと嫁や

0611６０９ ◆slRlj0jBXk

NGNG

>>610
いや「立てる」って言い方以外を初めて見たもんでね。
ま、そんだけだから。はい、次↓

0612デフォルトの名無しさん

NGNG

フラグってフラッグ（flag）と同一？

0613デフォルトの名無しさん

NGNG

あたぼうよ

0614デフォルトの名無しさん

NGNG

JournalHookで
WM_MOUSEWHEELイベントを記録したデータを
そのまま再生に流しても動いてくれません。
（ホイールの上下に動かした部分が動作しない）

解決方法を教えてください。お願いします

0615本７ ◆HON7/awDa.

NGNG

探したけど初心者向きなサイトがありませんでしたのでもう一度質問させていただきます。

TServerSocketを使用してtelnet風サーバを作ろうとしています。

コードと簡単な説明していただければ自力でいじりまわって考えますので。
23番ポート使用＞ソケットの起動＞要求待ち＞ログイン画面送信＞応答メッセージ
受信＞ログイン認証＞プロンプト表示　までを最小限の形で結構なので挙げていただけ
ませんか？宜しくお願いします

0616590

NGNG

>>611
「立てる」の対義語が思いつかなかったんです　^^;

0617559

NGNG

>>560
遅ﾚｽとなってしまってすみません。
風邪ひいてくたばってました…。
やっとできました。
S1 := Edit1.Text;
siz := Length(S1);
for i:=1 to siz do
begin
i2 := Byte(S1[i-0]) xor 23;
WriteInteger('Setting', 'Passward[' + IntToStr(i) + ']', i2);
end;
とiniﾌｧｲﾙに保存すれば簡単にいきました。
ありがとうございました。

0618559

NGNG

書くのはできたのですが
読み込みがうまくいきません
var
i, i1, i2 : Integer;
S : String;
while ValueExists('Passward', IntToStr(i)) do
begin
i1 := Byte(ReadInteger('Passward', IntToStr(i), StrToInt(Edit1.Text)));
i2 := i1 xor 23;
S := S + String(i2);
Inc(i);
end;
Edit1.Text := S;
EraseSection('Passward');
としても何もEdit1に読んでくれません。
>>617の
WriteInteger('Setting', 'Passward[' + IntToStr(i) + ']', i2);
は
writeInteger('Passward', IntToStr(i), i2);に書き換えました。
どうかアドバイスよろしくお願いします。

0619デフォルトの名無しさん

NGNG

>>615
DelphiのフリーコンポーネントでIndyってのがあります。
それを使うとネット接続関係で悩まなくてよくなりますよ。
自分もWinSockを使って一から自作しようとか考えてたんですが
あまりに未熟なため結局、最終的にはIndyで妥協しました。

0620デフォルトの名無しさん

NGNG

>>615
619の言うとおり、IndyにTIdTelnetがあるから、それを使った方が早いと思われ

0621本７ ◆HON7/awDa.

NGNG

うまい事動きだしました。あとはコマンドの解釈と処理を作っていくだけっぽいです。
unit telnetd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, ImgList;
type
TForm1 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
CheckBox1: TCheckBox;
Label2: TLabel;
Button1: TButton;
ServerSocket1: TServerSocket;
ImageList1: TImageList;

procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ThreadEnd(Sender: TObject;

0622本７ ◆HON7/awDa.

NGNG

長いのでソースのでるのやめます。

0623デフォルトの名無しさん

NGNG

>>622＝本７

お前ﾗｳﾝｼﾞで空気読まずにスレ潰しまくってたクズ固定だろ？
何やってんだ？こんなとこで…さっさと死ねよ！！

0624デフォルトの名無しさん

NGNG

Memo1.Linesの内容を.txt形式で名前を付けて保存したいんです。
「名前を付けて保存」のダイアログを出すとこまではいったのにMemo1.Linesの内容が受け渡せません。
どのように記述すればよいのでしょう？

0625デフォルトの名無しさん

NGNG

シャープはくそだすばかよろう

0626デフォルトの名無しさん

NGNG

（´-`）.。oO（SaveToFileメソッド知らんのかい・・)

0627デフォルトの名無しさん

NGNG

>>624
var
S: String;

S := Memo1.Lines.Text;
S.SaveToFile('txtﾌｧｲﾙの名前.txt');

0628デフォルトの名無しさん

NGNG

>624
こんな感じじゃね？
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

0629デフォルトの名無しさん

NGNG

>>624
TStringListに受け渡してSaveToFileメソッドを使って保存したら？

0630629

NGNG

ああああああああ・・・・629は見なかったことにしてください・・・・。

0631559

NGNG

何度もｶｷｺすみません。
String型をByte型にｷｬｽﾄして
そのByte型からString型にｷｬｽﾄし直すのが
間違っているのでしょうか？
どうか簡単でもいいので教えて下さい。
どうかよろしくお願いします。

0632デフォルトの名無しさん

NGNG

>>631
その通りかと。
Ord関数を使いなはれ

0633デフォルトの名無しさん

NGNG

>627-628
何度やってもエラーがでてしまいます。どうすればよいのでしょうか。

[エラー] Main.pas(855): forward または external 宣言された 'TMainWnd.Button1Click' が見つかりません

0634デフォルトの名無しさん

NGNG

>>633
それは627-628のせいじゃなくてアンタのミスでしょ・・。
ソースを最初から見ていって
TMainWnd.Button1Clickの項目を削除しなさい。

ところで627のソースってエラーになるよね。。

0635559

NGNG

>>632
ついにできました!!
感激です。
小さなﾐｽをたくさんしていました。
書き込み
S1 := Edit1.Text;
siz := Length(S1);
for i:=1 to siz do
begin
i2 := Ord(S1[i]) xor 23;
WriteString('Passward', IntToStr(i), IntToStr(i2));
end;
読み込み
while ValueExists('Passward', IntToStr(i)) do
begin
i1 := StrToInt(ReadString('Passward', IntToStr(i), Edit1.Text));
i2 := i1 xor 23;
S := S + Chr(i2);
Inc(i);
end;
Edit1.Text := S;
EraseSection('Passward');
で完了です。
ほんとうにありがとうございました。

0636デフォルトの名無しさん

NGNG

integerの可変長配列をTListを使って作成しました。値をInteger(Items[0])
というふうにキャストして出し入れしてるのですがこれは違法でしょうか。
また他に何か良い作成の仕方があれば教えて下さい。

0637A

NGNG

>>635
おめ！
暗号化のときのは、Ordでも、Byteでも、今回は同じ結果になったはず(笑

0638デフォルトの名無しさん

NGNG

>>635のソースを見て思ったんだけど、
Char型を数値に変換するとき、Ordを使うのとByte型にキャストするのとどっちが処理が速いんだろう？

0639デフォルトの名無しさん

NGNG

Delphi6パーソナルにIndy9ってインストールできますか？

0640A

NGNG

>>638
CPUウィンドウで見てみたら、どっちも、
mov esi,ebx
and esi,$000000ff
になってたから、まったく同じっぽい。

>>639
出来るはず。

0641638

NGNG

>>640
サンクス
こんなことで悩まなくてよいってことだね。

0642デフォルトの名無しさん

NGNG

SHFileOperationAPIを使用してファイルの移動、カット＆ペーストを
行っているんですが、逆に移動やカット＆ペーストを「元に戻す」には
どうすればいいんでしょうか？

0643パソナラー

NGNG

Indyに手を出すのが何となくイヤな人は、urlmonとか
wininetはいかがだろうか？
かくいう私はIndyは入れてません。

0644デフォルトの名無しさん

NGNG

カット（ちゃん）ペースト

0645デフォルトの名無しさん

NGNG

>>636
Integer型へのポインタを入れるのが定石です。

0646デフォルトの名無しさん

NGNG

>>645
なぁ、アドレスとポインタは区別した方が良いぞ。

0647デフォルトの名無しさん

NGNG

>>636
Sizeof(Integer^) = Sizeof(Integer)

である保証はないんだけどWin32に関しては問題ないんじゃないの？

0648デフォルトの名無しさん

NGNG

Unicodeを扱いたいのですが
WidecharToStringでどう書けばいいか
分かりません。
Unicodeが「E63E」なのですが
WidecharToString(E63E);
とするとE63Eは未定義だと言われます。
どうか教えていただけませんか？
よろしくお願いします。

0649デフォルトの名無しさん

NGNG

　TList の以下のような使い方で、保持したデータをクリアするとき TList.Clear; だけではだめなのでしょうか？
type
　pData = ^TData;
　TData = record
　　Size: Integer;
　　Name: string;
　end;
var
　DList: TList;　// FormCreate、FormDestroy で生成・廃棄する
procedure MakeData;
var
　PD: pData;
　FSize: Integer;
　FName: string;
begin
　New(PD);
　………………
　PD^.Size := FSize;
　PD^.Name := FName;
　DList.Add(PD);
end;

procedure ClearData;
var
　i: Integer;
begin
　for i := 0 to DList.Count-1 do Dispose(DList.Items[i]); //これだけでいいのか？
　// DList.Clear; ← これだけではだめなのか？
end;

0650デフォルトの名無しさん

NGNG

>>649
宙ぶらりんポインタにはくれぐれも気を付けてね。

0651デフォルトの名無しさん

NGNG

１６進数表記って知ってる？

WidecharToString(#$E63E);
か $E63E でいけないかな？

0652デフォルトの名無しさん

NGNG

>>649
あー、俺それでこの前ハマったわ。
まず、Clearはダメ。disposeとかしてくれない。
なので自前でdisposeするわけだが、その前にItemsをpDataにキャストしておかないと、
TDataの中にあるString型の変数が正常に破棄されないので注意。

TDataをクラス型にして、TObjectListを使った方が楽かもしれない。
Delete/Clearするとき自動でFreeできるから。

0653デフォルトの名無しさん

NGNG

うちの周りが選挙活動に占拠されとる。

0654デフォルトの名無しさん

NGNG

>>652
> なので自前でdisposeするわけだが、その前にItemsをpDataにキャストしておかないと、
　これでいいんでしょうか？
procedure ClearData;
var
　i: Integer;
begin
　for i := 0 to DList.Count-1 do
　begin
　　PD := DList.Items[i]; //ヘルプの例を見たらこれでいいらしい
　　// 本来ならば PD := pData(DList.Items[i]); とすべきだと思うが・・・
　　Dispose(PD);
　end;
end;

0655デフォルトの名無しさん

NGNG

>>654
それでいいと思う。
一時変数PDを経由せずに dispose(pData(DList.Items[i])); でも可。

あと、DisposeしてもTListのItems自体は削除されない（Itemsが保持しているポインタが無効になるだけ）。
なので、for ループが終わったあとに DList.Clear しておくべきだと思われ。

0656648

NGNG

>>651
ありがとうございました<(__)>
無事できました。

0657デフォルトの名無しさん

NGNG

Button1.Caption := Form1.Caption
のようにｴﾃﾞｨﾀで表示状態にして書くと
不正なプロパティ値ですと怒られてできません。
これはコードエディタで
Form1のCreateｲﾍﾞﾝﾄで書かなければなりませんか？
ボタンが200個近くありまして
いちいち書くとForm1のOnCreateｲﾍﾞﾝﾄが膨れ上がって
しまいます。
ｴﾃﾞｨﾀで表示をしている状態でこのようにするのは
不可能ですか？

0658デフォルトの名無しさん

NGNG

FORM 上の全ての Button のCaption を変更するなら、
FindComponent をloopででも回せばよろしいのでは。

0659657

NGNG

今書いたのは例で
ﾎﾞﾀﾝにつき違うCaptionを割り当てたいです。
地道にOnCreateｲﾍﾞﾝﾄに書いてきます。

0660ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>652
わたしもTObjectListを使ってオブジェクトのリストにした方が良いと思います．
レコード型は基本的に使わない方がよいと思います．

>>657
これは何に使うボタンなのでしょうか．
ちょっと前のレスにあった絵文字選択とも違うようですし．
どういうボタンがあってどういう目的に使うかがわかれば良いのですが．

0661デフォルトの名無しさん

NGNG

なんでイベントハンドラにべた書きするかなあ。

0662649

NGNG

> TDataをクラス型にして、TObjectListを使った方が楽かもしれない。
こんな感じでしょうか？
type
　TData = class(TObject)
　private
　　FSize: Integer;
　　FName: string;
　end;
var
　DList: TObjectList;　// FormCreate、FormDestroy で生成・廃棄する
　DList.OwnsObjects := True; //ヘルプを見たら「OwnsObjects プロパティが True の場合，Clear メソッドはリスト内のオブジェクトも解放します」とある

procedure MakeData;
var
　PD: TData;
　TempSize: Integer;
　TempName: string;
begin
　PD := TData.Create;
　………………
　PD.FSize := TempSize;
　PD.FName := TempName;
　DList.Add(PD);
end;

procedure ClearData;
var
　i: Integer;
begin
　DList.Clear; //これだけでよいのでせうか？
end;

0663デフォルトの名無しさん

NGNG

>>662
そう。
構造体よりメモリ消費量は増えるけどな。

0664デフォルトの名無しさん

NGNG

>>645
助言に従いポインタを使ったやり方で整数の可変長配列クラスを以下の様に作成
しました。

unit Unit1;

interface

uses
Classes;

type
TIntegerList = class(TObject)
private
FList: TList;

function GetItem(Index: Integer): Integer;
procedure SetItem(Index, Value: Integer);

property List: TList read FList;
public
constructor Create;
destructor Destroy; override;

procedure Add(Param: Integer);
procedure Delete(Param: Integer);

property Item[Index: Integer]: Integer read GetItem write SetItem;
end;

0665664

NGNG

constructor TIntegerList.Create;
begin
inherited Create;

FList := TList.Create;
end;

destructor TIntegerList.Destroy;
var
i: Integer;
PInt1: ^Integer;
begin
with List do
for i := 1 to Count do
begin
PInt1 := Items[i - 1];
FreeMem(PInt1, SizeOf(Integer));
end;

FList.Free;

inherited Destroy;
end;

0666664

NGNG

function TIntegerList.GetItem(Index: Integer): Integer;
var
PInt1: ^Integer;
begin
PInt1 := List.Items[Index];

Result := PInt1^;
end;

procedure TIntegerList.SetItem(Index, Value: Integer);
var
PInt1: ^Integer;
begin
PInt1 := List.Items[Index];

PInt1^ := Value;
end;

0667664

NGNG

procedure TIntegerList.Add(Param: Integer);
var
PInt1: ^Integer;
begin
GetMem(PInt1, SizeOf(Integer));
PInt1^ := Param;
List.Add(PInt1);
end;

procedure TIntegerList.Delete(Param: Integer);
var
PInt1: ^Integer;
begin
PInt1 := List.Items[Param];
FreeMem(PInt1, SizeOf(Integer));
List.Delete(Param);
end;

で質問なのですがGetItem,SetItemの所で一時変数を介さずに行うやり方が
分からなかったのであれば教えて下さい。

0668本７ ◆HON7/awDa.

NGNG

<>で区切られた一列の長いtxtファイルを解釈して項目別に分けてやる処理がしたいです。
文字列を区切ってstring型の配列に格納するにはどうすればよいですか？

0669ミ,,ﾟДﾟ彡 ◆A6VzDeLphI

NGNG

どうぞ。

Delphiでtemplate
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1020833969

0670何も考えないでカキコ

NGNG

>>667
Result := PInteger(FList.Items[Index])^;と
PInteger(FList.Items[Index])^ := Value;
array of Integerのほうが100倍まし。勉強し直してください。

0671何も考えないでカキコ

NGNG

>>668
TStringStreamにつっこんで一文字ずつ取り出して'<>'が来たかどうか調べるとか。

0672本７ ◆HON7/awDa.

NGNG

>>668
ありがとうございます。やはり全文字を評価しないとダメですか。
ｐｅｒｌのｓｐｌｉｔみたいなのをクラス定義しておくと便利かもしれないですね。

0673664

NGNG

>>670
有難うごさいます。以後精進したいと思います。

一つ疑問があるのですがarray of integerでクラスを用いたやり方のように
容易に配列長を変化させる事は可能なのですか？

0674よく考えずにカキコ

NGNG

>>673
SetLengthのことか？

0675本７ ◆HON7/awDa.

NGNG

>>671
こんな感じにはやってみました。
このあとどうやって取り出すんでしょうか？

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
Rec:TStringList;
F:string;
Check: TStringStream;
begin
ClientSocket1.Close;
F := Edit5.Text;
Rec:=TStringList.Create;
Rec.Add(ClientSocket1.Socket.ReceiveText);
Rec.SaveToFile(F);
Rec.Free;
Memo1.Lines.Append(Rec.Text);
WebBrowser1.Navigate(F);
Check := TStringStream.Create(ClientSocket1.Socket.ReceiveText);
Check.WriteString(Rec.Text);
end;

0676本７ ◆HON7/awDa.

NGNG

何か間違えてました・・
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var

Rec:TStringList;
F:string;
Check: TStringStream;

begin

ClientSocket1.Close;

F := Edit5.Text;

Rec:=TStringList.Create;
Rec.Add(ClientSocket1.Socket.ReceiveText);
Rec.SaveToFile(F);
Rec.Free;
Memo1.Lines.Append(Rec.Text);
WebBrowser1.Navigate(F);

Check := TStringStream.Create(Rec.Text);

ここからがわかりません

end;

0677何も考えないでカキコ

NGNG

>>672
どっちにしても全ての文字を調べるのは同じこと。
まさかPerlのSplitはマッチしなさそうなところは飛ばして調べないとか？

0678本７ ◆HON7/awDa.

NGNG

>>677
おっしゃるとおりです。
ただライブラリが用意されてるんならそれを使いたい・・と言うか
自分の作ったクラスに実行速度が望めるかどうか。。

0679664

NGNG

>>674
なるほど。

0680何も考えないでカキコ

NGNG

>>678
まずはぐぐることから始めてみませんか。
http://www.google.com/search?num=50&hl=ja&ie=Shift_JIS&q=delphi+%90%B3%8BK%95%5C%8C%BB+split&lr=lang_ja

0681デフォルトの名無しさん

NGNG

素直に標準で正規表現サポートした言語使えばいいのに｡

0682デフォルトの名無しさん

NGNG

>>681
あなたが >>668 の問題を正規表現でどう解決するのかとても興味があります。
ぜひご教示ください。

0683デフォルトの名無しさん

NGNG

TStringListにAddっていう元からある文字列に追加していくメソッドがありますが
元からある文字列を破棄して文字列を追加する、という処理はどうやってやればいいでしょうか？

0684デフォルトの名無しさん

NGNG

>>683
全部破棄するの？
それとも特定の行を入れ替えたいの？

0685デフォルトの名無しさん

NGNG

>>668
CommaText プロパティまたは DelimitedText プロパティは？

0686683

NGNG

>>684
全部破棄したいのです。

0687デフォルトの名無しさん

NGNG

>>686
A. ClearしてAdd
B. Text:='新しい文字列'
C. Freeして新しくCreate

0688683

NGNG

>>687
Bで自分のやりたいように処理させる事が出来ました
ありがとうございました

0689　

NGNG

>>642
騙りじゃないとして…
マルチポスト先にレスが付いてるから確認しろやカス。

0690デフォルトの名無しさん

NGNG

さっきから始めました
書くわけでなく読んでます＜ソース

Unitの構造(beguinまでのpublic云々とか)とか
がわかりません
わかりやすいサイトを教えてください
http://kakinotane.s7.xrea.com/dirDelphi2/d052.html
とりあえず、この辺見てます

0691デフォルトの名無しさん

NGNG

>>690
つーか、検索するなり、このスレのテンプレートから探すなり…。

0692デフォルトの名無しさん

NGNG

カスとか言ってる時点で煽りじゃないのか

0693デフォルトの名無しさん

NGNG

>>692
どの辺に「煽り」って文字があんだ？
「誰かのイタズラで騙りでなければ」って意味だ。
脊髄反射すんな。

0694デフォルトの名無しさん

NGNG

読み間違えただけじゃないか('Ａ`)　なんか風紀厨が来てますね

0695デフォルトの名無しさん

NGNG

マルチポストするようなアフォは放置しる。わざわざ煽んな、妙なの紛れるから。

0696デフォルトの名無しさん

NGNG

＞カスとか言ってる時点で煽りじゃないのか
　　↑これは「何厨」としての書き込みなんだ？

0697デフォルトの名無しさん

NGNG

Indy9.1.11で
メーラーを作ってるのですが
送信はうまくいっても
受信がうまくいきません
具体的にはヘッダは読み取れるのだけど
本文が読み込まれないといった具合です

デモを見ながら作成していったので
どこか見落としがあるのかと思い
IndyのDemoをダウンロードして実行しても同じでした
(以下に問題の発生するDemoのソースを抜粋)
TfrmMain.RetrieveExecute----------------------------
//get message and put into MSG
ShowStatus('Retrieving message "' + lvHeaders.Selected.SubItems.Strings[3] + '"');
POP.Retrieve(lvHeaders.Selected.Index + 1, Msg); //Unknown Message Part Type.の例外
statusbar1.Panels[0].text := lvHeaders.Selected.SubItems.Strings[3];

IndyDemo
h**p://www.nevrona.com/indy/demodownloads/I9D6_Demos_24Nov02.zip

何か見落としがあるのでしょうか？

0698デフォルトの名無しさん

NGNG

Indy9.1.11で → Indy9.0.11で

0699デフォルトの名無しさん

NGNG

Delphi6Personalの無料版を使い始めたばかりなんですが、質問です。
自作のプログラムをコンパイルするときに、何か作成元に関する情報がこっそり埋め込まれたりするんでしょうか。
自作ツールを匿名で配布したいんですが。

0700690

NGNG

>>691
あーどもです
カスってのはよくわかりません
マルチポストはしてないです

>>690に書いたURLは>>1のwiki内の初心者向けLINK集にあったものです

検索はしました
http://www.google.co.jp/search?num=50&lr=lang_ja&q=delphi%20unit
当然というべきかUnitという言葉がかなり一般的なので
delphiにおけるUnitについて調べる際して
それを指し示す別なことばがわかればいいのですが
思いつきません

なのでここで質問しました

誰かわかるかたよろしくお願いします

0701デフォルトの名無しさん

NGNG

デルファイを立ち上げた時、作成されている標準フォームを例にします。
アレの、 Public やら Private やらは UNIT という物に直接かかっている訳ではありません。
UNIT 上で宣言された Class = TForm1 の定義なのです。
試しに新規作成で UNIT を作成してみればわかりますが、Public 云々の記述はありません。
Public 云々について知りたければ、デイファイにおけるクラスの方を資料をあさりましょう。

UNIT と言うのは、ソース群を格納・保存するための、規格単位です。
ソース群を UNIT 単位で区切る事によって、再利用性や、独立性を高める事が可能になっています。

Help のオブジェクトパスカル言語ガイドのプログラムとユニットと、
クラスとオブジェクト辺りを流せば、多少理解が深まるかと。

0702おはよう！

NGNG

>>690
「カス」及び「マルチポスト」は、あなた宛ではありませぬ。

>>642宛ザマス。

と、いいますか、ヘルプ読みつつ、何か作ってればそのうち自然に覚えます＜Unitとか

0703デフォルトの名無しさん

NGNG

作者の身元が漏れなく埋め込まれます

0704デフォルトの名無しさん

NGNG

そういや、少し前にウイルス作者が捕まったけど、
あれ、VCで作ったEXEに何か埋め込まれたからだったっけ？

0705デフォルトの名無しさん

NGNG

>>701といい>>704といい、不思議少女が多いな。

0706デフォルトの名無しさん

NGNG

すいません。質問です。

DelphiでつくったかどうかわからないAというアプリに搭載されている
Editコントロールで選択中の文字列を、DelphiでつくったBというアプリ側で
取得する方法というのはありますでしょうか？

ウィンドウハンドルを取得して、sendmessageを使用するのではないか、とい
う憶測を立てていますが、あまりにもWindowsAPIが膨大で、どのメソッド、
メッセージを使用したらよいのかわかりません。

よろしくお願いします。

0707何も考えないでカキコ

NGNG

>>706
FindWindowでできますよ。ここはスレ違いだと思いますけどね。
ttp://hp.vector.co.jp/authors/VA009712/take/delphi/kabeapp.htm

0708デフォルトの名無しさん

NGNG

>>706
　ありがとうございました！スレ違いスマソです。
これって結構有名なサイトですよね。完全に見落としていました。
　とりあえず、試してみます。

0709デフォルトの名無しさん

NGNG

(-＿-)　誰もカキコしてない・・・

0710デフォルトの名無しさん

NGNG

質問です。
TMediaPlayerをつかって、音楽を再生しようとしてるのですが、
MediaPlayer.FileName := ('hogehoge.mp3');
MediaPlayer.Open;
MediaPlayer.Play;
で、MP3を再生しようとしたときに比べて
MediaPlayer.FileName := ('hogehoge.mid');
MediaPlayer.Open;
MediaPlayer.Play;
でMIDIを再生しようとすると読み込み時間が長くなってしまいます。
このMIDIを読み込み時間を短縮するにはどうしたらよいでしょうか？

0711デフォルトの名無しさん

NGNG

>>710
MIDIファイルから音源のリセットを削除。

※DTM音源の場合、動作モード切替のMIDIメッセージの処理に50ms程度かかります。
　そのため、リセット送信後は50-100msほど何もデータを入れないのが普通。
　さらにそのあとに各CHに初期パラメータの設定をするので即時演奏開始は基本的に不可。

0712710じゃないけど

NGNG

>>711
あ、なるほどね。
読み込み時間が長いわけじゃなくて発音開始までが長いのか。
710じゃないけど妙に納得。

0713710

NGNG

なるほど。
MIDIファイル自体をいじらないとどうしようもないわけですか。
ありがとうございました。

0714デフォルトの名無しさん

NGNG

初心者質問ですがお願いします。
private
fname:string;
public
property name: String read fname write fname;
とするのと
public
name:string;
とするのは何か違いがあるのでしょうか？
プロパティにすると何か利点があるんですか？

0715デフォルトの名無しさん

NGNG

（・∀・）新着 5件

0716何も考えないでカキコ

NGNG

>>714
読み書きを制限できたりとか、Incの引数に指定できなくなるとか？

0717デフォルトの名無しさん

NGNG

アプリをアプリの中で起動したいんですが、
アプリを起動する方のアプリはどのようなパスを記述してつくればよいでしょうか？

0718デフォルトの名無しさん

NGNG

>>714
オブジェクト指向の入門書とかを読むと書いてあるよ

0719何も考えないでカキコ

NGNG

>>717
起動したいアプリのパスを記述してください。

0720デフォルトの名無しさん

NGNG

>>716
上に書いたような同じ変数をRead、writeする場合はどうなんでしょう。
よくみかけるんですが
利点というか、こうしなくてはいけない理由って
なんですか？

0721デフォルトの名無しさん

NGNG

>>720
例えばコンポーネントを作ってWebなどで配布した場合を考えると…

配布後しばらくしてそのコンポーネントの機能を拡張し、
ある「状態」の変化に応じていくつかの「動作」をさせたくなったとする。

この時その「状態」を保持しているのがただの変数だったら
それらの「動作」はどこへ記述したらいいだろう？タイマでも使う？
それともコンポーネントの使用者にそのためのコードを書いてもらうように通知する？
これがとても馬鹿げたことなのは言うまでもないでしょ。

つまりコンポーネントを使用するアプリに変数をそのまま使うことを認めてしまったら
その変数に関する動作の変更は極めて制限されてしまう。

ところがこれをプロパティの形にしておけば
「状態」の変化に応じた「動作」はWriteメソッドに記述すれば済むし、
このコンポーネントを使用しているアプリも
ただ再コンパイルするだけでその機能が拡張されることになる。

このようなわけで
コンポーネントに限らず、クラスの再利用という観点から
変数をpublicにすることは絶対といってもいい程しない方が良く、
たとえ現時点では単なる変数と同じであっても
あえてプロパティの形にして使うことが推薦されているというわけ。
（たとえ自分がその場で使うだけのクラスでもプロパティを使う習慣にしておくと
　後で変更する際に記述する場所がはっきりして楽。
　更に言えば、これはあくまでも理由のひとつにすぎず
　値域や読み取り専用・書き込み専用といった制限等の理由も勿論あるよ。）

0722デルファイの名無しさん

NGNG

read, write共に同じ変数を指すのなら、特にメリットは無いんじゃないかな？
ただ、後からwriteをSetメソッドにしたくてプロパティに変えた時、
(内部で)単なるフィールドの代入を意図していた部分を全て書き変えないといけないのが手間かも。
それなら最初からプロパティにして、
nameとfnameを使い分けておけばいいという話かな…実際はそううまくいかないけど。

余談ながら、read onlyなプロパティと引数の無いfunctionメソッドは
後から交換しても利用側のコードを変えなくて済みます。

0723721

NGNG

いけね
Delphiのプロパティは見かけ上変数と同じになるから、
変数を後でプロパティに置き換えてもアプリ側には気づかれないんだった。
「状態」⇒「動作」の件は無しね。

0724デフォルトの名無しさん

NGNG

たとえば、プロパティだと参照渡し出来ないとか　ポインタ取れないとか？

0725本７ ◆HON7/awDa.

NGNG

TClientSocketの質問です。
GET /*** HTTP/1.1を送って帰ってきたデータを例えば

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);

var

RecText:string;

begin
RecText := ClientSocket1.Socket.ReceiveText;
Memo1.Text := RecText;
end;

で読んでも読みこんだテキストが途中で途切れてしまうんですが全部読みこむ
にはどうすればよいですか？

0726デフォルトの名無しさん

NGNG

>>725
せめて自分で原因を特定して来い。

0727デフォルトの名無しさん

NGNG

>>726
> >>725
> せめて自分で原因を特定して来い。

それって、「＊やさしい＊」くないんじゃないの？
看板に偽りありだな。（ｗ

0728何も考えないでカキコ

NGNG

>>725
TIdHTTP(Indy)使ってください。ヘッダとか簡単に扱えてマジおすすめ。

0729デフォルトの名無しさん

NGNG

>>728
ライブラリ厨が現れた。

0730デフォルトの名無しさん

NGNG

729は頭がおかしいよ。

0731デフォルトの名無しさん

NGNG

>>730
みんなわかってるよ
アホは放置すべし。

0732デフォルトの名無しさん

NGNG

>>727
ここは「やさしい質問」スレだろ？w

0733デフォルトの名無しさん

NGNG

>>721-724
丁寧な説明ありがとうございます。
とても勉強になりました。

0734デフォルトの名無しさん

NGNG

自助努力の足りない人間を救うことは誰にも出来ない

0735ねこま

NGNG

原因を特定できないからここに来るんだろうにねぇ．(w
まあしかし 725 さんへ送る言葉としては，
「悪い事は言わないので TCP/IP の本を一度読みましょう」
多分デバッガか何かで見て全部のデータがきていないと判断したのでしょうが，
全文到達するまで繰り返し OnRead が発生しているはずです．

安易に Indy を薦めるのもどうかと思います
TClientSocket はプロトコルのやりとりが見えて勉強には良いです
(まあ既に Obsolete なんですが・・・)
Indy は抽象化が進みすぎていて初心者には全体が把握しきれないと思います

0736ＤＥＬＰＨＩでWINDOWSＣＥ用のソフトが作れますか？

NGNG

ＤＥＬＰＨＩでWINDOWSＣＥ用のソフトが作れますか？

0737デフォルトの名無しさん

NGNG

スパルタ質問スレだと言っておろう
莫迦にはそれが分からないものです

0738何も考えないでカキコ

NGNG

>>735
彼がプロトコルについて分かっているかかなり怪しいですが、
分かっているんならわざわざめんどくさいことしなくていいのでは。
Indyは標準でついてきますし。

0739デフォルトの名無しさん

NGNG

>>735
勉強するのはいいけどさ、
ちょっと詰まるたびにいちいち聞かれるほうはたまったもんじゃないよ。
アンタが専属教師になるっていうなら別だけど

0740デフォルトの名無しさん

NGNG

別に回答を強要しているわけじゃないんだから無視すればいいだけだろ？
自意識過剰の自治厨が。
って言う奴が出てくる流れだ。

0741デフォルトの名無しさん

NGNG

>>740
あーた自分でいっちゃってるじゃないさ。

0742デフォルトの名無しさん

NGNG

Delphi始めたばかりの初心者です。
質問があります。
半角の 10 を、全角文字の１０に変換する関数ってあるでしょうか？

0743デフォルトの名無しさん

NGNG

>>742
Delphiにはないです。LCMapString APIを呼べばできます。やり方はDelphi Acid Floorで。
なお、ここはDelphi初心者対象ですので[「上記サイトへはどうやって逝けば」とかいう
質問には応じかねます。上記の単語を使ってｸﾞｸﾞれば容易にたどり着けますよ。

0744デフォルトの名無しさん

NGNG

あっ。釣れた（ｗ

0745デフォルトの名無しさん

NGNG

クラい性格だな。楽しいか？

0746デフォルトの名無しさん

NGNG

半角から全角への変換って出来なかったのか

0747デフォルトの名無しさん

NGNG

>>746
できると思ったならお前が答えな。

0748デフォルトの名無しさん

NGNG

小文字から大文字なら余裕だけどな

0749デフォルトの名無しさん

NGNG

やっぱりできないんじゃん（藁

0750MonoのCSharepppperアーテイスト

NGNG

おいおい待ってくれよブラザー。

a=srting.toZenkaku("10");

だろ？

0751デフォルトの名無しさん

NGNG

半角から全角にする必要ないしな

0752デフォルトの名無しさん

NGNG

質問なのですが、ローカルにあるhtmlファイルをWebBrowserに表示させるにはどうすればいいのでしょうか？

0753デフォルトの名無しさん

NGNG

また釣りか。いい加減にしろよな。

0754デフォルトの名無しさん

NGNG

昔々、ある村に住む羊飼いの少年は、
村人にオオカミがきた、オオカミがきたと言っては（ｒｙ

0755デフォルトの名無しさん

NGNG

捕まって半殺しにされてました。

0756デフォルトの名無しさん

NGNG

>>742-749
半角なんて種類が限られてるからそういう関数を作る気になれば誰でも作れるだろ
（俺は何年も前に作った自前のを持ってる…美しくはないからウプする気もないけど）

0757デフォルトの名無しさん

NGNG

0758デフォルトの名無しさん

NGNG

>>750ってJAVAのソース？

0759ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>756
最近の書き込みを見ていると
変数を宣言する，計算して代入する
といった超基本的なことができていない方が増えているような…．
でもVBやDelphiだと出来なくてもプログラムが動いてしまうわけで．

0760デフォルトの名無しさん

NGNG

＞VBやDelphiだと出来なくてもプログラムが動いてしまうわけで．

Delphiはしっかり動きません。VBなんぞと一緒にせんでくれと。

0761デフォルトの名無しさん

NGNG

　Menu1.ShortCut := TextToShortCut('Ctrl+/');
　Menu2.ShortCut := TextToShortCut('Alt+/');
のように '/' を組み合わせた場合 Win9x ではうまくいきますが XP ではだめなようです。
なぜでしょうか？

0762デフォルトの名無しさん

NGNG

>>742
> 半角の 10 を、全角文字の１０に変換する関数ってあるでしょうか？
　そのものズバリの関数が標準で実装されています。
ユニット System
カテゴリ文字列処理ルーチン
　function Han10ToZen10(S: string) :string;
説明
　Han10ToZen10 は，半角文字列 '10' を全角文字列 '１０' に変換します。半角文字列 '10' 以外の文字列を指定したときは半角文字列 '0' を返します。初心者向きの関数として非常に有名です。

ソース（system.pas より）
　function Han10ToZen10(S: string) :string;
　begin
　　Result := '0';
　　if S <> '10' then Exit;
　　Result := '１０';
　end;

0763デフォルトの名無しさん

NGNG

>>762
おもしろいと思った。そう言うこと？

0764デフォルトの名無しさん

NGNG

SaveDialog1.FileNameと
Memo1.Linesの内容を消すにはどうすればいいですか？

0765デフォルトの名無しさん

NGNG

SaveDialog1.FileName := '';
Memo1.Lines.Clear();

0766本７ ◆HON7/awDa.

NGNG

>>760
結構メモリアクセス違反起すよ

0767デフォルトの名無しさん

NGNG

まぁ、半角の '10' を全角の '十' と変換できるとそれなりに価値はある。

'1234567890' を '壱拾弐億参千四百五拾六萬七千八百九拾' とか
'十二億三千四百五十六万七千八百九十' に変換。もちろん逆変換も。

馬鹿にするほどの内容ではないよ。

0768デフォルトの名無しさん

NGNG

>>766
VBはメモリアクセス違反じゃなく、参照が無いや、配列が足りないといった
実行時エラー(例外)になるね。
APIを使ったらDelphi同様注意しなくちゃならないけど。

0769デフォルトの名無しさん

NGNG

IMEで出来るがな

0770デフォルトの名無しさん

NGNG

そのとーり。IMEのAPIに投げて変換すればＯＫ

0771デフォルトの名無しさん

NGNG

>>767
どんな局面に使えますか？

0772デフォルトの名無しさん

NGNG

現在時刻を取得するにはどうすればよいでしょうか？

0773デフォルトの名無しさん

NGNG

>>772
画面の右下を見る。(デフォルト時)

0774デフォルトの名無しさん

NGNG

>>771
作れないからって僻むなよ（ｗ

0775デフォルトの名無しさん

NGNG

表面的に同じ動作をさせる場合DirectXを使うのと使わないのでは、DirectXを使っている方が処理速度が早いんですか？

0776Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

>>767
http://www.mogya.com/develop/kanjicalc/develop.html

　　　 ∧,,∧　　こんなんありました。
　　　ミ,,ﾟДﾟ彡
　　ﾐ　つ旦)~~
　～と,,,~),,~)　

0777本７ ◆HON7/awDa.

NGNG

いろいろ調べたんですが分からなかったので質問させていただきます。

CreateProcessで"C:\perl\perl.exe ***.cgi"を引数なしで実行し実行結果を
変数に格納したいのですが基本的なコードを書いて頂けませんか？
そこからいじくって広げていきたいです。よろしくお願いします。

0778デフォルトの名無しさん

NGNG

文字コードを判別するにはどうしたらよいのでしょうか

0779何も考えないでカキコ

NGNG

>>777
あなたは初歩的な質問が多すぎます。少しは自分で考えてください。
それができないならあなたは向いてないと思うのであきらめたほうがいいでしょう。
http://www.google.com/search?num=50&hl=ja&ie=Shift_JIS&q=createprocess+%95W%8F%80%8Fo%97%CD&lr=lang_ja

0780デフォルトの名無しさん

NGNG

>>777
死ね。クソスレ職人。

0781デフォルトの名無しさん

NGNG

Del厨の癖にどうしてこんなに偉そうなんだろう？？？？？

0782デフォルトの名無しさん

NGNG

総じてアホなVB厨よりは幾分ましかと。

0783デフォルトの名無しさん

NGNG

>>782
やっぱりDel厨は偉そうだな。

0784デフォルトの名無しさん

NGNG

>>781
おまえは何でそんなに偉そうなのかを
教えてくれ。

0785デフォルトの名無しさん

NGNG

>>783
楽しいですか？
あんたの人生。

0786デフォルトの名無しさん

NGNG

宗教臭いな

0787デフォルトの名無しさん

NGNG

例の白装束集団が言っている危険な電波に毒されてるんじゃないかって思うような
奴が最近多いな。

0788デフォルトの名無しさん

NGNG

>>787
いや。
あれが普通です。

0789デフォルトの名無しさん

NGNG

今時１万円も支払って商用開発できないツールなんて･･･ﾌﾟﾌﾟﾌﾟ

0790デフォルトの名無しさん

NGNG

厨臭いな。

0791本７ ◆HON7/awDa.

NGNG

Ｄｅｌ６無償ですが何か？。リファレンスがあれば助かるんやけど。
教える事に対する謙虚さも持ち合わせてないやつしかいないんだなぁ。
伸びが悪いのもそういう層だからか。
Ｘ６８０００の時は皆ＵＮＩＸ層みたいに有志が多かったのに。
いまいちアプリ容量も横膨れするし見限る所なのか

0792デフォルトの名無しさん

NGNG

>>791
＞リファレンスがあれば助かるんやけど。
ヘルプって知ってるか？お馬鹿さん。

0793デフォルトの名無しさん

NGNG

>>791はなんなの？
やばいオーラがでてる。

0794デフォルトの名無しさん

NGNG

UNIX屋は厳しいとずっと思っていたが。あんな質問したら総スカンされるはず。
それにとどまらず方々からお説教の嵐だろう。
よくここで祭になっていないものだとみんなの心の広さに感心してるよ。
サンプルコードはヘルプになければググってみれば、結構落ちているもの。
ピンポイントで質問してボタンクリックで動作させてみればテストはできるだろ？
誰も教えてくれなくても一通り書けるみたいなんだし。

多分VB.NETを使えばタダだしサンプルコードてんこ盛りでしょうから、そちらへの
移行をおすすめします(w

などと釣られてみる。

0795デフォルトの名無しさん

NGNG

嫌われていることに気づかない香具師が約 1 名。

0796デフォルトの名無しさん

NGNG

stdcall を読むときどう発音してますか

0797デフォルトの名無しさん

NGNG

standard call

0798デフォルトの名無しさん

NGNG

すたんだーどこーる

0799デフォルトの名無しさん

NGNG

にこーる・きっどまん

0800デフォルトの名無しさん

NGNG

エスティーディーコール

0801デフォルトの名無しさん

NGNG

cdecl

シーデクル？

0802本７ ◆HON7/awDa.

NGNG

Ｘ－ＢＡＳＩＣのＣ言語コンバータはええ感じやった

0803デフォルトの名無しさん

NGNG

with文について。。。

ヘルプより
with 文は，レコードのフィールドやオブジェクトのフィールド，プロパティ，およびメソッドを参照するための簡便な方法です

ってえのはつまり、
例
Bitmap.Width := ***;
が
Width := ***;
という風に短くなる　ってことですか？

他の使い方（？）とかあるのかな

0804デフォルトの名無しさん

NGNG

訳の分からんネタだ…

0805デフォルトの名無しさん

NGNG

>>803
上手に使えばコードが見やすくなるけど
使いすぎると混乱を引き起こすことがあるのでご用心

0806デフォルトの名無しさん

NGNG

>>803
コンパイル時にはCで言うマクロのように展開されるって聞いたことがあるから
ホントに利点としてはコードを簡略に記述できるってところに集約されると思う。

0807デフォルトの名無しさん

NGNG

TImageの画像ファイルを半透明にして表示するのは、どうやるのでしょうか？

0808803

NGNG

>>805-806
しょうもない質問にわざわざありがとうございます。
使いどころをちゃんと考えて使うようにしますね。

0809デフォルトの名無しさん

NGNG

>>803
　Ｃ言語で Point p={10,20}; とするような
　レコードをその場で初期化するのに使えると思えば良いでしょう。

慣れてくると、クラスインスタンスをその場で作って変数に格納せずに
with TStringList.Create do try
　CommmaText:= str;
　for i:=0 to Count-1 do begin
　　・・・・・
　end;
finally free; end;

なんて書く事も出来ます

0810デフォルトの名無しさん

NGNG

>>789
VB.NETか

0811デフォルトの名無しさん

NGNG

Label1.Captionの後ろから３文字を削除するには？
（Label1.Captionには常に３文字以上の文字列が代入されているものとする）

0812デフォルトの名無しさん

NGNG

>>811
死んでくれ

0813デフォルトの名無しさん

NGNG

>>812
残念、不正解です
VB厨は死んでください

0814何も考えないでカキコ

NGNG

>>811
Label1.Caption := Copy(Label1.Caption, 1, Length(Label1.Caption) - 3);

>>791
あんたの質問はほとんどのコードを他人に書いてくれっていってるようなもんだ。
それであんたは良いのかい？

0815A

NGNG

>>811
こっちのほうが安全かも。したいことにもよるけど。

var
s: WideString;

s := Label1.Caption;
Label1.Caption := Copy(s,1,Length(s)-3);

0816811

NGNG

>>814-815
私にも理解できました。どうもありがとうございます。

0817デフォルトの名無しさん

NGNG

正直なところ、TCaption型とString型ってなにが違うのか全然わからない・・。

0818デフォルトの名無しさん

NGNG

type TCaption = type string;

0819デフォルトの名無しさん

NGNG

Comboboxとかlistboxのitemを一時的に見えなくすることってできますか？
ちょっとわかりにくい質問の仕方してすいません。
item0 魚
item1 肉
item2 野菜
こんな感じのがあったとして、なんかの処理をして肉だけを選べなくしたい場合
item0 魚
item1 肉←(灰色になるとか、選択できなくなるようにしたい）
item2 野菜
itemから肉を削除するしかないですか？

0820デフォルトの名無しさん

NGNG

age

0821デフォルトの名無しさん

NGNG

811への回答見て思ったんだが、SetLengthで短くするのってダメ？
漏れはいつも、後ろから削るのはSetLength使ってたんだが・・・。

0822デフォルトの名無しさん

NGNG

>>819
OwnerDraw

0823デフォルトの名無しさん

NGNG

本７は馬鹿なので以下放置してください

おっぱいｽﾚが板違いてどういう事だ？出て来い管理人
http://qb.2ch.net/test/read.cgi/sakud/1044021102/l50

0824デフォルトの名無しさん

NGNG

荒らしツール作ってそう。

0825デフォルトの名無しさん

NGNG

自分でつくった関数からLabelとかのプロパティをいじろうとするとエラーになるんですが、
どうすればいいんでしょうか？

0826デフォルトの名無しさん

NGNG

0827A

NGNG

>>825
その関数が、どこに所属しているかによる。
ただの独立した関数なら、インスタンス名を指定してアクセスする。
Form1.Label1　とか。
独立した関数の内部で、特定のインスタンスを直接指定するのは
お勧めできないけど。

0828ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>760
コンポ（コントロール）を貼り付けるだけで特に変数宣言しなくても動くことは動くといいたかったのです．
>>807
ぐぐったらこんなのでますた．そういえば前に使ったことありました（汗．
http://homepage1.nifty.com/wizman/component/alphactl/
>>821
純粋に文字数で切りたい場合，全角文字を1文字としてカウントする必要があります．
なお，バイト数で切る場合も全角文字の1バイト目と2バイト目が泣き別れにならないように考慮する必要があります．
※全角文字の1バイト目で終わっている文字列に別な文字列をつなげるとつなげた部分が化けます．
>>825
恐らく関数ではなくて（そのLabelがのっかっているフォームとかの）メソッドするのが吉．

TForm1 = class(TForm)
（略)
private
function Nantoka; // ほかのフォームなどから呼び出す場合を除いてprivateにします．
public
published
end;

メソッドで無い関数や手続きは特定のフォームとかに関係ないもの限定したほうがよいと思います．
たとえば文字列を加工して返す関数などです．

0829デフォルトの名無しさん

NGNG

>>825　ラベルなら
function JibunKansu( const Label:TLabel):integer;
begin
Label.Caption:='プロパティに代入';
result:=length(Label.Left);
end;

みたいに引数でラベルを渡せるようにすれば大丈夫だと思うけど？

この場合、Labelはクラス変数になるから参照渡しと同等となるから

0830デフォルトの名無しさん

NGNG

リストボックスに似たコンポーネントを探しています。
マウスポインタの矢印は通常左上を指していますが、
リストボックスの左端で右上を指すようになり、その
状態でドラッグすると、リストアイテムの複数選択が
できるようになることがあります。
このコンポーネント名は何でしょうか？
TListBoxかTListViewだと思っていろいろプロパティを
変えているのですが、うまく動かなくて。

0831デフォルトの名無しさん

NGNG

自分で作れよ

0832何も考えないでカキコ

NGNG

>>830
Delphiで作られたアプリだったらリソースを覗くことでコンポーネント名が
分かります。

0833デフォルトの名無しさん

NGNG

http://pc2.2ch.net/test/read.cgi/tech/1040220302/
本７ ◆HON7/awDa 大活躍

0834デフォルトの名無しさん

NGNG

IdHttpのGetメソッドってタイムアウト時間を設定きないんですか？

0835デフォルトの名無しさん

NGNG

Delphi Personalって商用開発には使えないんですか？
実際に買って箱を開けて仕様許諾を読むまで分からなかった人が多数いるとしたら
本物の詐欺だと思いません？

0836デフォルトの名無しさん

NGNG

>>835
そんな事はありませんよ。ちゃんと書いてありますから。
それよりそんなことを調べないで詐欺だと言うほうが失礼ですね。
あなた、VB厨かC#厨かM$厨ですね。

0837デフォルトの名無しさん

NGNG

自演
（　´,_ゝ`）ﾌﾟｯ

0838デフォルトの名無しさん

NGNG

>>834
ReadTimeoutがそれじゃないの？

0839ななしへたぐらま ◆XcB18Bks.Y

NGNG

板違いですが…

　　　　 ∧____∧　　　　　//
　　　　 |　━　┥　　　 //
　　　　（　 ´ 3｀）　　　／￣￣￣￣￣￣￣
　　　⊂13 ￣つ　　＜　　煽りはｽﾙ～
　　　　ｙ　　人　 // ＼＿＿＿＿＿＿＿
　　　　（__＿）__）,//
　　　　　　　　　//
　　　　　　(煽り)）　

0840デフォルトの名無しさん

NGNG

モナギ…

0841A

NGNG

>>830
TListBoxでも、TListViewでもどっちでもいいから使って、
自分で状態に応じたマウスポインタの形の指定、と、
ドラッグした時の選択状態の変化。を管理すればいけるんじゃないかと思う。

0842　

NGNG

>>830
つーか、クラス名調べられるヤツで調べてみるとか。

＞TListBoxかTListViewだと思っていろいろプロパティを
＞変えているのですが、うまく動かなくて。
コード書かないで出来るとは思えない。
つーことは結局調べても大したこたないか（藁

＞このコンポーネント名は何でしょうか？
　　↑この問いに答えられる人はいないと思うよ。
なんだか、なぞなぞみたいだ（藁

0843本７ ◆HON7/awDa.

NGNG

なんだ？俺はラウンジャだぞ

0844デフォルトの名無しさん

NGNG

商用開発に使えないのは痛いよなあ

0845デフォルトの名無しさん

NGNG

っていうか、もう無料じゃないんだよね。
ビギナーには薦められない。

0846デフォルトの名無しさん

NGNG

>>844
商用開発できないのはPersonalだけ。

0847デフォルトの名無しさん

NGNG

仮にDelphi.NETがVB.NETに追いつけたとしても、Personalじゃ商用開発できないんでしょ？
それだったらVB.NET買うに決まってるよ。

0848デフォルトの名無しさん

NGNG

つっこみどころ満載ですがあえてスルーしよう。

0849デフォルトの名無しさん

NGNG

VB.NETのスタンダードで商用開発するなよｗ　

0850デフォルトの名無しさん

NGNG

なんだ、このスレVB使いがいた方が盛り上がっていいじゃん。

0851デフォルトの名無しさん

NGNG

スレたVB使いは不要です。

0852デフォルトの名無しさん

NGNG

VSアカデミック版は商用利用ができなかったんだよね。

0853デフォルトの名無しさん

NGNG

6.0ならできたけどな。

0854デフォルトの名無しさん

NGNG

>>853
どっかで聞いたセリフだな。

0855803

NGNG

質問です。
TBitmapのpixelfomatを指定するとなにかあるんですか？
指定しなくても動作はするんですけど。
処理とかＰＣへの負担が軽くなったり？

0856デフォルトの名無しさん

NGNG

ヘルプに書いてあります。

0857デフォルトの名無しさん

NGNG

連休中に何か開発環境買おうかと考えているのですが、DelphiとVB.NET、どちらがお得でしょうか？

0858デフォルトの名無しさん

NGNG

>>857
取りあえず無料のDelphi6Personalでどんな感じかつかんでみては？

0859デフォルトの名無しさん

NGNG

聞いた話ではDelphiよりもVB.NETの方が優れてるとのことですが
実際はどうなんでしょう？

0860デフォルトの名無しさん

NGNG

>>859
結局.NETが天下を取るか、それともコケるかで変わってくると思われます。
しばらく待ってみるのが吉。

0861デフォルトの名無しさん

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　VB.NETの質問はここでするモナー。
　（　　　　）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　｜｜｜
　（＿_）＿）

0862デフォルトの名無しさん

NGNG

文字列を描画する前に文字列の幅を取得するにはどうしましょう。

0863デフォルトの名無しさん

NGNG

>>862
GetTextMetrics

0864デフォルトの名無しさん

NGNG

Canvas.TextWidth(文字列) なんてのもあるね

0865デフォルトの名無しさん

NGNG

VB.NETならもっと簡単に出来ますよｗ

0866デフォルトの名無しさん

NGNG

>>865
それは事実だ

0867デフォルトの名無しさん

NGNG

>>865-866
確かにそうだが、ここで語る内容じゃないでしょ。

0868デフォルトの名無しさん

NGNG

>>867
>>861

0869デフォルトの名無しさん

NGNG

DelphiとVBは同じものなんだからスレ違いじゃないでしょ

0870デフォルトの名無しさん

NGNG

同じもんじゃないけど、VBのシェアを奪おうとかんばっているから
同じような使用目的を目指しているとはいえるなぁ。

0871デフォルトの名無しさん

NGNG

VB6使用者はVB.NETよりC#.NETに移行する人が多いらしいけど。
atmarkkitに書いてあった。

0872デフォルトの名無しさん

NGNG

Delphiはアマチュアうけがいいから、そこでがんばればいいのに。

0873デフォルトの名無しさん

NGNG

相談室も談話室もここも、もうどこもかしこもどいつもこいつも。
面白いのでもっとやってください。

0874デフォルトの名無しさん

NGNG

>>871
http://www.atmarkit.co.jp/fdotnet/questionnaire/2002-11/2002_11.html
だね。
VB.NETってよっぽど人気ないんだね。
VB6からの移行なのにVB.NETよりC#.NETに移行する人の方がよっぽど多い。

0875デフォルトの名無しさん

NGNG

VC++もVBももうだめぽ

0876デフォルトの名無しさん

NGNG

>>871 本当だ。これはなっとくできる記事だ。
> 現在最も使われている言語は「VB（6.0以前）」（47％）であった。

　　　　　現在使用言語　　もっとも習得したい言語
COBOL　　　6　　　　　　　0
C/C++　　　33 　　　　　　4
VBA　　　　24 　　　　　　1
VB 　　　　47 　　　　　　0
VB.NET 　　14 　　　　　　13
C# 　　　　21 　　　　　　49
Java 　　　31 　　　　　　27
Delphi 　　7　　　　　　　0
VB(J)Script29 　　　　　　0
Perl/PHP 　14 　　　　　　2
その他　　10 　　　　　　1

0877デフォルトの名無しさん

NGNG

Delphiだめぽ

0878デフォルトの名無しさん

NGNG

Delphi 　　7　　　　　　　0

0879デフォルトの名無しさん

NGNG

またループか。
.NETのサイトなのだからVB.NET、C#が圧倒的に有利なはず。
それなのに…

0880デフォルトの名無しさん

NGNG

不利な記事を持ってきた奴笑える。自爆してやがる。

0881デフォルトの名無しさん

NGNG

IDなくて良かったな（　´_ゝ`）

0882デフォルトの名無しさん

NGNG

使われているプログラミング言語ランキング
http://sourceforge.net/softwaremap/trove_list.php?form_cat=160

C(10780)
C++(10440)
Java(8602)
PHP(6495)
Perl(4553)
Python(2349)
VisualBasic(1347)
JavaScript(1179)
UnixShell(1110)
Delphi/Kylix(1070)
Assembly(1006)
C#(736)
PL/SQL(718)
Tcl(664)
Other(586)
ASP(376)
ObjectiveC(339)
Lisp(243)
Pascal(226)
Ruby(216)

0883本７ ◆HON7/awDa.

NGNG

Ｘ－ＢＡＳＩＣ
Ｎ８８日本語ＢＡＳＩＣ
ＸＣ
ＢａｓＴｏＣ

0884デフォルトの名無しさん

NGNG

10個パネルコンポーネントを並べて、その中に文字列を
表示させたいのですが、

var
Test : Array [ 1..10 ] of Integer;
i : integer;
n : string;
begin

for i := 1 to 10 do
begin
test[i] := i;
n := 'Panel' + inttostr(test[i]);
n.caption := inttostr(test[i]);
end;

のよーに書くと
「レコード、オブジェクトまたはクラスのいずれかが必要です」
と怒られるのですが、どうすればよろしいのでしょうか？

0885デフォルトの名無しさん

NGNG

>>884
FindComponent

0886デフォルトの名無しさん

NGNG

>>882
それオープンソースだけだから、それ以外も含めたら全然違うよ。

0887デフォルトの名無しさん

NGNG

荒らしてるのはすべてDel厨

0888デフォルトの名無しさん

NGNG

>>887
命かける？

0889デフォルトの名無しさん

NGNG

　　　　　　　　　　　　 ll==============ll
　　　　　　　　　　　／￣￣￣￣＼:::::::::::||
　　　　　　　　　（　　人＿＿＿＿）　やっぱりDelphi最高だよな。
　　　　　　　　　＿｜./　　ー◎-◎-） :::::||＿＿＿＿＿
　　　　　　　／..　（６　　　　　(_　_)　）＿||　　　　　　／
　　　　　　／　　　｜　.∴　ノ　　３　ﾉ＿__〕　　　　／∥　＿＿＿_
　　　　／　　　　　ゝ　　　　　　　ノ　ヽ／　　　／　 ∥／　　　／|＿
　　　／　　　　　　／　　　　￣￣　　）＿＿／　　　∥|三三三|／／|
　　　￣∥￣￣　（＿　　　　　　　＿／　　∥　　　　　　　_|三三三|／
　　　　 ∥　　　　　（　　　　　　　　）　　　 ∥　　　　　　　|＿＿＿|／
　　　　 ∥　　　　/（　　　　　　　　）~⌒） ∥　　　§～～　　　＿ /__／
　　　　　　　　　（　　　　　　　　　　　　/　　　　　　⊂二⊃　／| ./／／|
　　　　　　　　　　＼,＿＿_λ__＿＿,,,ノ　　　　　　　＼__／　|￣￣￣|／

0890デフォルトの名無しさん

NGNG

（　´_ゝ`）

0891デフォルトの名無しさん

NGNG

>>884
n : string;
n.caption?

0892デフォルトの名無しさん

NGNG

>>891
トリップつけてないお前は荒らし

0893デフォルトの名無しさん

NGNG

>>892
　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　オマエモナー
　　（　　　　）　＼＿＿＿＿＿
　　｜｜　|
　　（_＿）＿）
　　　　　　　　　　　　　　　　　　

0894デフォルトの名無しさん

NGNG

>>893
　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　オマエモナー
　　（　　　　）　＼＿＿＿＿＿
　　｜｜　|
　　（_＿）＿）

0895デフォルトの名無しさん

NGNG

今後の展開予想

・連休明けまでスレがまともに機能しない
・連休中に煽りのみで1000まで行く
・新スレは荒らしによって立てられる
・新スレの>>1にはなぜかVB.NET関連の書き込みが

0896デフォルトの名無しさん

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　.VB　）　.| Delモナーは時に私であり、時にはVB.NETの人。
　｜｜｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

0897デフォルトの名無しさん

NGNG

>>896
次スレのテンプレにどうぞ

0898デフォルトの名無しさん

NGNG

900行ったら新スレ立てるか。

0899デフォルトの名無しさん

NGNG

次スレは950よろ

0900デフォルトの名無しさん

NGNG

GW終わるまで立てないほうがいいんじゃないかな？
3スレあるから避難先には事欠かないし。

0901デフォルトの名無しさん

NGNG

こんな状況の中聞きたいことがあるのですが
変数に一文字しか入れないとして
１バイト文字か2バイト文字か判断させるには
どうすればいいでしょうか？

0902１度は検索すれ

NGNG

>>901
ByteType

0903デフォルトの名無しさん

NGNG

>>900
｜_ゝ`）　同意してみる

｜彡ｻｯ

0904デフォルトの名無しさん

NGNG

>>902
無理だろ。SJISの2バイト目とASCIIコードとか判別不可。

0905デフォルトの名無しさん

NGNG

　　　　　　　　　　∫　　　＿＿＿＿＿＿＿＿＿
　　　∧,,∧ 　　　∬　　／sjis使うDelphiなんてもう
　　ミ,,ﾟДﾟ彡っ━~　　＜　　やってらんねーよ
＿と~,,　　~,,,ﾉ_. 　∀　　　＼　みなーで、寝返ろうや
　　　ﾐ,,,,/~), │　┷┳━ 　￣￣￣￣￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣|　┃
￣￣￣￣￣￣￣　┻

0906デフォルトの名無しさん

NGNG

さて、次スレ立てるか。

0907デフォルトの名無しさん

NGNG

断固反対。

0908A

NGNG

>>901
１文字しか入ってない、っていう前提でなら、
Length(string(s));
でわかるんじゃない？

0909ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>884
そのパネルの名前が Panel1 ～ Panel10 だとすると
var
i: integer;
thePanel: TPanel;
begin
for i := 1 to 10 do
begin
thePanel := FindComponent('Panel' + IntToStr(i));
thePanel.Caption := IntToStr(i) + '番目のパネルでつ';
end;
end;

>>901
変数が通常の文字列（string）で，かつ正しい１文字が入っていることが保証されているなら
（全角の1バイト目だけとか2バイト目だけということがないなら）
単に長さが1か2かで判別できるのではないでしょうか．
変数がワイド文字列（WideString）なら通常の文字列変数に代入して以下同じ．

0910デフォルトの名無しさん

NGNG

ロシア語を入力したいのですがTMemoだと入力できません
文字化けなどではなく反応がないです
メモ帖などでコピーしたものはペーストできました
また、TRichEditだとうまく入力できました
TMemoでロシア語を入力するにはどうすればよいでしょうか？

0911デフォルトの名無しさん

NGNG

ロシア語版windowsとdelphiで開発してくらはい。

0912デフォルトの名無しさん

NGNG

Delphiはメモ帳より劣ると。

0913デフォルトの名無しさん

NGNG

>>910
WideString版のTMemoコンポーネントがどこかにあった筈だから探してみたら？

0914デフォルトの名無しさん

NGNG

0915デフォルトの名無しさん

NGNG

UNICODE, VCLでぐぐればすぐ見つかるでしょ。CLXなら何もせんでいいけど。

0916デフォルトの名無しさん

NGNG

DelphiってUNICODE対応してないからダメダメなんだよね

0917デフォルトの名無しさん

NGNG

>>916
なにげにWindows9xを否定してるんだがな。それ。

0918デフォルトの名無しさん

NGNG

>>917
Windowsは2000、XP、2003しかありませんが何か？

0919デフォルトの名無しさん

NGNG

少なくとも>>916よりは有益だけどな。

0920デフォルトの名無しさん

NGNG

DELPHIが無くなるとかって書いてあったけど？

0921デフォルトの名無しさん

NGNG

>>920
どこに？

0922ミ,,ﾟДﾟﾐノ ◆A6VzDeLphI

NGNG

Tnt Delphi Unicode Controls
http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm

0923デフォルトの名無しさん

NGNG

そろそろ新スレ立てないとね

0924デフォルトの名無しさん

NGNG

Unicode関連
http://www.tmssoftware.com/unihtm.htm
http://www.eldos.org/elpack/elpack.html

>>919　まあもちつけ。>>916は通常の人よりわずかながら
情報収集能力が低く､わずかながら言語習得能力に乏しく、
わずかながら排他的な香具師なんだろ。

0925デフォルトの名無しさん

NGNG

感動しますた

画像を高品質に拡大／縮小するには？
http://www.atmarkit.co.jp/fdotnet/dotnettips/023resize/resize.html

0926デフォルトの名無しさん

NGNG

>>925
何を感動したの？　選択するだけでプログラミング気分を味わえるから？
でもさ、中身しらないで、選択してるだけじゃ全く身につかないよ。

・・・そういや中村さんのグラフィックの本に、拡大縮小のアルゴリズムソース付きで解説してたね。

0927デフォルトの名無しさん

NGNG

VB.NETの方がはるかに簡単にShift_JIS － UNICODE変換ができますね。

0928デフォルトの名無しさん

NGNG

>>627
例えば？　違いをあげてくれると嬉しいな　どうやって変換するの？　

0929デフォルトの名無しさん

NGNG

感動しますた

「「「「スマートな」」」」文字列処理のための正規表現入門（後編）
http://www.atmarkit.co.jp/fdotnet/basics/regex02/regex02_01.html

0930デフォルトの名無しさん

NGNG

>>929
どこで感動したの？　標準でそういうライブラリが付いてる所？
UNICODEだとオートマトン作るのメンドクサイから、あれば確かに便利だろうね。

でも、そういうやり方に慣れると、肝心のプログラミングが出来なくなっちゃうから注意しようね。

0931デフォルトの名無しさん

NGNG

見てくれよ、このVB.NETの驚異的なパフォーマンスを！
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnbda/html/ws03perfbench.asp

0932デフォルトの名無しさん

NGNG

>>930
オートマトンの話題についていけなかったのはどの言語使いだったっけ？(大爆笑

0933デフォルトの名無しさん

NGNG

>>931
これじゃあDelphiなんか使ってられないね。遅くて。

0934デフォルトの名無しさん

NGNG

>>931
ホントだね。
Win2K と Win2003でパフォーマンスに差が出るのがスゴイね。
ネイテブアプリにゃマネ出来そうもないや。

0935デフォルトの名無しさん

NGNG

VB6で張り合ってた頃が懐かしいね。
もうDelphiなんてライバルでもなんでもないけど。

0936デフォルトの名無しさん

NGNG

Delphiってエンプラ版じゃないとウェブサービス作れないんだろ？
ボッタくりだよまったく。
VB.NETなら無料で開発できるのに。
しかもパフォーマンスは>>931の通り最強！！
勝負あったね。

0937デフォルトの名無しさん

NGNG

>>936
うん勝負あったね。　で？　何でそんな必死で勝負してるの？

それから、このスレ質問スレなんだけどさ、埋めてるつもりなの？　なら新スレたててね

0938デフォルトの名無しさん

NGNG

五味記者がDelphiユーザーだって本当ですか？

0939デフォルトの名無しさん

NGNG

ゴミにはDelphiがお似合いというおちか？

0940デフォルトの名無しさん

NGNG

ｱﾙ厨釣られすぎ。

0941デフォルトの名無しさん

NGNG

でもVB.NET優勢なのは事実なんだよなー

0942デフォルトの名無しさん

NGNG

放置しろよ豚ども

0943デフォルトの名無しさん

NGNG

>>942
そういうお前が放置できていない。

0944デフォルトの名無しさん

NGNG

　　　　　　　　　　　　 ll==============ll
　　　　　　　　　　　／￣￣￣￣＼:::::::::::||
　　　　　　　　　（　　人＿＿＿＿）　DelphiがVBごときに負けるわけがない。
　　　　　　　　　＿｜./　　ー◎-◎-） :::::||＿＿＿＿＿
　　　　　　　／..　（６　　　　　(_　_)　）＿||　　　　　　／
　　　　　　／　　　｜　.∴　ノ　　３　ﾉ＿__〕　　　　／∥　＿＿＿_
　　　　／　　　　　ゝ　　　　　　　ノ　ヽ／　　　／　 ∥／　　　／|＿
　　　／　　　　　　／　　　　￣￣　　）＿＿／　　　∥|三三三|／／|
　　　￣∥￣￣　（＿　　　　　　　＿／　　∥　　　　　　　_|三三三|／
　　　　 ∥　　　　　（　　　　　　　　）　　　 ∥　　　　　　　|＿＿＿|／
　　　　 ∥　　　　/（　　　　　　　　）~⌒） ∥　　　§～～　　　＿ /__／
　　　　　　　　　（　　　　　　　　　　　　/　　　　　　⊂二⊃　／| ./／／|
　　　　　　　　　　＼,＿＿_λ__＿＿,,,ノ　　　　　　　＼__／　|￣￣￣|／

0945デフォルトの名無しさん

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　VB.NETの方が優れてるモナー。
　（　　　　）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　｜｜｜
　（＿_）＿）

0946デフォルトの名無しさん

NGNG

豚とか言ってごめん
でもみんな頑張って放置しようぜ。
むしろVBをNGワードに入れる方向で

0947 ◆Dcskb1Nfqs

NGNG

IDなくて良かったな（　´_ゝ`）

0948デフォルトの名無しさん

NGNG

>>941
優勢な方につきたい性分なの？　よく判らんな。

でもさ、ベンチマークで勝ってるから勝ちなんてちょっとオマヌケだと思うよ。
パソコンのリソースは5年で10倍になる。　
全く同じベンチマークを5年前のパソコンでやったらどうなる？
5年先にやったらどうなる？

5年先に速度10倍か、扱えるデータ量10倍の好きな方をユーザに選択させてくれるかい？

0949 ◆OIZKOUKURI

NGNG

>>948
放置しろって

0950デフォルトの名無しさん

NGNG

>>949
　まあ、もう埋める時期だろ。　次スレたてて好きにやったらいいさ。

0951デフォルトの名無しさん

NGNG

荒れるからGW過ぎるまで次スレ立ててはいけません。

0952次スレテンプレ

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜｜｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

ダウンロードはこちら
http://www.microsoft.com/japan/msdn/netframework/downloads/sdk.asp

0953 ◆OIZKOUKURI

NGNG

黄金厨が消えるまで次スレはいらんよ
一旦フサスレに合流すればいい

0954デフォルトの名無しさん

NGNG

こんなところでいくら煽っても案件は来ないぞ、黄金厨ども

0955デフォルトの名無しさん

NGNG

さて立てるかｹｹｹ

0956デフォルトの名無しさん

NGNG

次スレ

Visualペタジーニ.NET
http://pc2.2ch.net/test/read.cgi/tech/1051863811/

0957デフォルトの名無しさん

NGNG

>>954
ここで煽って案件来ました。(･∀･)
あなたはここで擁護して案件来ましたか？

0958デフォルトの名無しさん

NGNG

>>957
案件来ませんでした(T_T)

0959デフォルトの名無しさん

NGNG

>>957
かわいそうに・・・・.NETだろうがJAVAだろうが、
時間売りの人売り仕事なんてやりゃやるだけ若さ吸取られて・・・後には何にも残らないよ。

0960デフォルトの名無しさん

NGNG

>>957
腰の回りにダブダブについた肉がのこりマスタ

0961デフォルトの名無しさん

NGNG

もう若さなど残ってない定年間際のじいさんだから言えるセリフですね(･∀･)

0962デフォルトの名無しさん

NGNG

>>961
定年間際まで現役ならそれはそれでスゴイとは思うがな。
現実は３０前後で選別されて大多数は捨てられる。

0963デフォルトの名無しさん

NGNG

つーことは３０前後で選別されて捨てられたじいさんってことですね(･∀･)

0964デフォルトの名無しさん

NGNG

>>970
次スレお願い。

0965デフォルトの名無しさん

NGNG

>>964
ＧＷ明けまで不要

0966デフォルトの名無しさん

NGNG

0967デフォルトの名無しさん

NGNG

0968デフォルトの名無しさん

NGNG

aaa

0969デフォルトの名無しさん

NGNG

aaaa

0970デフォルトの名無しさん

NGNG

aaaaa

0971デフォルトの名無しさん

NGNG

>>965
荒らすな。

0972デフォルトの名無しさん

NGNG

厨がどうしても過ぎスレ消そうとがんばってるなぁ（ｗ

0973デフォルトの名無しさん

NGNG

>>980
次スレお願い。

0974デフォルトの名無しさん

NGNG

Visual Basic .NET 言語仕様書
http://www.microsoft.com/downloads/details.aspx?FamilyID=bf32527d-187c-49fa-8c67-9e9105535550&DisplayLang=en

0975デフォルトの名無しさん

NGNG

お前らウィソなんか使ってないでマク使えよ。最高だぞ。

0976デフォルトの名無しさん

NGNG

で、結局立てていいの？立てちゃ駄目なの？

0977デフォルトの名無しさん

NGNG

スレ落ちるので立てましょう。

0978デフォルトの名無しさん

NGNG

>>976
だから立てんな言ってるだろ。ﾎﾞｹ

0979デフォルトの名無しさん

NGNG

>>978
厨は「立てるな」と言っても立てるよ

まあ、荒らし目的のスレだったら削除依頼出すだけだけどな

0980デフォルトの名無しさん

NGNG

このままスレ消しちゃいましょう（ｗ

0981デフォルトの名無しさん

NGNG

結局VB.NET優位は反論されずにこのスレが終わるわけだが

0982デフォルトの名無しさん

NGNG

0983デフォルトの名無しさん

NGNG

0984デフォルトの名無しさん

NGNG

aaa

0985デフォルトの名無しさん

NGNG

aaaa

0986デフォルトの名無しさん

NGNG

aaaaa

0987デフォルトの名無しさん

NGNG

aaaaaa

0988Delモナー

NGNG

次スレのテンプレをおいときました。ＧＷを過ぎた後に立ててください。
http://pc2.2ch.net/test/read.cgi/tech/1045813143/677-678

0989デフォルトの名無しさん

NGNG

>>988
乙

0990デフォルトの名無しさん

NGNG

aaaaaaa

0991デフォルトの名無しさん

NGNG

aaaaaaaa

0992デフォルトの名無しさん

NGNG

黄金厨恐るべし

0993デフォルトの名無しさん

NGNG

VB6には勝ってるがな！

0994デフォルトの名無しさん

NGNG

Del厨が自作自演でここまで荒らすとはたいしたもんだ

0995デフォルトの名無しさん

NGNG

我々は黄金厨には屈しない

0996デフォルトの名無しさん

NGNG

>>994
氏ね

0997

NGNG

0998デフォルトの名無しさん

NGNG

皆さんＧＷ明けまでさようなら。

0999デフォルトの名無しさん

NGNG

次スレはどこでしょう？

1000デフォルトの名無しさん

NGNG

1001１００１

Over 1000Thread

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

レス数が1000を超えています。これ以上書き込みはできません。

モナーの *やさしい* Delphi質問スレ Ver.14

モナーのやさしい Delphi質問スレ Ver.14