Delphi初心者のための寺子屋

1 名前：デフォルトの名無しさん mailto:sage [2005/11/23(水) 23:31:08 ] Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。 47 名前：デフォルトの名無しさん mailto:sage [2005/12/01(木) 23:13:41 ] >>39     p:=0;     cnt:=0;     str:=Memo1.Text;     len:=length(sword);     repeat         ap:=Pos(sword, copy(str, p, High(Integer)));         if ap>0 then         begin             p:=p+ap;             Inc(cnt);             Inc(p, len);         end;     until ap=0;     ShowMessage(IntToStr(cnt)); 48 名前：デフォルトの名無しさん [2005/12/01(木) 23:32:47 ] >>39をPCharを使って解きました 文字列の添え字に間違って0を使ってしまってハマってしまいました PCharのときは0から、それ以外(constやstring)は1からでいいんですよね？     p:=1;     cnt:=0;     str:=Memo1.Text;     PStr:=PChar(str);     len:=length(sword);     while PStr^ <> #0 do     begin         if PStr^ = sword[p] then         begin             Inc(p);             if (p=len) then             begin                 Inc(cnt);                 p:=1;             end;         end         else         begin             p:=1;         end;         Inc(PStr);     end;     ShowMessage(IntToStr(cnt)); 49 名前：デフォルトの名無しさん mailto:sage [2005/12/01(木) 23:32:52 ] >>47 パチパチパチ、すばらしい ◎-3 減点は、この場合は問題ないだろうけど、日本語処理では Pos じゃなく AnsiPos を使うこと。 いろいろ改良点があるけど ap:=Pos(sword, copy(str, p, High(Integer))); これがこの処理のキモ。でも、文字列コピーは最も効率悪い方法。 １MByte のテキストで検索文字列が１０００回現れたら、１０００回コピーする ことになる。PChar をつかってなるべくコピーをしないで処理する方法を 考えるのが次のお題。 50 名前：デフォルトの名無しさん mailto:sage [2005/12/01(木) 23:34:57 ] > PCharのときは0から、それ以外(constやstring)は1からでいいんですよね？ そう。string 型は、パルカルのときの実装を引きずっていますので例外的に１から、と覚える 51 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 00:00:42 ] ×パルカル ○パスカル 52 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 00:06:33 ] 49 のヒント AnsiStrPos 53 名前：デフォルトの名無しさん [2005/12/02(金) 09:07:30 ] TEditに英文字のみ入るようにする方法教えて下さい。 54 名前：53 [2005/12/02(金) 09:19:30 ] イベントハンドラでキー入力をカット出来ないかなぁ？ 55 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 09:35:55 ] >39にも誰か答えてやれよ 56 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 09:38:03 ] ×39 ○31 57 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 09:58:38 ] > Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。 単発質問はくだすれへ 58 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 16:42:41 ] >>48 Inc(p); if (p=len) then これじゃ、比較が一バイト少ないよ。それから、２バイト文字を考慮してないので ダメです。「Delphi」ならまず問題ないけど「D」だったら、2バイト文字の２バイト目も 数えてしまう可能性がある。 59 名前：デフォルトの名無しさん [2005/12/05(月) 21:38:25 ] >>49 日本語処理にも気をつけました よろしくお願いします。 const     sword='Delphi'; var     str:    AnsiString;     cnt:    Integer;     PStr: PChar; begin     cnt:=0;     str:=Memo1.Text;     PStr:=PChar(str);     repeat         PStr:=AnsiStrPos(PStr, sword);         if (PStr<>nil) then         begin             if (StrByteType(PStr, 0)=mbSingleByte) then             begin                 Inc(cnt);             end;             Inc(PStr);         end;     until PStr=nil;     ShowMessage(IntToStr(cnt)); end; 60 名前：デフォルトの名無しさん mailto:sage [2005/12/06(火) 00:37:50 ] >>59 AnsiStrPosを使ってる時点で2バイト文字として意味のある位置で 結果が返ってる筈なんでStrByteTypeいらない。 というか前からスキャン方式でStrByteTypeは使っちゃだめ。 途中の位置をいきなり指定してそれがどこにあたるか調べるのは 前後の文字を辿るしかなく、 逆にそういった機能を持つ関数を使うことは その次点に到達するまで前からスキャンしてきたこと自体を 無駄にしてる。 前から辿るならAnsi〜系を使わずに自力でマルチバイト処理をするとしても LeadBytesで充分。 61 名前：デフォルトの名無しさん mailto:sage [2005/12/06(火) 00:46:30 ] >>59 惜しい。あと一歩。７８点くらい。 たぶん結果は正しい。冗長なのが減点の原因。 AnsiStrPos は二バイト文字をサポートしていますので、検索の先頭を間違わなければStrByteType による確認は不要です。 それから、見つかったら、PStr は検索文字列の長さ分だけ Inc() してから再度検索します。     repeat         PStr:=AnsiStrPos(PStr, sword);         if (PStr<>nil) then         begin           Inc(cnt);           Inc(PStr, Length(sword));         end;     until PStr=nil; このようにすると検索文字列が 「Delphi」であっても「デルファイ」であっても問題なく検索できます。 >>59 の回答は検索文字列の最初が一バイト文字であることを仮定しているので正しくないです。 しかし、かなりな進歩で驚いています。 次のお題は、何回現れるかの他に、その位置も返すような関数をつくってください。具体的には、RichEdit に 同様にテキストを読み込んで、ボタンを押すと Delphi の部分が赤い文字列になるようにします。 赤文字にする方法、位置情報を返すための配列の定義の仕方など、分からないことがあったら個別に質問してください。 62 名前：デフォルトの名無しさん [2005/12/07(水) 01:04:33 ] >>61 begin     cnt:=0;     spos:=0;     str:=RichEdit1.Text;     PStr:=PChar(str);     len:=Length(sword);     repeat         p:=AnsiPos(sword, PStr+spos);         if (p>0) then         begin             Inc(cnt);             Inc(spos, p);             with RichEdit1 do             begin                 SelStart:=spos-1;                 SelLength:=len;                 SelAttributes.Color:=clRed;             end;             Inc(spos, len);         end;     until p=0;     ShowMessage(IntToStr(cnt)); end; //ここまで よろしくお願いします。 63 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 02:35:14 ] >>62 AnsiPosに暗黙のPChar→String変換で引数渡してるよね…。 これは暗黙に実行されるわりにコストがメチャ高いので、 ループの中では避けたほうがいい。 上と同じでAnsiStrPosじゃダメだったの？ 64 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 03:05:54 ] >>62 すばらしい！ つぎに、汎用的に使えるように関数にしてみてください。 type TPosArray = array of integer; function SearchAndPos(const SubStr, Str: string; PosArray: TPosArray): integer; で戻り値が出現回数であるような。>>63 さんのおっしゃるとおり、AnsiStrPos をつかって 実装してみてください。 65 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 03:10:21 ] すみません、関数は function SearchAndPos(const SubStr, Str: string; var PosArray: TPosArray): integer; の形です。var をわすれました。 66 名前：デフォルトの名無しさん [2005/12/09(金) 04:07:45 ] >>64-65 AnsiStrPosを使うように変更しました よろしくお願いします function SearchAndPos(const SubStr, Str: string; var PosArray: TPosArray): integer; var     PStr:     PChar;     PBgmStr:    PChar;     PSubStr:    PChar;     Cnt:    Integer;     Len:    Integer; begin     Cnt:=0;     Len:=Length(SubStr);     PBgmStr:=PChar(Str);     PStr:=PBgmStr;     PSubStr:=PChar(SubStr);     repeat         PStr:=AnsiStrPos(PStr, PSubStr);         if (PStr<>nil) then         begin             Inc(Cnt);             SetLength(PosArray, Cnt);             PosArray[Cnt-1]:=PStr-PBgmStr;             Inc(PStr, Len);         end;     until PStr=nil;     result:=Cnt; end; 67 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 09:57:48 ] >>66 すばらしい！ 実際のの動作はすみませんが、時間が出来たらあとで検証してみます。 見た限りでは問題無さそうです。 >>47 から比べると格段の進歩です。検索には一度も文字列コピーをしてないのですよね。 今回の教訓は、ひとかたまりの論理が完結したら、関数や手続き、クラス内のメソッド などで表現すべき、ということです。コードの断片より、関数などで完結した論理を 表現しておくと、たとえ他の言語や環境になったとしても論理そのものは生きるので 自分の財産にすることが出来ます。 68 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 09:58:14 ] 次の課題。 １）Delphi には Pos や AnsiPos にように文字列の先頭から、最初の位置までを 検索する関数がありますが、途中から検索する関数がありません。それを function AnsiPosEx(const Substr, S: string; initPos: integer): Integer; の形で AnsiStrPos をつかって、つくってください。そして、それをつかって >>66 を 書き直してみてください。 ２）>>66 では見つかるたびに SetLength() を使って配列を一つずつ増やしています。 これは非効率的なので、たとえば１０個づつ増やすようにしてみてください。 69 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 20:18:26 ] >>68 function AnsiPosEx(const SubStr, S: string; initPos: integer): Integer; var     PSubStr:    PChar;     PS: PChar;     PBgn: PChar;     PPos: PChar; begin     PSubStr:=PChar(SubStr);     PS:=PChar(S);     PBgn:=PS+initPos;     PPos:=AnsiStrPos(PBgn, PSubStr);     result:=PPos-PS+1;     if result<0 then     begin         result:=0;     end; end; 70 名前：デフォルトの名無しさん [2005/12/09(金) 20:19:15 ] function SearchAndPos(const SubStr, Str: string; var PosArray: TPosArray): integer; var     PStr:     PChar;     Cnt:    Integer;     NowPos: Integer;     Len:    Integer; begin     Cnt:=0;     NowPos:=0;     Len:=Length(SubStr);     PStr:=PChar(Str);     repeat         NowPos:=AnsiPosEx(SubStr, PStr, NowPos);         if NowPos<>0 then         begin             if Length(PosArray)=Cnt then             begin                 SetLength(PosArray, Cnt+10);             end;             PosArray[Cnt]:=NowPos-1;             Inc(Cnt);             Inc(NowPos, Len);         end;     until NowPos=0;     SetLength(PosArray, Cnt);     result:=Cnt; end; //ここまで よろしくお願いします 71 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 22:22:06 ] >>69 完璧！！ -2 点 ＝９８点 減点は、AnsiPosEx の第二引数に PChar を使ったこと。const の string 型は 呼び出しても、関数内で変更できないのでコピーされることはないです。ですから string 型のまま使ってください。AnsiPosEx をつくったことにより、SearchAndPos から、ポインタをあらわにつかうコードが完全になくすることができたことに注目してください。 次の課題は少し難易度が上がります。 このスレの１−３８までのテキストのうち、半角の数字がでてきた数を数える関数をつくってください。 いままで、テキスト内の走査は、AnsiPos や AnsiStrPos をつかったのであらわに コードを書かなかった。この課題では、一バイト文字、二バイト文字を判別しながら 数字かどうかを判定する必要があります。自分のコードでテキストを走査してください。 出来れば、前回のように、文字列の途中から検索して、最初の数字を見つける関数を つくり、それを使って出現数を数えてください。 72 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 22:25:23 ] ヒント >>60 さんのコメントが参考になります。 73 名前：デフォルトの名無しさん mailto:sage [2005/12/10(土) 00:15:52 ] 数字は全角文字の二バイト目に出てこないよ。 74 名前：デフォルトの名無しさん mailto:sage [2005/12/10(土) 02:07:03 ] >>73 ありがとう。 ほんとうですね。いま shift-jis のコード表を見ましたら、二バイト文字の二バイト目は $40 からなんですね。一方 0-9 は $30-$39 ですから、重複しませんね。 うーむ、それでは課題が破綻するので変えることにします。 このスレの１−３８までのテキストのうち、半角のアルファベット（ a-z と A-Z ）文字がでてきた数を数える関数をつくってください。 とします。すみませんでした。 75 名前：デフォルトの名無しさん [2005/12/11(日) 22:32:44 ] 嘘か真かわからんが、QualityCentralにQC#21940で、「Delphi2006 ハング」との事です。時々、ハングアップするとの事です。んー。今まで、Qualityを無視しつづけたツケだな。 -- 2005-12-07 05:54:52 (水) New 2005なんか　最初　吹っ飛んで消滅していたじゃん。　消滅からハングに　大差ないしおどろくことではないかと　　先行バグ取り隊の情報引き続きよろしく　 -- 2005-12-07 09:14:09 (水) New >「消滅からハングに　大差ないしおどろくことではない」 どっちにしろ、真面目につかうものではなさそうですね。 「どっちにしろ、真面目につかうものではなさそうですね」　しらずに2005のときせっかく数時間かけて書いたコードが消滅して悲しい思いしたよ -- 2005-12-07 15:22:52 (水) New 76 名前：デフォルトの名無しさん [2005/12/15(木) 07:29:16 ] >>74 function CountAlpha(var str:    AnsiString):    Integer; var     i:    Integer;     cnt:    Integer; begin     cnt:=0;     i:=0;     while (i <= Length(str)) do     begin         if ( (str[i] in LeadBytes)) then         begin             Inc(i,2);         end         else         begin             if (str[i] in ['a'..'z']) or (str[i] in ['A'..'Z']) then             begin                 Inc(cnt);             end;             Inc(i);         end;     end;     result:=cnt; end; //ここまで よろしくお願いします 77 名前：デフォルトの名無しさん mailto:sage [2005/12/15(木) 10:26:25 ] >>76 すばらしい！ ９４点 減点は CountAlpha(var str: AnsiString): → CountAlpha(const str: AnsiString): const にして、関数内で変更しない（コピーされない）ことを保証し、 IntToStr(CountAlpha(Memo1.Text)) などと、変数を確保しなくても使えるように することは重要です。var だと str := Memo1.Text; IntToStr(CountAlpha(str)) などとしなければ使えませんね。 減点ではないけど if (str[i] in ['a'..'z']) or (str[i] in ['A'..'Z']) then の部分は if (str[i] in ['A'..'Z','a'..'z']) then とすることもできます。 文字列のインデックスは１から始まります。ですから i:=0; ではなく、 i:=1; で初期化してください。次の課題は少し事前に検証してから出します。 78 名前：デフォルトの名無しさん mailto:sage [2005/12/15(木) 10:42:34 ] >>76 つぎの課題は、もうちょっと難易度が上がります。 前回同様、アルファベットの文字を見つけるのは同じですが、塊として数えてください。 例えば This is a pen. の場合は４を返すような関数をつくってください。アルファベット以外の文字（空白も含む）で 区切られたアルファベットだけで出来ている語句の数を数えます。 「...ことを保証し、IntToStr(CountAlpha(Memo1.Text)) などと、変数を確保しなくても使えるように」 の場合は、「IntToStr」「CountAlpha」「Memo」「Text」の４つです。 79 名前：デフォルトの名無しさん mailto:sage [2005/12/15(木) 11:52:06 ] ヒント 新幹線で東京から名古屋まで行くときのトンネルの数を数えるのと同等です。 トンネルの入り口を数えるといいですね。でも入り口を認識するためには 出口を認識する必要があります。出口を認識するためには、「いまトンネルの なかにいる」という＜状態＞を変数に保存しておかなければなりません。また、 トンネルの中にも駅があることを考慮しなければなりません。ですから、名古屋 は違いますが終点がトンネルの中の場合もありえます。 80 名前：デフォルトの名無しさん mailto:sage [2005/12/15(木) 12:22:11 ] すみません（こればっかり）、ヒントの最後の２行は、見つかった語句の長さを 記録するときのものです。今回は無視してください。入り口の数だけで十分です。 81 名前：デフォルトの名無しさん [2005/12/16(金) 13:56:59 ] ●問題2 エディットボックス（Edit1）に入力した数字までの合計値を、ボタン（Button1）を押したら、表示（Label1に表示）させよ。 なお変数は、エディットボックスの入力値（a）、合計値（Sum）、ループのカウンタ（i）とする。 procedure TForm1.Button1Click(Sender: TObject); var i,Sum:□□□□□□□; a:integer; begin a:=StrToInt(Edit1.text); Sum:=0; for i:= □ to □ do begin Sum:= □□□+□ end; Label1.Caption:=IntToStr(Sum); end; 教えて！↑ 82 名前：デフォルトの名無しさん mailto:sage [2005/12/16(金) 15:44:01 ] Integer 0 a Sum i 83 名前：デフォルトの名無しさん mailto:sage [2005/12/18(日) 04:51:49 ] すんません、教えてください。 TPopupMenuに動的にメニューを追加する方法なんですが、サブメニューも追加したくて・・・ 例えば A 　-SubA 　-SubB B 　-SubA 　-SubB 　-SubC こんな感じでサブメニュー含めて動的に追加するにはどうしたらいいですかね？ 84 名前：デフォルトの名無しさん mailto:sage [2005/12/18(日) 09:33:06 ] >>83 >>57 85 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 06:50:34 ] >>78-80 function CountAlphaWord(const str:    AnsiString):    Integer; var     i:    Integer;     cnt:    Integer;     isAlphaNow:    Boolean;     isAlphaPrev:    Boolean; begin     isAlphaPrev:=False;     cnt:=0;     i:=1;     while (i <= Length(str)) do     begin         isAlphaNow:=False;         if ( (str[i] in LeadBytes)) then         begin             Inc(i,2);         end         else         begin             if (str[i] in ['a'..'z', 'A'..'Z']) then             begin                 isAlphaNow:=True;             end;             Inc(i);         end; 86 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 06:54:35 ]         if (not isAlphaPrev) and isAlphaNow then         begin             Inc(cnt);         end;         isAlphaPrev:=isAlphaNow;     end;     result:=cnt; end; //ここまで よろしくお願いします 87 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 14:36:57 ] >>85-86 １００点。 キモは、 if (not isAlphaPrev) and isAlphaNow then ですね。これでトンネルの入り口を認識しているのだね。Boolean の変数を二つ つかって、論理が分かりやすくなっています。わたしの実装だと、IsTunnel という Boolean の変数をひとつだけ使っているので、今回の実装より簡単ですが、コードは 読みにくいです。他人の実装をみると、自分との違いが分かって勉強になります。 さて、次の課題は、多分予想できていると思いますが、トンネルの出口も認識して 数だけでなく、位置と長さも返すような関数を作ってください。 type TPosLength = record Position: integer; Length : integer; end; TPosLenArr = array of TPosLength; function SearchAlphaWord(const str: string; var pl: TPosLenArr): integer; >>79 の全文をヒントとしてください。 88 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 05:34:45 ] >>87 function SearchAlphaWord(const str: string; var pl: TPosLenArr): integer; var     i:    Integer;     cnt:    Integer;     isAlphaPrev:    Boolean;     isAlphaNow :    Boolean;     iPrev:    Integer; begin     isAlphaPrev:=False;     cnt:=0;     i:=1;     while (i <= Length(str)) do     begin         isAlphaNow:=False;         iPrev:=i;         if ( (str[i] in LeadBytes)) then         begin             Inc(i,2);         end         else         begin             if (str[i] in ['a'..'z', 'A'..'Z']) then             begin                 isAlphaNow:=True;             end;             Inc(i);         end; 89 名前：デフォルトの名無しさん [2005/12/23(金) 05:35:25 ]         if (not isAlphaPrev) and isAlphaNow then         begin             Inc(cnt);             if cnt>Length(pl) then             begin                 SetLength(pl, cnt+10);             end;             pl[cnt-1].Position:=iPrev;         end         else    if isAlphaPrev and (not isAlphaNow) then         begin             pl[cnt-1].Length:=iPrev-pl[cnt-1].Position;         end;         isAlphaPrev:=isAlphaNow;     end;     SetLength(pl, cnt);     result:=cnt; end; //ここまで よろしくお願いします 90 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 11:51:19 ] >>88-89 ９０点。 ヒントの > トンネルの中にも駅があることを考慮しなければなりません。ですから、名古屋 > は違いますが終点がトンネルの中の場合もありえます。 を忘れています。アルファベットでテキストが終わる場合を考慮してください。 ... isAlphaPrev:=isAlphaNow; end; if isAlphaNow then pl[cnt-1].Length:=iPrev+1-pl[cnt-1].Position; // これを追加 SetLength(pl, cnt); result:=cnt; end; あと、一つも見つからない場合もありますので、while の前に isAlphaNow := false; iPrev := 1; で初期化しておくとコンパイラの警告が出ませんね。 文字列操作は列挙や置換、抽出、パースなどいろいろありますが、少々当方も飽きてきた ので次はリストクラスから出題します。すこし時間をください。 91 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 12:10:18 ] >>88-89 リストクラスはもっとも簡単そうな文字列のリスト TStringList から始めます。 最初はソートの練習です。 procedure TForm1.Button1Click(Sender: TObject); var   sl: TStringList;   i: integer; begin   Randomize;   sl := TStringList.Create;   try     for i := 1 to 20 do sl.Add(IntToStr(Random(1000)));     Memo1.Lines.Assign(sl);   finally     sl.Free;   end; end; にすると、0-999 のランダムな数値に対応する文字列が sl に２０個保持され、その内容が Memo1 に 表示されます。コードを継ぎ足して、数値の小さい方から（昇順）並べ直して見てください。 TStringList.CustomSort を使います。 92 名前：ささ ◆6KVcpBNXy. [2006/01/26(木) 15:45:51 ] みなさん。こんにちゎ。経済学部のささと申します。 パスカル(Delphi)の授業での課題がわかりません。。教えてください！ ３科目、１０人分のデータを入力して各人の合計点と科目毎の平均点を作れ！ という課題が出ました。。。 先生に下記を改変するとやりやすいといわれました。repeatとwhileとforまでしか習っていません。 Score :array[0..1000] of integer;　 begin writeln('入力得点の平均と偏差値を計算します'); writeln('入力後、負の数を入力すると…終了します。'); kazu :=0; repeat write('点数は？'); readln(data); if data >= 0 then begin　 kazu := kazu + 1; score[kazu] := data end until data < 0; goukei := 0;　 for i := 1 to kazu do　goukei := goukei + score[i];　 heikin :=goukei / kazu; goukei :=0;　 for i := 1 to kazu do　 goukei := goukei + Sqr(score[i]);　hensa := sqrt(goukei /kazu - sqr(heikin)); writeln('点数　　偏差値'); for i := 1 to kazu do　 writeln(score[i]:4, 50 +10 * (score[i]-heikin)/ hensa:10:1); writeln(' 平 均 ＝',heikin:5:1);　 writeln('標準偏差＝',hensa:5:1); readln; end. 93 名前：棄民党党首 ◆8slekwWKD6 [2006/01/26(木) 17:00:39 ] やひゃひゃひゃ。おまいら。 AssignFile(f, s); Reset(f); で s にアクセント記号と漢字交じりのファイル名をWideStringでぶちこんでみたら 開かんぞ。 TntのUnicode Componentsをいぢってみたが、AssignFileのUnicode版がみつからん。 でしかたないから WideRenameFileで名前を'safe.bin'とかに変更しちゃって。 フツ〜にAssignFileで開いて処理してからまた WideRenameFileで名前をUnicodeの名前へもどしますた。 わたしってなんて天才♪ 94 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 02:28:56 ] Delphiってなくなるの？ Turbo Pascal時代からずっと使って来ただけに、 手に馴染んだ開発環境がなくなると困る。 95 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 04:04:10 ] >>94 ボーランドが手放すだけでDelphiがなくなるわけじゃないから安心しる。 96 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 08:15:16 ] 買い手が無ければなくなるんじゃね？ 97 名前：デフォルトの名無しさん [2006/02/10(金) 14:45:48 ] で、MDIでWM_COPYDATAを子フォームで受け取るにはどーすんの？ 98 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 16:58:38 ] 受け取るのは簡単だろ 99 名前：デフォルトの名無しさん [2006/02/10(金) 17:29:53 ] >>98 え？マジすか？kwsk！ とあるスレッドからMDI子フォームにSendMessageしたいんです。 そのスレッドでは、MDI子フォームのウィンドウハンドルを取得する事は 出来るのですが、SendMessageしてもMDI子フォームにメッセージが来ないです。 もう泣きそうです。 もちろん、MDI子フォームではメッセージを受け取れるようにしているのですけども・・・。 100 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 17:49:34 ] どうやってハンドルをみつけたの？ 101 名前：デフォルトの名無しさん [2006/02/10(金) 18:13:45 ] 改行が多いと怒られたので、かなりハショってます。 メッセージを送る側では procedure Thread.SendMsg(sClassName: String; nKind: Cardinal; pInfo: Pointer; nInfoSize: Integer); var begin Wnd := FindWindow(PChar(sClassName), nil); if (Wnd <> 0) then begin : SendMessage(Wnd, WM_COPYDATA, WPARAM(Wnd), LPARAM(@Cd)); end; とし、SendMsg('TForm', ....);　と、使っています。で、 受け取る側（MDI子フォーム）では procedure WMCopyData( var sMsg: TWMCopyData ); message WM_COPYDATA; を、privateに宣言して procedure TForm.WMCopyData(var sMsg: TWMCopyData); : begin pMessage := nil; if (sMsg.CopyDataStruct.dwData = ID_TEST) then begin : : : end; としています。 102 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 19:22:04 ] それでほんとに、目的 MDI 子ウィンドウが見つかってる？ 一度 Spy++ か WinInsight で確かめたら？ 103 名前：デフォルトの名無しさん [2006/02/10(金) 19:45:00 ] 取れてるようですが・・・ダメなんでしょうか？ 通常どうやるのかわからないもので・・・。 とりあえず実行させて、FindWindowの戻り値を見たら0x604A6でした。 Spy++の検索ウィンドウで0x604A6を検索したら、目的のウィンドウが 検索されました。一応ウィンドウハンドルは取れているようでした。 うーん・・・困りました・・・。 104 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 02:57:20 ] 部分範囲型って、実際バリバリ使ってる人います？ 便利なようでいまいち、使いどころが…。 動作中チェックありにして、速度とか問題ないですか？ 105 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 15:13:33 ] そもそも Delphi を実際バリバリ使ってる人なんか、そんなにいないからね 106 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 21:37:45 ] バリバリじゃない。さり気なく使うんだ。 107 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 10:29:36 ] さりげなく、こっそりと、ひそかに・・・な。 108 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 11:11:39 ] いや、ペタペタと使う。 109 名前：デフォルトの名無しさん mailto:sage [2006/02/21(火) 23:53:44 ] >>101 ヘルプに有るように、FindWindowは子ウィンドウは探してくれないよ。 同じクラス名を持つ別のウィンドウのハンドルを返していると思われ。 110 名前：デフォルトの名無しさん [2006/02/22(水) 23:07:35 ] 質問です。色付きのボタンを作ることはできますか？ パネルを色つきにしてOnClickという事もできますが それだとクリックされたときにボタンのように 凹んだりしないのでわかりづらいし・・・ なにかいい方法はありますでしょうか？ どなたか、よろしくお願いします。 111 名前：デフォルトの名無しさん mailto:sage [2006/02/22(水) 23:14:06 ] >>110 まさか本当に凹んでるとか思ってないよな？ 112 名前：デフォルトの名無しさん mailto:sage [2006/02/23(木) 00:27:17 ] Paintメソッドをoverrideして自分で描画するとか。 113 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2006/02/23(木) 00:51:33 ] 　　　　　　　　　　　(´⌒;; ;⌒｀)　　　∧,,∧　　　そういうのだいたい 　;;　｀).／ミ,,ﾟДﾟ彡　 誰か作ってるよ。 　　　//＼￣￣旦~ 　　(´(´⌒) 　 ／/ ※.＼＿＿＿＼ 　＼＼※ ※ ※ ※ ※ヽ 　　 ＼`ー──────ヽ 　　　　──────── homepage1.nifty.com/cosmic/delphi/vcl.html#cutebtn homepage2.nifty.com/Mr_XRAY/Delphi/plButton/index.htm 114 名前：デフォルトの名無しさん [2006/03/02(木) 22:41:07 ] 152 ：　 ：2006/03/01(水) 06:16:00 HOST:ed251.opt2.point.ne.jp 削除対象アドレス: 　pc8.2ch.net/test/read.cgi/tech/1138370150/ 　pc8.2ch.net/test/read.cgi/tech/1132756268/ 　pc8.2ch.net/test/read.cgi/tech/1132013685/ 削除理由・詳細・その他： 　６． 連続投稿・重複 115 名前：デフォルトの名無しさん mailto:sage [2006/03/03(金) 01:13:30 ] Dr.Dのマシン語寺子屋 116 名前：デフォルトの名無しさん [2006/03/31(金) 11:14:10 ] TBitmap→TJpegImage→Jpegファイル、とやってますが、 DDBからDIBにするとメモリ減りますか？ コーディングも簡単でつか？ 117 名前：デフォルトの名無しさん mailto:sage [2006/03/31(金) 12:06:28 ] やってることと、質問の内容が噛み合ってない 118 名前：116 [2006/03/31(金) 13:30:05 ] いやだから、 TBitmap(DDB)→TJpegImage→Jpegファイル から TBitmap(DIB)→TJpegImage→Jpegファイル に変更。 今は意識してないけど、TBitmapってデフォはDDBだおね？ 119 名前：デフォルトの名無しさん mailto:sage [2006/03/31(金) 13:50:09 ] 大差ないよ。 120 名前：デフォルトの名無しさん mailto:age [2006/05/29(月) 00:58:17 ] feeddemonってRSSリーダーがあるんですが v1のときにhtaのような使い方をしている 部分(左のチャンネルリスト)をどう実装してるのか わからないんですが、誰か教えてください詳しい人 121 名前：デフォルトの名無しさん mailto:sage [2006/05/29(月) 13:16:35 ] > Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。 すれ違い 122 名前：デフォルトの名無しさん [2006/06/09(金) 17:59:34 ] マウスカーソルをアルファベット文字、もしくは単語にしたいのですが、 簡単にできますか？ アルファベット毎にカーソルファイルを作るのでなく、 コーディングでやりたいです。 123 名前：デフォルトの名無しさん mailto:sage [2006/06/09(金) 18:47:12 ] 簡単にはできないでしょ。すなくとも動的にアルファベットの画像をつくらなきゃならないし。 124 名前：デフォルトの名無しさん mailto:sage [2006/06/09(金) 19:15:11 ] >>122 forum.nifty.com/fdelphi/samples/00368.html TBitmapを作成して そこに文字を書いて、 それからCreateCursor 125 名前：122 mailto:sage [2006/06/12(月) 08:41:29 ] >>123 >>124 ｻﾝｸｽ。 ちょっとひねればコーディングできそうですね。 126 名前：デフォルトの名無しさん mailto:sage [2006/09/03(日) 09:14:12 ] どうぞよろしくお願いします Delphi7.0上で、3層の情報系の業務アプリケーションを構築しています データベースはOracle9iです UIでは、ADOレコードセットを入力データソースするMicrosoftのActiveXコンポーネント を使用しています BDE、DBExpressやBizSnapを利用すれば3層のデータアプリケーションは作成できる ことは分かりました データセットプロバイダ経由でデータを取得しようとすると、クライアント側はＣｌｉentDataSet として受け取ることになるのですが、どこかでADOレコードセット形式に変換しなければなりません 試しにＣｌｉentDataSetをまわしながらADOレコードセットにフィールド定義とデータ値をコピーする 方法を試してみましたが、処理時間とCPU負荷が半端ではなく、とても採用できませんでした 他には、BizSoapを利用した形式では、サーバー側でADOレコードセットとしてデータ取得後に Saveメソッドを利用してXML形式で一旦データ出力し、Soap経由でテキスト送信し、クライアント 側では受信内容をファイルとして出力しADOレコードセットのLoadメソッドをCallしてXMLファイル から復元する方法を試したみましたが、これも採用できるものではありませんでした 素直にクライアント側でADOレコードセットとして取得可能な方法としては、リモートデータセット (Microsoft RDS)を利用したDComアプリケーションとして構築する方法もあるので試してみました これは、非常に高速で２０万件程度のデータもほぼ一瞬でクライアント処理でき驚いたものですが、 MicrosoftのサポートページではRDS自体が今後は非推奨の技術として明記されており、その点 が引っかかっております どうしてもクライアント側で扱うデータ量が数十万件程度あることでパフォーマンスが重要になって しまいます。 オーバーヘッドがなるべく最小の形でClientDataSetからADOレコードセット形式に変換する方法は ないものでしょうか もしくは、素直にADOレコードセットとしてクライアント側で一発でデータ取得できれば嬉しいです 長文になってしまい申し訳ありません どうぞよろしくお願いいたします 127 名前：126 mailto:sage [2006/09/03(日) 09:22:44 ] 126です 大変失礼しました [ くだすれdELPHI(超初心者用) ] のスレの方に移動します 128 名前：デフォルトの名無しさん mailto:sage [2006/09/11(月) 00:03:00 ] >>1 問題だしておくれ 初心者でも10分ぐらいで解けて、面白味のあるものがいい 129 名前：デフォルトの名無しさん mailto:sage [2006/09/11(月) 08:47:19 ] じゃ、俺から問題 ボタンを二つ用意し、片方を非表示とする。 表示されているボタンを押すと、非表示だったボタンを表示し、押されたボタンを非表示に。 これを交互に繰り返せるものを作れ。 130 名前：デフォルトの名無しさん mailto:sage [2006/09/11(月) 10:14:48 ] くだらね┐（´〜｀;）┌ 131 名前：デフォルトの名無しさん mailto:sage [2006/09/11(月) 11:34:13 ] >>130 ならおまえがだせ。 と、いいたいところだが、これはどうだ？ コントロールのオーナーをTForm1からTForm2に変える。 132 名前：デフォルトの名無しさん mailto:sage [2006/09/11(月) 12:30:13 ] 他のｽﾚでTPrinterの話題が出てたんで。 用紙の左上から右に５ｃｍ、下に５ｃｍの位置に 「はろーわーるど」と印字せよ フォントは何でもいい 133 名前：デフォルトの名無しさん mailto:sage [2006/09/11(月) 15:51:09 ] 初心者の基準を考えよ 134 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 16:57:18 ] ｉｎｉファイル作って 初期データ読み込み書き込みはどうだ？ 135 名前：デフォルトの名無しさん [2006/09/12(火) 17:10:37 ] 初心者の基準を考えよ 136 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 20:17:27 ] procedure TForm2.Button1Click(Sender: TObject); begin   Button1.Visible:=not Button1.Visible;   Button2.Visible:=not Button2.Visible; end; procedure TForm2.FormCreate(Sender: TObject); begin   Button2.OnEnter:=Button1Click;   Button2.Visible:=False; end; 137 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 20:18:58 ] あ、途中で書き込み押しちゃった >>136は>>129への回答です 短くなるように工夫しました 採点お願いします 138 名前：デフォルトの名無しさん [2006/09/12(火) 20:25:08 ] わざわざコードで   Button2.OnEnter:=Button1Click;   Button2.Visible:=False; をする必要が無い。 ０点。 139 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 20:30:07 ] そりゃプロパティでも出来るけどあえて明示してるんでしょうが。 140 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 20:42:49 ] ほかにもフォームの位置とかサイズとか、明示しろよ。 141 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 20:54:32 ] こりゃいかん。 142 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 21:10:23 ] てゆうか先生！なんでOnEnterやねん！Clickや！！ と突っ込むところではないの？ 143 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 21:12:52 ] ほんとだｗｗｗｗ 144 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 22:23:37 ] TD2006ってコンポにフォーカスさせてF1押してもヘルプでないよね 145 名前：デフォルトの名無しさん mailto:sage [2006/09/12(火) 23:28:50 ] しらねぇよ。Del6per の方がましだし、そんなの使うヤツの気が知れん 146 名前：デフォルトの名無しさん mailto:sage [2006/09/13(水) 03:30:32 ] procedure TForm1.Button1Click(Sender: TObject); const FILE_URL = '203.131.199.131:8060/koreiina'; FILE_PATH = 'test.mp3'; var fs: TFileStream; begin fs := TFileStream.Create(FILE_PATH, fmCreate); try with IdHTTP1 do begin Get(FILE_URL, fs); end; finally fs.Free; end; end; 147 名前：デフォルトの名無しさん mailto:sage [2006/09/13(水) 08:14:13 ] >>145 可哀そうに

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef