Delphi相談室その４
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG■前スレ
Delphi相談室その３
http://pc.2ch.net/test/read.cgi/tech/1010153466/
■気楽な雰囲気がよければこちら
モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412/
つづく >>2-3 あたり
0002デフォルトの名無しさん
NGNGミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室②
http://pc.2ch.net/test/read.cgi/tech/1013298748/
★クライアントサイド最強の Delphi に物申す★
http://pc.2ch.net/test/read.cgi/tech/1001442200/
Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/
■過去スレ
Delphi相談室その３
http://pc.2ch.net/test/read.cgi/tech/1010153466/
Delphi相談室その２
http://pc.2ch.net/tech/kako/995/995950803.html
Delphi相談室
http://piza.2ch.net/tech/kako/971/971261573.html
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNGDelphi-MLも。
00054
NGNG0006デフォルトの名無しさん
NGNGおつかれー。
0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNGそういう事だと思われ
0009デフォルトの名無しさん
NGNG（゜д゜@ ＜ あらやだ。新ｽﾚおつかれさま。
┳⊂ ） ＼＿＿＿＿＿＿＿＿＿＿
[[[[|凵ノ⊃
◎Ｕ□◎ ＝３ ｷｺｷｺｷｺ
0010Delフサギコ ◆zE1iiRdQ
NGNG￣￣￣￣￣￣￣|／￣￣￣￣￣￣￣￣￣
＼ ∧,,∧
ミﾟДﾟ,,∩
⊂;ﾞ ,ﾐ ←
￣ ￣ ﾐﾞﾞ_ ﾐ～ ﾄ ￣ ￣ ￣
∪ﾞヽ ﾐ ｵ
/ ∪ ＼
／ : ｵ
/ || . ｫ ＼
/ | : ｫ ＼
/ .
| . ｫ
0011デフォルトの名無しさん
NGNG∧∧ﾐ,, ,;;
( ﾟーﾟ)ノ)" ｱｹﾞ
/ ,,- ,,|
`ﾐ ;
`''''"
0012デフォルトの名無しさん
NGNG0013上品に
NGNG0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNGÐ ë á t h ってきます。
0016デフォルトの名無しさん
NGNGﾐ,, ,;;
( ﾟーﾟ)ノ)" ﾊｹﾞ
/ ,,- ,,|
`ﾐ ;
`''''"
0017デフォルトの名無しさん
NGNGhttp://dictionary2.goo.ne.jp/ej/voice/D/02030167.wav
0018デフォルトの名無しさん
NGNG0019デフォルトの名無しさん
NGNG表示された直後にフォームのボタンを押したいけどOnshowやOnCreateじゃ駄目だった。
0020デフォルトの名無しさん
NGNG次に呼ばれたイベントで処理したらいいんじゃない？
0021デフォルトの名無しさん
NGNGDelphiPersonal6.0にて、Winアプリに取り組んでいます。
他のコマンドライン対応アプリを動かしたい場合、どうすればよいのでしょう？
0022デフォルトの名無しさん
NGNG0023デフォルトの名無しさん
NGNG感謝します。
0024デフォルトの名無しさん
NGNGWith STARTUPINFO Do
Begin
cb := SizeOf(STARTUPINFO); {構造体のサイス゛をセット}
lpReserved := nil; {以外は初期化}
lpDesktop := nil;
lpTitle := nil;
dwFlags := 0;
cbReserved2 := 0;
lpReserved2 := nil;
dwysize := 0;
end;
CreateProcess(Nil, {実行するフ゜ロク゛ラム名(通常は次のハ゜ラメータを使用)}
PCHAR(exename+' '+comstr), {実行フ゜ロク゛ラムのコマント゛ライン}
Nil, {プロセスのセキュリティ属性}
Nil, {スレッドのセキュリティ属性}
False, {呼び出し側プロセスからのハンドルの継承}
0, {プロセスの作成を制御する追加フラグ}
Nil, {環境ブロックを指すポインタ}
PChar(GetCurrentDir) , {新しいプロセスのカレントパス}
STARTUPINFO, {ウィンドウの登録内容}
PROCESSINFO); {プロセスとその第1スレッドに関する情報}
0025>>24
NGNG0026Ｄｅｌｐｈｉ初心者
NGNG誰が１から学べるサイト教えてくらさい。
他の言語はＶＢとかは多少いじれますが、
全然大したことないので、
本当に１から学べるサイトがいいです。
ヤフで検索したけど、あんまりわかりやすいところがなくて…
ヨロシコです。
0027素数２
NGNGＶＢいじれるならここでイイ。
0028回し者じゃないのヨ 本当アルヨ
NGNG「デルファイの魔法」ってとこが、オレは一番分かりやすかったな。
つーか、標準コンポーネント周りだけど。
後は…。みんな似たりよったりかなぁ？検索で「初心者」って入れてみれば？
オレ的には標準コンポーネントいじりから入って覚えていったけど。
つーか、「魔法」って何だ？
0029デフォルトの名無しさん
NGNGまほう【魔法】
人間わざとは思えない，不思議なことを行う術。魔術。妖術。
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNGhttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538
ここから自分に会うトコを探しなさい。
0032Ｄｅｌｐｈｉ初心者
NGNGそこは既にヤフ経由で見ましたけど、よくわかりませんでした。
>>28
今度ぐぐる検索でもして、わかりやすかったら参考にさせてもらいます。
>>31
おっ！これは(･∀･)ｲｲ!
またわからないことあったら、来るので、初心者ですがよろしくね。
0033デフォルトの名無しさん
NGNG言葉は恥だし、質問する時も免罪符にすると叩かれるの分かってるのかなぁ…）
0035デフォルトの名無しさん
NGNG33じゃないけど、
俺も「初心者」って言葉は好きになれない。
いちいち強調する必要は無いよ。
質問の内容見ればわかるし、表記したことで無礼講が許されるわけでもないし。
そういう俺もつい最近ゆっくり始め出したんだけど、似たような境遇だと余計気になるもんです。
オールドスタイルのBASICから約10年ぶりなもので、浦島太郎状態。
GOSUB～RETURNがねぇ。行番号もねぇ。使いづらいなぁ
お互いがんばりましょう。
0036デフォルトの名無しさん
NGNG俺がついさっき作ったサイト
超初心者でもわかるように解説していくつもり。
まだつくりかけだけど。
http://www.geocities.co.jp/SiliconValley-Oakland/6548/index2.html
ちなみにブラウザしか作ってないから、それ以外の話は当分しないけど。
初心者って言葉は嫌いな人もいるのか…
俺は別に気にならないから自分も使ってしまっている…
気を付けよう…
0037486
NGNGおう、何か分かりやすいかも。
更新、よろしくおながいします。
0038Ｄｅｌｐｈｉ初心者
NGNGそういうものなんだ…
ここは詳しい人ばかりだから、謙譲の意を込めての「初心者」だったんだけどね。
それでは、次からこのハンドルやめます。
>>36
ブラウザは結構作りたかったものの一つなので、試しにやってみようかな。
どうもありがとう。
0039デフォルトの名無しさん
NGNGブラウザできたー！
感動します。
ありがとうございました。m(_ _)m
004036
NGNG更新頑張るです。
0041デフォルトの名無しさん
NGNGActiveXコントロール使えばPersonar版でもブラウザつくれるんか～
なんかブラウザの仕組みがチョト見えたようでウレシヨ。
0043デフォルトの名無しさん
NGNGbegin
処理;
end;
というプログラムをすると、一行目に「この型には指定した演算子は使えません」
と出るのですが、どこが問題なのでしょうか？(泣)
0044デフォルトの名無しさん
NGNGエラーな原因は判らないけど IntA IntB の型が違うんじゃないの？
宣言を見せて
0045デフォルトの名無しさん
NGNGDelphiのIDEって 拡張子が .C なら ちゃんとCの色分けしてくれるんだ
0046デフォルトの名無しさん
NGNG(*ﾟーﾟ)b グッ！よいね！
0047デフォルトの名無しさん
NGNG考え方が良くないと言うだけであって
自分も匿名掲示板なのにわざわざ誰だか解るように名前入れるのは
（その必要があるわけでないのならば）なんだかなぁと思いますね。
0048ベテランＳＥ
NGNG0049デフォルトの名無しさん
NGNG早速、ブラウザ作ってみました。
こんな簡単にできちゃうんだと、ちょっとびっくり。
実際に動作する物ができると楽しい～。
0051デフォルトの名無しさん
NGNGボーランドさんに文句言われないのかな？
0053誰に言うワケでもないが
NGNG安易に聞いたりしないだろうな？
0054５３
NGNG0055デフォルトの名無しさん
NGNG005655
NGNG0057デフォルトの名無しさん
NGNG講談社さんに文句言われないのかな？
0058素数２
NGNG0059デフォルトの名無しさん
NGNGどこが違うかわからなかったので、最初から作り直したらちょっとの修正でできたよぉ
すいません。
>>47
＞要するに>>33の言いたいことは「初心者」と書けば何でも許されると言う
＞考え方が良くないと言うだけであって
それはわかったって。
＞自分も匿名掲示板なのにわざわざ誰だか解るように名前入れるのは
＞（その必要があるわけでないのならば）なんだかなぁと思いますね。
漏れはきっちり話がしたいスレには時々捨てハンドル使うけど。
あとで検索でその周辺のレス見たりできるし、そのために必要と言えば必要。
0060デフォルトの名無しさん
NGNG表示前にテキストをいじれますか？
0061デフォルトの名無しさん
NGNG頭冷やしる！）
0062デフォルトの名無しさん
NGNG0063デフォルトの名無しさん
NGNGでいいの？
0064デフォルトの名無しさん
NGNGこれで合ってる？」って方向すら行かないワケ？検索してみたけどとか）
0065素数２
NGNG0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNG0068デフォルトの名無しさん
NGNGブラウズする前にダウンロードして
自分の思い通りになるよう編集後
ローカルに保存してその保存した
ファイルをブラウズするとか・・・
個人的なガイドラインとしては、教えてに対して
それなりのやり方までは書いて良いと思う。
その後は自分でなんとかする、ということで・・・
教えてに対していきなりソース貼るやつは嫌い
（あくまで個人的にね）
0069デフォルトの名無しさん
NGNGIndyのみで表示するのは大変じゃない？
0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNGキャッシュをとっているから、そういうやり方でも問題ないと思うけど、
思うけど！
007236
NGNGありがとう！
>51
>あーゆー「delphiで作ってる時の画面キャプ」ってのは、
>ボーランドさんに文句言われないのかな？
なんだか、ちょっと不安になってきた…
開設三日目にして、早くも閉鎖の予感…
0073デフォルトの名無しさん
NGNGたとえ、そうだとしても 著作権で認められている 引用の範囲
TVゲームじゃないんだからさ
0075デフォルトの名無しさん
NGNGDelphiは美しい、美しいんですよ。
0076デフォルトの名無しさん
NGNG帰り値が動的配列な関数で 要素に追加する AddDataという関数内手続きを書きました
function func : TIntArray;
procedure AddData(dt:Integer);
var n:Integer;
begin
n:=Length(Result);
SetLength(Result,n+1);
Result[n]:=dt;
end;
・・・ 略 ・・・
これはエラーにならず期待した動作をします。
さらに、AddData内部で使用していた追加データの位置 n を返すように
function AddData(dt:Integer):Integer;
と変更しようとして困ってしまいました。
Resultは 今度は自分の帰り値を指してしまいます。
といって pascal形式の関数名を使うと関数呼び出しになってしまいます。
これはどう解決すればいい？
0077デフォルトの名無しさん
NGNGfunction AddData(var func_result: TIntArray; dt:Integer): Integer;
とでもして受け渡したら?
スマートじゃないといっても、親のresultを直接触るほうが気持ち悪いよ。
0079名無しヘタぐらま ◆B18Bks.Y
NGNGいっそのことクラスにしちゃうとかはどうでしょう．
type
TIntList = class(TPersistent)
private
FInnerArray: array of integer;
function GetCount: integer;
procedure SetCount(Value: integer);
function GetNumber(index: integer): integer;
procedure SetNumber(index: integer; Value: integer);
public
procedure Assign(Source: TPersistent); override;
procedure Clear;
function Add(Value: integer): integer;
property Number[index: integer]: integer read GetNumber write SetNumber; default;
property Count: integer read GetCount write SetCount;
end;
（中略）
function TIntList.Add(Value: integer): integer;
begin
Count := Count + 1;
result := High(FInnerArray);
Number[result] := Value;
end;
procedure TIntList.Assign(Source: TPersistent);
begin
if Source is TIntList then
FInnerArray := (Source as TIntList).FInnerArray
else
inherited;
end;
procedure TIntList.Clear;
begin
Count := 0;
end;
function TIntList.GetCount: integer;
begin
result := Length(FInnerArray);
end;
function TIntList.GetNumber(index: integer): integer;
begin
result := FInnerArray[index];
end;
procedure TIntList.SetCount(Value: integer);
begin
SetLength(FInnerArray, Value);
end;
procedure TIntList.SetNumber(index, Value: integer);
begin
FInnerArray[index] := Value;
end;
上の例では動的配列を隠してますけど
配列の形で使いたい場合は
FInnerArray を IntArray とでも改名して public に移すといいと思います．
0080名無しヘタぐらま ◆B18Bks.Y
NGNG慣れるまで大変だと思いますが大丈夫です．
少なくとも私の知る範囲では
行番号のない言語への移行で
行番号が無いという理由で挫折した方というのは
聞いたことがありません．
008176
NGNGそうですね。クラスにするのも方法だと思います。
一度作ってインクルードファイルにしてやればIntegerだけでなく汎用に使える
テンプレートもどきクラスになるかもとか思ったりもしました。
でも >>75の関数内関数のコードだとResultの型を書かなくてもいいので
コピペで使う時は便利なんですよね。
0082デフォルトの名無しさん
NGNGwith TSaveDialog.Create(self) do try
InitialDir:=GetCurrentDir;
Filter :='BIN|*.bin';
DefaultExt:='BIN';
if execute then
with TFileStream.Create(FileName,fmCreate) do try
Write(bin[0],Sizeof(bin[0])*Length(bin));
finally Free;End;
finally free;end;
0083デフォルトの名無しさん
NGNG0084デフォルトの名無しさん
NGNG0085名古屋在住・中日ファン
NGNG変数を宣言せずにインスタンスを作成してすぐに破棄するってやつでしょ
Pascalの流儀ではないね・・・あんまりいい習慣じゃないかも
0086デフォルトの名無しさん
NGNG毎回毎回設定がウインドウの設定が保存されないダイアログの出来上がりですか。
0087Delフサギコ ◆zE1iiRdQ
NGNGミ,,ﾟДﾟ彡＜ 名古屋出張で味噌煮込みｳﾄﾞｿ食った
./つ=|||| ＼＿＿＿＿＿
～ﾐ ＼＿／
WithのCreateは逆に使いにくいと思うんだけどな。
0089デフォルトの名無しさん
NGNGなら関数使えば？
0090デフォルトの名無しさん
NGNG確かにローカル関数にして そこでローカル変数確保してもいいけど
コピペを前方にしなくちゃいけないでしょ？
入れたい場所にペーストして修正するだけでいいから気に入ってるんだけど？
0091デフォルトの名無しさん
NGNG0092デフォルトの名無しさん
NGNGXMLベースの技術ならなんとかなるんじゃないかと思うんだけど。
0093デフォルトの名無しさん
NGNG0097デフォルトの名無しさん
NGNG0098デフォルトの名無しさん
NGNGそこを敢えてやるのがDel厨の使命ではないか。
0099デフォルトの名無しさん
NGNGじゃあ、お前におながいします。
0100デフォルトの名無しさん
NGNG0101デフォルトの名無しさん
NGNGお前にウォンチュ！ことり。
■ このスレッドは過去ログ倉庫に格納されています