Delphi初心者のための寺子屋

Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

糞スレたてんな。
Delphi関連のスレがいくつあると思ってんだ？
既存のスレを利用しろ池沼


/*　　　　　　　　　　終了　　　　　　　　　　*/

早く、問題出せ
俺はやらないが…

そもそもDelphiのスレなんて必要ねーよ
糞言語氏ね

object pascalをいじめないでください＞＜

Ｄｒ．Ｄのマシン語寺子屋ってコーナーがあったなあ・・・・

Unicodeはどうやって扱えますか？

さあ！私にDelphiを教えなさい！

前スレより問題文を転載

//ここから問題文
次は、例外処理の締めとしてRaiseを使おう。
ファイルが開けないときは
writeln(filename)した後、今の例外処理（Writeln(E.Message);）
を実行するように、
また、読み込みエラーのときは、E.Messageの内容を
"読み込めねー"
に変更してみてみてくれ。どちらも Raise を使えば簡単にできる。
//ここまで問題文

ちなみにこのプログラムに手を加えろという問題です

const
    filename='test.txt';
var
    sum:    double;
    fp:    TextFile;
    str:    string;
begin
    sum:=0;
    try
        AssignFile(fp, filename);
        Reset(fp);
        try
            while (not Eof(fp)) do
            begin
                Readln(fp, str);
                sum:=sum+StrToFloatDef(str, 0);
            end;
            writeln(FloatToStr(sum));
        finally
            CloseFile(fp);
        end;
    except
        on E: Exception do Writeln(E.Message);
    end;
end.

現在の回答

sum:=0;
try
  AssignFile(fp, filename);
  try
    Reset(fp);
  except
    Memo1.Lines.Add(filename);
    raise;
  end;
  try
    while (not Eof(fp)) do
    begin
      try
        Readln(fp, str);
      except
        raise Exception.Create('よみこめねー');
      end;
      sum:=sum+StrToFloatDef(str, 0);
    end;
    Memo1.Lines.Add(FloatToStr(sum));
  finally
    CloseFile(fp);
  end;
except
  on E: Exception do Memo1.Lines.Add(E.Message);
end;

次の問題まだぁ〜？

>>11
◎
これで例外処理関係はOKだと思うがどうだろう？

それでは次は文字列処理かな。
入力された文字列から'='を探し出し、
(=より前の文字列)'は、'(=より後ろの文字列)'です。'
という出力、および、処理にかかった時間を出力
するプログラムを作ってみてくれ。

いいかげん自作自演うざいんですけど…

>>14
レスアンカーつけないと誰に言ってるんだか分かりませんよd(^-^)b

つまり、>>13は高速に文字列の中から
'='の左と右を分けたいわけね。

自演乙

>>13
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils, Types, MMSystem;

const
    str='Delphi=399,000YEN';

var
    i:    Integer;
    len:    Integer;
    StartTime:    DWORD;
    EndTime:    DWORD;

begin
    StartTime:=timeGetTime;
    i:=1;
    while str[i]<>'=' do
    begin
        Write(str[i]);
        Inc(i);
    end;

    Write('は');
    Inc(i);

    len:=Length(str);
    while i<=Len do
    begin
        Write(str[i]);
        Inc(i);
    end;

    Writeln('です');

    EndTime:=timeGetTime;

    Writeln(Format('タイムは%d�_秒です', [EndTime-StartTime]));
    Readln;
end.

//ここまで。よろしくお願いします。

>>18-19
題を出したのとは別人だけども。

・題意は、入力文字列は固定ではなくReadLnで実行時に入力させることを意図していたと思われる。のでReadLnを使う。
・また、'='が見つからなかった場合の処理。
・ふたつめのwhileループは、ループ回数がループ開始前にわかっている。こういう場合は定石としてはforを使う。
・DelphiっぽくNowとTDateTimeを使ってみよう。

ていうかこのスレでいきなりtimeGetTime見て驚いた。

ついでに>>10は、
PascalとしてはDoubleじゃなくRealのほうがいいね。
Delphiだとどっちでも同じ(64ビット倍精度浮動小数点)だけど。

…ちなみに精度が欲しければExtended(80ビット拡張精度)を使う、つーか
Delphiは浮動小数点の内部計算全部Extendedでやってるので、
実はExtendedで統一した方が変換ロスとか無くていい。

>>20
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    i, j:    Integer;
    len:    Integer;

    StartTime: TDateTime ;
    EndTime: TDateTime ;

    Hour, Min, Sec, MSec: Word;

    str:    String;
begin

    Readln(str);

    StartTime:=Now;

    len:=Length(str);

    i:=1;
    while str[i]<>'=' do
    begin
        Write(str[i]);
        Inc(i);

        if i>len then
        begin
            Writeln;
            Writeln('=が見つかりませんでした');
            Readln;
            Exit;
        end;
    end;

    Write('は');
    Inc(i);

    for j:=i to len do
    begin
        Write(str[j]);
    end;

    Writeln('です');
    EndTime:=Now;

    DecodeTime(EndTime-StartTime, Hour, Min, Sec, MSec);
    Writeln(Hour,'時間',Min,'分',Sec,'秒',MSec);

    Readln;
end.
//ここまで。よろしくお願いします。

>>22
◎
ただ、次の点をアップデートしていただけるとうれしい。
・文字列処理の習得を中心に考えているので結果（XはYです）の出力はまとめて
　行うようにしてほしい。
・Delphi初心者がいきなりコンソールアプリから入るとは考えにくいので
　できればGUIでお願いしたい。
・こちらではコンパイルして確認するわけではないのでコードすべてをアップする
　必要はない（そのため細かいバグは見落としますがそれはゴメン）

DelphiでINIファイルの読み書きをしたいのですが・・
良いサンプルとかありませんでしょうか？

>>25
ヘルプでTIniFileを検索して、あとは色々たどっていけばサンプルがあるけど、それじゃダメか？

>>26
TIniFile検索してみたけどちょっとわかりずらいっす。
でもTIniFileを使うってのがわかったので助かります。
さんくす

>>22-23 & >>24
空文字列が入力されたら存在しないstr[1]をアクセスしにいかないか？

>>28
    if len=0 then
    begin
        exit;
    end;

修正しました

>>27
D7だとヘルプのテキスト検索で「TIniFile とTMemIniFile の使い方」
ここにサンプル載ってるけどダメか？

ちょっとコード書いてみて、具体的にわからない所があったら質問してみ。

メディアンフィルタとかガンマが付いてるTImageの派生クラスはありまつか？

>>24
結果をまとめて表示、GUIをやりました
よろしくお願いします

procedure TForm1.Button1Click(Sender: TObject);
var
    i, j:        Integer;
    len:        Integer;

    StartTime: TDateTime ;
    EndTime: TDateTime ;

    Hour, Min, Sec, MSec: Word;

    str_src:    String;
    str_dest: String;
begin
    str_src:=Edit1.Text;
    StartTime:=Now;
    len:=Length(str_src);

    if len=0 then
    begin
        ShowMessage('なにか文字を入力してください');
        exit;
    end;

    i:=1;
    while str_src[i]<>'=' do
    begin
        str_dest:=str_dest+str_src[i];
        Inc(i);

        if i>len then
        begin
            ShowMessage('=が見つかりませんでした');
            Exit;
        end;
    end;

    str_dest:=str_dest+'は';
    Inc(i);

    for j:=i to len do
    begin
            str_dest:=str_dest+str_src[j];
    end;

    str_dest:=str_dest+'です';
    EndTime:=Now;

    DecodeTime(EndTime-StartTime, Hour, Min, Sec, MSec);
    Memo1.Lines.BeginUpdate;
    Memo1.Lines.Add(str_dest);
    Memo1.Lines.Add(Format('%u時間 %u分 %u秒 %u', [Hour,Min,Sec,MSec]));
    Memo1.Lines.EndUpdate;
end;
//ここまで

>>32
◎

文字列処理は大丈夫っぽいのでまとめてお題を出しちゃおう。
１　Pos(AnsiPos)関数を使ってみる
２　その他使えそうな標準関数がないか探して使ってみる
３　PCharを使ってみる

>>34
あんたホントに理解してんの？

>>35
日本語処理のことかな。
そこは出題意図ではないので別の機会で勉強してくれ。

日本語処理を無視した文字列処理はナンセンス

>>37
ごめんな。
俺だけがお題を出すのも限界があるから是非もっとよいお題を頼む。

お題
「このスレの１−３８までを Memo1 にコピーして、「Delphi」という文字列が何度
現れたか数えなさい。

>>34の１
begin
    str_src:=Edit1.Text;
    StartTime:=Now;

    len:=Length(str_src);
    eq_pos:=pos('=', str_src);

    if len=0 then
    begin
        ShowMessage('なにか文字を入力してください');
        exit;
    end;
    if eq_pos=0 then
    begin
        ShowMessage('=が見つかりませんでした');
        Exit;
    end;

    str_dest:=copy(str_src, 1, eq_pos-1);
    str_dest:=str_dest+'は';
    str_dest:=str_dest+copy(str_src, eq_pos+1, High(Integer));
    str_dest:=str_dest+'です';

    EndTime:=Now;
    DecodeTime(EndTime-StartTime, Hour, Min, Sec, MSec);
    Memo1.Lines.BeginUpdate;
    Memo1.Lines.Add(str_dest);
    Memo1.Lines.Add(Format('%u時間 %u分 %u秒 %u', [Hour,Min,Sec,MSec]));
    Memo1.Lines.EndUpdate;
end;

>>34の２

回答１．DeleteとInsertを使う
Delete(str_src, eq_pos, 1);
Insert('は', str_src, eq_pos);
str_dest:=Concat(str_src, 'です');

回答２．出来合いの関数を使う
Borland - Delphi Q&A 文字列を一括置換するには
http://www.borland.co.jp/qanda/delphi/d0005103.html

回答３．正規表現を使う
TRegExpr - PukiWiki
http://onigiri.s3.xrea.com:8080/delphi/index.php?TRegExpr

※２と３は標準関数ではないですが見つけたので添えておきます

D5 以降だと StringReplace があるけど

>>42
天才あらわる

>>34の３
    PSrc:=AllocMem(len+1);
    PSrcCopy:=PSrc;
    ZeroMemory(PSrc, len+1);

    for i:=1 to len do
    begin
        PSrc[i-1]:=str_src[i];
    end;

    while PSrc^ <> #0 do
    begin
        if PSrc^ = '=' then
        begin
            str_dest:=str_dest+'は';
        end
        else
        begin
                str_dest:=str_dest+PSrc^;
        end;
        Inc(PSrc);
    end;
    str_dest:=str_dest+'です';
    FreeMem(PSrcCopy, len+1);

メモリ割り当ててコピーは無駄。ポインタ使う意義が半減。

PSrc := PChar(str_src);

でいいんでない？

>>45
了解です。修正しました。
PCharとStringの変換が意外と楽で感激
    PSrc:=PChar(str_src);
    while PSrc^ <> #0 do
    begin
        if PSrc^ = '=' then
        begin
            str_dest:=str_dest+'は';
        end
        else
        begin
                str_dest:=str_dest+PSrc^;
        end;
        Inc(PSrc);
    end;
    str_dest:=str_dest+'です';

>>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));

>>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));

>>47
パチパチパチ、すばらしい
◎-3

減点は、この場合は問題ないだろうけど、日本語処理では Pos じゃなく AnsiPos
を使うこと。

いろいろ改良点があるけど

ap:=Pos(sword, copy(str, p, High(Integer)));

これがこの処理のキモ。でも、文字列コピーは最も効率悪い方法。
１MByte のテキストで検索文字列が１０００回現れたら、１０００回コピーする
ことになる。PChar をつかってなるべくコピーをしないで処理する方法を
考えるのが次のお題。

> PCharのときは0から、それ以外(constやstring)は1からでいいんですよね？

そう。string 型は、パルカルのときの実装を引きずっていますので例外的に１から、と覚える

×パルカル
○パスカル

49 のヒント AnsiStrPos

TEditに英文字のみ入るようにする方法教えて下さい。

イベントハンドラでキー入力をカット出来ないかなぁ？

>39にも誰か答えてやれよ

×39
○31

> Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

単発質問はくだすれへ

>>48

Inc(p);
if (p=len) then

これじゃ、比較が一バイト少ないよ。それから、２バイト文字を考慮してないので
ダメです。「Delphi」ならまず問題ないけど「D」だったら、2バイト文字の２バイト目も
数えてしまう可能性がある。

>>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;

>>59
AnsiStrPosを使ってる時点で2バイト文字として意味のある位置で
結果が返ってる筈なんでStrByteTypeいらない。

というか前からスキャン方式でStrByteTypeは使っちゃだめ。
途中の位置をいきなり指定してそれがどこにあたるか調べるのは
前後の文字を辿るしかなく、
逆にそういった機能を持つ関数を使うことは
その次点に到達するまで前からスキャンしてきたこと自体を
無駄にしてる。
前から辿るならAnsi〜系を使わずに自力でマルチバイト処理をするとしても
LeadBytesで充分。

>>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 の部分が赤い文字列になるようにします。

赤文字にする方法、位置情報を返すための配列の定義の仕方など、分からないことがあったら個別に質問してください。

>>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;
//ここまで
よろしくお願いします。

>>62
AnsiPosに暗黙のPChar→String変換で引数渡してるよね…。
これは暗黙に実行されるわりにコストがメチャ高いので、
ループの中では避けたほうがいい。
上と同じでAnsiStrPosじゃダメだったの？

>>62

すばらしい！

つぎに、汎用的に使えるように関数にしてみてください。

type
TPosArray = array of integer;

function SearchAndPos(const SubStr, Str: string; PosArray: TPosArray): integer;

で戻り値が出現回数であるような。>>63 さんのおっしゃるとおり、AnsiStrPos をつかって
実装してみてください。

すみません、関数は

function SearchAndPos(const SubStr, Str: string; var PosArray: TPosArray): integer;

の形です。var をわすれました。

>>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;

>>66

すばらしい！
実際のの動作はすみませんが、時間が出来たらあとで検証してみます。
見た限りでは問題無さそうです。

>>47 から比べると格段の進歩です。検索には一度も文字列コピーをしてないのですよね。

今回の教訓は、ひとかたまりの論理が完結したら、関数や手続き、クラス内のメソッド
などで表現すべき、ということです。コードの断片より、関数などで完結した論理を
表現しておくと、たとえ他の言語や環境になったとしても論理そのものは生きるので
自分の財産にすることが出来ます。

次の課題。

１）Delphi には Pos や AnsiPos にように文字列の先頭から、最初の位置までを
検索する関数がありますが、途中から検索する関数がありません。それを

function AnsiPosEx(const Substr, S: string; initPos: integer): Integer;

の形で AnsiStrPos をつかって、つくってください。そして、それをつかって >>66 を
書き直してみてください。

２）>>66 では見つかるたびに SetLength() を使って配列を一つずつ増やしています。
これは非効率的なので、たとえば１０個づつ増やすようにしてみてください。

>>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;

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;
//ここまで

よろしくお願いします

>>69

完璧！！ -2 点 ＝９８点

減点は、AnsiPosEx の第二引数に PChar を使ったこと。const の string 型は
呼び出しても、関数内で変更できないのでコピーされることはないです。ですから
string 型のまま使ってください。AnsiPosEx をつくったことにより、SearchAndPos
から、ポインタをあらわにつかうコードが完全になくすることができたことに注目してください。

次の課題は少し難易度が上がります。

このスレの１−３８までのテキストのうち、半角の数字がでてきた数を数える関数をつくってください。

いままで、テキスト内の走査は、AnsiPos や AnsiStrPos をつかったのであらわに
コードを書かなかった。この課題では、一バイト文字、二バイト文字を判別しながら
数字かどうかを判定する必要があります。自分のコードでテキストを走査してください。
出来れば、前回のように、文字列の途中から検索して、最初の数字を見つける関数を
つくり、それを使って出現数を数えてください。

ヒント >>60 さんのコメントが参考になります。

数字は全角文字の二バイト目に出てこないよ。

>>73
ありがとう。
ほんとうですね。いま shift-jis のコード表を見ましたら、二バイト文字の二バイト目は
$40 からなんですね。一方 0-9 は $30-$39 ですから、重複しませんね。

うーむ、それでは課題が破綻するので変えることにします。

このスレの１−３８までのテキストのうち、半角のアルファベット（ a-z と A-Z ）文字がでてきた数を数える関数をつくってください。

とします。すみませんでした。

嘘か真かわからんが、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

>>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;
//ここまで
よろしくお願いします

>>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;

で初期化してください。次の課題は少し事前に検証してから出します。

>>76

つぎの課題は、もうちょっと難易度が上がります。
前回同様、アルファベットの文字を見つけるのは同じですが、塊として数えてください。

例えば

This is a pen.

の場合は４を返すような関数をつくってください。アルファベット以外の文字（空白も含む）で
区切られたアルファベットだけで出来ている語句の数を数えます。

「...ことを保証し、IntToStr(CountAlpha(Memo1.Text)) などと、変数を確保しなくても使えるように」

の場合は、「IntToStr」「CountAlpha」「Memo」「Text」の４つです。

ヒント
新幹線で東京から名古屋まで行くときのトンネルの数を数えるのと同等です。
トンネルの入り口を数えるといいですね。でも入り口を認識するためには
出口を認識する必要があります。出口を認識するためには、「いまトンネルの
なかにいる」という＜状態＞を変数に保存しておかなければなりません。また、
トンネルの中にも駅があることを考慮しなければなりません。ですから、名古屋
は違いますが終点がトンネルの中の場合もありえます。

すみません（こればっかり）、ヒントの最後の２行は、見つかった語句の長さを
記録するときのものです。今回は無視してください。入り口の数だけで十分です。

●問題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;

教えて！↑

Integer
0
a
Sum
i

すんません、教えてください。

TPopupMenuに動的にメニューを追加する方法なんですが、サブメニューも追加したくて・・・
例えば

A
　-SubA
　-SubB
B
　-SubA
　-SubB
　-SubC

こんな感じでサブメニュー含めて動的に追加するにはどうしたらいいですかね？

>>83
>>57

>>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;

        if (not isAlphaPrev) and isAlphaNow then
        begin
            Inc(cnt);
        end;
        isAlphaPrev:=isAlphaNow;

    end;

    result:=cnt;
end;

//ここまで
よろしくお願いします

>>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 の全文をヒントとしてください。

>>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;

        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;
//ここまで
よろしくお願いします

>>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;

で初期化しておくとコンパイラの警告が出ませんね。

文字列操作は列挙や置換、抽出、パースなどいろいろありますが、少々当方も飽きてきた
ので次はリストクラスから出題します。すこし時間をください。

>>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 を使います。

みなさん。こんにちゎ。経済学部のささと申します。
パスカル(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.

やひゃひゃひゃ。おまいら。

AssignFile(f, s); Reset(f);

で s にアクセント記号と漢字交じりのファイル名をWideStringでぶちこんでみたら
開かんぞ。

TntのUnicode Componentsをいぢってみたが、AssignFileのUnicode版がみつからん。

でしかたないから
WideRenameFileで名前を'safe.bin'とかに変更しちゃって。
フツ〜にAssignFileで開いて処理してからまた
WideRenameFileで名前をUnicodeの名前へもどしますた。

わたしってなんて天才♪

Delphiってなくなるの？
Turbo Pascal時代からずっと使って来ただけに、
手に馴染んだ開発環境がなくなると困る。

>>94
ボーランドが手放すだけでDelphiがなくなるわけじゃないから安心しる。

買い手が無ければなくなるんじゃね？

で、MDIでWM_COPYDATAを子フォームで受け取るにはどーすんの？

受け取るのは簡単だろ

>>98
え？マジすか？kwsk！
とあるスレッドからMDI子フォームにSendMessageしたいんです。
そのスレッドでは、MDI子フォームのウィンドウハンドルを取得する事は
出来るのですが、SendMessageしてもMDI子フォームにメッセージが来ないです。
もう泣きそうです。
もちろん、MDI子フォームではメッセージを受け取れるようにしているのですけども・・・。

どうやってハンドルをみつけたの？

改行が多いと怒られたので、かなりハショってます。
メッセージを送る側では
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;
としています。

それでほんとに、目的 MDI 子ウィンドウが見つかってる？
一度 Spy++ か WinInsight で確かめたら？

取れてるようですが・・・ダメなんでしょうか？
通常どうやるのかわからないもので・・・。
とりあえず実行させて、FindWindowの戻り値を見たら0x604A6でした。
Spy++の検索ウィンドウで0x604A6を検索したら、目的のウィンドウが
検索されました。一応ウィンドウハンドルは取れているようでした。
うーん・・・困りました・・・。

部分範囲型って、実際バリバリ使ってる人います？
便利なようでいまいち、使いどころが…。
動作中チェックありにして、速度とか問題ないですか？

そもそも Delphi を実際バリバリ使ってる人なんか、そんなにいないからね

バリバリじゃない。さり気なく使うんだ。

さりげなく、こっそりと、ひそかに・・・な。

いや、ペタペタと使う。

>>101
ヘルプに有るように、FindWindowは子ウィンドウは探してくれないよ。
同じクラス名を持つ別のウィンドウのハンドルを返していると思われ。

質問です。色付きのボタンを作ることはできますか？
パネルを色つきにしてOnClickという事もできますが
それだとクリックされたときにボタンのように
凹んだりしないのでわかりづらいし・・・
なにかいい方法はありますでしょうか？
どなたか、よろしくお願いします。

>>110
まさか本当に凹んでるとか思ってないよな？

Paintメソッドをoverrideして自分で描画するとか。

　　　　　　　　　　　(´⌒;;
;⌒｀)　　　∧,,∧　　　そういうのだいたい
　;;　｀).／ミ,,ﾟДﾟ彡　 誰か作ってるよ。
　　　//＼￣￣旦~ 　　(´(´⌒)
　 ／/ ※.＼＿＿＿＼
　＼＼※ ※ ※ ※ ※ヽ
　　 ＼`ー──────ヽ
　　　　────────

http://homepage1.nifty.com/cosmic/delphi/vcl.html#cutebtn

http://homepage2.nifty.com/Mr_XRAY/Delphi/plButton/index.htm

152 ：　 ：2006/03/01(水) 06:16:00 HOST:ed251.opt2.point.ne.jp
削除対象アドレス:
　http://pc8.2ch.net/test/read.cgi/tech/1138370150/
　http://pc8.2ch.net/test/read.cgi/tech/1132756268/
　http://pc8.2ch.net/test/read.cgi/tech/1132013685/
削除理由・詳細・その他：
　６． 連続投稿・重複

Dr.Dのマシン語寺子屋

TBitmap→TJpegImage→Jpegファイル、とやってますが、
DDBからDIBにするとメモリ減りますか？

コーディングも簡単でつか？

やってることと、質問の内容が噛み合ってない

いやだから、

TBitmap(DDB)→TJpegImage→Jpegファイル
から
TBitmap(DIB)→TJpegImage→Jpegファイル
に変更。

今は意識してないけど、TBitmapってデフォはDDBだおね？

大差ないよ。

feeddemonってRSSリーダーがあるんですが
v1のときにhtaのような使い方をしている
部分(左のチャンネルリスト)をどう実装してるのか
わからないんですが、誰か教えてください詳しい人

> Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

すれ違い

マウスカーソルをアルファベット文字、もしくは単語にしたいのですが、
簡単にできますか？

アルファベット毎にカーソルファイルを作るのでなく、
コーディングでやりたいです。

簡単にはできないでしょ。すなくとも動的にアルファベットの画像をつくらなきゃならないし。

>>122
http://forum.nifty.com/fdelphi/samples/00368.html

TBitmapを作成して そこに文字を書いて、
それからCreateCursor

>>123 >>124

ｻﾝｸｽ。
ちょっとひねればコーディングできそうですね。

どうぞよろしくお願いします

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レコードセットとしてクライアント側で一発でデータ取得できれば嬉しいです

長文になってしまい申し訳ありません
どうぞよろしくお願いいたします

126です
大変失礼しました
[ くだすれdELPHI(超初心者用) ] のスレの方に移動します

>>1
問題だしておくれ
初心者でも10分ぐらいで解けて、面白味のあるものがいい

じゃ、俺から問題

ボタンを二つ用意し、片方を非表示とする。
表示されているボタンを押すと、非表示だったボタンを表示し、押されたボタンを非表示に。
これを交互に繰り返せるものを作れ。

くだらね┐（´〜｀;）┌

>>130
ならおまえがだせ。
と、いいたいところだが、これはどうだ？
コントロールのオーナーをTForm1からTForm2に変える。

他のｽﾚでTPrinterの話題が出てたんで。

用紙の左上から右に５ｃｍ、下に５ｃｍの位置に
「はろーわーるど」と印字せよ
フォントは何でもいい

初心者の基準を考えよ

ｉｎｉファイル作って
初期データ読み込み書き込みはどうだ？

初心者の基準を考えよ

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;

あ、途中で書き込み押しちゃった
>>136は>>129への回答です
短くなるように工夫しました
採点お願いします

わざわざコードで
  Button2.OnEnter:=Button1Click;
  Button2.Visible:=False;
をする必要が無い。
０点。

そりゃプロパティでも出来るけどあえて明示してるんでしょうが。

ほかにもフォームの位置とかサイズとか、明示しろよ。

こりゃいかん。

てゆうか先生！なんでOnEnterやねん！Clickや！！
と突っ込むところではないの？

ほんとだｗｗｗｗ

TD2006ってコンポにフォーカスさせてF1押してもヘルプでないよね

しらねぇよ。Del6per の方がましだし、そんなの使うヤツの気が知れん

procedure TForm1.Button1Click(Sender: TObject);
const
FILE_URL = 'http://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;

>>145
可哀そうに

TDって略すとTurbo Debuggerかと思ってしまう俺。
（さすがにTokyo Disnylandとは思わないが）

>>144
可哀そうに

>>134
iniファイル読み書きの習作をつくってみました
普通にファイルの読み書きするより簡単かもしれない
ちょっと感動！！
procedure TForm1.Button1Click(Sender: TObject);
var
  iniFile:  TInifile;
begin
  iniFile:=TIniFile.Create('ook.ini');
  try
    count:=iniFile.ReadInteger('CounterApp', 'Count', 0);
    Inc(count);
    iniFile.WriteInteger('CounterApp', 'Count', count);
  finally
    iniFile.Free;
  end;
  ShowMessage(IntToStr(count));
end;

フルパスつかっとけ

EXEファイルと同じフォルダが前提ならそのままがいいと思うが。

>>152
お前はそのままでいいよｗ

>>152 は、今後大変だな・・・

>>150
お主、俺を超えたな！？

カレントディレクトリが変わるたびに、あちこちにいっぱい ini をつくるけどね

TIniFile って相対パス渡すとプロファイルフォルダに作られなかったっけ？

なんにせよそういう不安定要素は削除しないとな

＞Delphiで無料でプログラミングしてみるお
＞ttp://pc8.2ch.net/test/read.cgi/tech/1139675970/239
＞ソースと実行ファイル
＞http://vipperup.orz.hm/miniup/src/viup0403.zip

これって、もう手に入らないの？

　

授業を受けに来たのに先生がいませんよ。有給ですか？

>>132

別のアプリケーションにエンターキーを送りたいのですが、アプリケーション側でなにか
対策をしているらしく、keybd_event ではエンターキーだけが認識されません。
(そのアプリ上でエンターキーを直接押せば認識される)

こういった場合、どのようにすればいいのでしょうか？

>>163
すみません、、、スレ間違えました。別スレに行ってきます。

Delphiで
Vbでいうところの Validate イベントを実現したい。
どうすればいい？

Procedure TXXXXX.OnValidate(Sender : TObject;Cancel : Boolean);

Cancel := True;

とすれば、フォーカスが抜けないようにする。
どうやったらできるんだろう？

TEdit を継承して、
WndProc を オーバーライドして
CM_EXIT をフックしてみた。

TEdit　ではうまくいったが
TComboBox ではうまくいかなかった（DropDownList では おｋ で DropDown ではNg だった）。

誰か経験者か、うまいやり方知ってるひと教えてください。

やったことないけどOnEnterでValidateすべきかどうか（どこかで）設定しといて
WM_KILLFOCUS受け取ったときに上記状態なら指定されたところにチェックしにいくとか

OnChangeかOnExitの時に、
Cancel=Falseなら、Combobox.setfocus

procedure TForm1.hogeExit(Sender: TObject);
begin
  チェック処理
  if エラー then
  begin
    Enabled := False;
    Application.ProcessMessages;
    Enabled := True;
    hoge.SetFocus;
  end;
end;

TPrinterで印刷の集約指定等の設定変更できますか？

印刷設定ダイアログ結果をWindowsに反映する方法教えて下さいでつ。

>>166
ありがとうございます。
WM_KILLFOCUSでも同じでした。

>>167,168
ありがとうございます。

TComboBox の派生クラスに OnValidate イベントを実装したいのです。

DoExitをオーバーライドするのはどうですか？

procedure TMyCombo.DoExit;
var
　　Cancel: Boolean;
begin
　　if Assigned(FOnValidate) then begin
　　　　Cancel := False;
　　　　FOnValidate(Self, Cancel);
　　　　if Cancel then begin
　　　　　　SetFocus;
　　　　　　Exit;
　　　　end;
　　end;

　　inherited;
end;

Delphi7
SQLServer2000　使用です。

exceptにて、EDatabaseErrorが発生した場合に、
そのエラーNoを取得したいのですが、どのように書けばよいのでしょうか？
現時点では下のように書くところまでやりました。

except
on E: EDatabaseError do
begin
Result := False;
end;
end;

>>173
いろいろ考えられるね。
・E.MessageにエラーNoが入ってるならそこから抽出する。
・E.ErrorNoみたいのがあるならそれを使う。
・SQLServer2000にGetLastDBError見たいな関数があるならそれを利用する。

>>173
BDE使ってるならEDBEngineErrorでcatchすれば
エラーの詳細が取れるけど。
どうやって接続してるの？

>>174
すみません、もっと根本的な問題だったようです。
やりたいことは、レコードロックによるタイムアウトエラーを取得したいのですが、
タイムアウトはEDatabaseErrorではないようです。

タイムアウトはEDatabaseError以外のどのExxxErrorでとれるのでしょうか？

>>175
データモジュールにADOConnectionを貼り、ADOQueryで実行しています。

>>176
そこまで細かいことは自分で調べちゃった方が早くね？

>>176
on E: Exception で捕まえて、E.ClassNameを調べる

>>178、179
ありがとうございました。
調べたところ、EOleExceptionと出ました。

SyncObjsの中にあるTCriticalSectionですが、
EnterとAcquire、LeaveとReleaseの違いは何ですか？
いろいろ試した限りでは同じ処理に見えるのですが・・・

>>181
ヘルプ見た？
その上で動作が同じだと判断するなら同じなんです
深く考えすぎないほうが良いかと

>>182
TCriticalSectionのページに行こうとしても、
リンクがみつかりません　って出るんですよ
無料のDelphi6だからかな？　まぁ気にしないことにします

QuickReport印刷内容をビットマップ（Ｊｐｅｇでもおｋ）に落とす方法教えて下さい。

そういうプリンタドライバがあるよ

リレー動作のプログラムなんですが64個のリレーを
チェックボックスに分けて選んでリレーを
ON/OFFしたいんですが

procedure TForm1.Button1Click(Sender: TObject);
begin
Relay[Time]:=True;
Time:=Time+1;

RelayChange;
end;

これからどう増やせばいいでしょうか？
どうかよろしくお願いいたします。

>>186
日本語でおｋ

IsDelphiで、このソフトが、Delphi製とでるのですが、
http://www.highdots.com/css-tab-designer/
オフィスっぽいGUIは、どんなコンポーネントを使っているんでしょうか？

すみません。超初心者スレと間違えました(汗

コンストラクタ内で例外を発生させるのってまずい？

自作クラスのコンストラクタの引数で作業フォルダのパスを指定して
フォルダが存在しなければ作成ってのをやろうと思うんだけど、
try〜finallyの手前でCreateすると例外が発生したときに例外を捕まえられないし
try内の先頭でCreateするとコンパイルで「初期化されていない可能性があります」と警告が出る。

コンストラクタは内部変数の初期化だけにしておいて
作業フォルダのパス指定は別メソッドにしておいたほうがいいのだろうか・・・

>>190

try
　Create
　try
　　hoge
　finally
　　hoge
　end;
finally
　hoge
end;

>190
Delphiにおいてはコンストラクタ内で発生して捕捉されない例外は
コンストラクタの失敗を意味する。

hosyu

2chブラウザのJaneみたいな動かせるメニューバーってどうやって作ったらよいのでしょうか。

>>194
TCoolBar のバンドの .Control に TToolBar 設定して、
TToolBar.Menu に TMainMenu 設定。

Bitmap画像をレイアウト部分はコーディングでなくてポトペタで作成したいのですが、
良い方法はありますか？

QuickReportで良いのですがQuickReportは汎用画像出力が出来ないので...

そういう機能をレポーティング　コンポーネントって言うらしいですね。
でもWin32用が無いお。

>196
日本語でおｋ

グラフィックソフトとか、ワープロでつくるようなをDelphiでやりたいんじゃないの？
で、最終的に、印刷じゃなくて、画像にしたいと。

.netを普及させる方法を思いついた！
win32に、WCaption: WideString みたいなメンバを追加して
さらにくそでかく遅いバイナリしか生成できなくする。
これなら.netでいいや、ってなりwin32死滅。

日本語でおｋ

　すみません。教えて下さい。
DelphiTurboExplorerを、サイトからDLして使用したいと考えているのですが、
ユーザー登録をすませても、DLページに行けずに困っています。

それと、フリーのデーターベースであるFirebirdと
繋げられるのでしょうか？
やはり製品版でないと無理なのでしょうか？

自分は、単純に初心者向けプログラムである。
CDやDVDの在庫管理アプリを作りたいだけなんですが、
自分の労力以外は、極力フリーで作りたいと思っています。
可能でしょうか？

宜しくお願いします。

http://www.turboexplorer.com/downloads

>>203
The page cannot be found

http://www.turboexplorer.com/mirror

>>204,205

HTTP Error 404 - File or directory not found.

ttp://torrent.borland.com/turbodelphi_jp.exe

>>207

すみません。
やはりHTTP Error 404 - File or directory not found.になります。

みなさん、ありがとうございました。
残念で、悲しいですが、すみませんがDelphiあきらめます。

繋がるけどなぁ
http://www.codegear.com/tabid/144/Default.aspx

>203 >205 >209は普通に繋がるね。

普通につながるけど？

条件文がたくさんあって、それらを同じ処理するときはどうしたらいいですか？
ifのあとに条件をズラーッとandでくっつけるしかないのでしょうか？
例えばｘが1　3　5　6　7　10・・100と不規則なときに、一定の動作をさせたいです。

case x of
1,3,5,6,7,10,100: 〜〜';
else
〜〜;
end;

if x in [1,3,5,6,7,10..100] then XX;
ってのもあるよ

二次元配列があり地図のようになってるとします。

その時に●から一番近い5（複数ある）への経路を求める問題。
マスは30*30
●は（16、16）
0は通れる、1は通れない、4はいやな人
で、5の周りに4がいた場合それは目的の5にはなりません。

000000000000000000000000000000
000000000000000000000000000000
000000111100000000050000000000
000000001100000000000000000000
000000000100541110000000000000
000000000000111111000000000000
000000000000000000000000000000
001100000000000000000000000000
00000000000000●000000000000000
000100000000000000000000000000
000100000000000111111110000000
000000000000000000000000000000
000000500000000000050000000000
000000000000000000000000000000
000000000000000000000000000000

>>215
２ｃｈのレス数じゃ無理ｗ
試しに幅優先探索して書こうとしたら、600行超えたからやめたｗ

>>215
たけしのコマ大かと思った・・・。

斜め移動はあり？
地形は固定？
障害物１等のオブジェクトは、定数？

つっこむ所が多々ありそうだなぁ。

>>215
普通にA*でいいんじゃないの？

>>216
600行はありえん。

>>217
俺は斜め移動無し、固定でMAPはファイルからそのまんま読み込んだ状態としたよ
んで、今の箇所から上下左右で自分の関数を呼び出して、再起関数にして探してった。
でもこれじゃ全数検索になってしまう。
こういうアルゴリズム習ったけどやり方有ってるか不明

>>218
A*って何？

工場勤務でブルーワーカなのだが、明日から夜勤なので睡眠時間調整の
暇つぶしに >>215 をやってみた。５時間かかったお。

再帰呼び出しとかは使えないし分からんので、長めになっちゃった。
キュー（ＦＩＦＯ）をやってみようと思って、ポインタとか使ってみたけど訳分からん。

ttp://strawberry.web-sv.com/cgi/up/iuy/nm4383.zip.html
（フォームにボタン１個要）

だって、ＭＣ工作機械マクロ言語に再帰呼び出しとかポインタなんて無いよ　orz
あ、でも、なんちゃってポインタは出来るかな？　#(#10) な感じで。

A Starでやれ

昔Delphi6触ったときにはたしか標準でフォルダ選択ダイアログってなかったような気がするんですが

TurboExplorerにもなかったりします？

SelectDirectoryなら昔からあったと思うが？
名前がセレクトフォルダじゃないからダメなの？

Delphi6のSelectDirectoryはダイアログの表示位置がずれるバグがあるんだよな

バグじゃないよ、たんに場所指定してないだけ。ML の過去ログやら、コンポ
で解決したのがわんさかあったけど、いまは知らない

まあ、フォルダのＤ＆Ｄに対応しとけば、みんなソレ使うから
SelectDirectoryはとりあえずあればいいやみたいなもんだし

uses
FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
dir: string;
begin
MoveWindow(Application.Handle , Left ,Top ,0 ,0 ,False);
SelectDirectory('表題', '', dir);
Label1.Caption := dir;
end;

>>220
遅くなったがサンクス！
ただ、速度おっそいなぁｗ

保守

現在BDEで作成されているものをFirebirdに簡単に変更できるものでしょうか
Firebirdはまだ触ったこともないし、BDEもそのとき玉々作ってみただけの
データベース素人ですが。

>>230
どういう作りになっているのかにも寄るけど
簡単には無理じゃね。

>>231
ありがとうございますm(_ _)m
やっぱ作り直しですか。

いや、普通にコンポーネント貼り付けて作ってるなら
InterBase Data Access に変えるだけで問題ないだろし
そうでないなら、それなりに大変だろうってだけさ

やってみまふ。

ヒント： Firebird ODBCドライバ

今しばらくは生きていけそうです

なんでIntegerとかが予約語になっていないのでしょうか

var
Integer: string;
begin
Integer := 'Double';
Writeln(Integer);
end.

Integerは予約語ではないけど定義済の型名だから
変数として使うと、
使った後整数型の定義とか、型変換とかで困ってしまうよ

他の型名とか自分で定義する型名も同じ事情があるよ。

回答になってねぇｗ

>>237
なんでだろ。
Windows.hとかのCからコンバートしたときのための兼ね合い？
似たようなので、引数でも例外あったような

おみゃーらー♪
Delphiはつまらんぞー！
おみゃーたー、『肥えた語』つー言語があるの知ってる？
おりは知ってるよ。
おりがつくった言語よ。これからｈ『肥えた語』の時代よ。
URLはここよ↓
http://www.geocities.jp/hontamagod/
感想を頼むなー♪

JEDI がDelphi2005にインストールできません。
以前入れたときは確か、すんなり入ったのですが。
..\JEDI\jvcl\run\JvJVCLUtils.pas(7359) エラー: E2010 'Char' と 'string' には互換性がありません
..\JEDI\jvcl\run\JvJVCLAboutForm.pas(115) 致命的エラー: F2063 '..\..\run\JvJVCLUtils.pas' ユニットはコンパイルできませんでした
ほかにも出てきます。
pas は秀丸では欧文フォントで文字化けなしに読めたんですが「TM」とかの特殊文字が
○株みたいに扱われているんでしょうか、Shift-Jis ではChar扱いしてもらえないようです。

ＯＳは Vista
Ｄ5 にはインストールされています。
m(_ _)m

せめてバージョンくらい書こうよ･･･

すんません、JVCL320CompleteJCL197-Build2172.zip でした。

なんでそんなに古いのを入れようとしてるの？

そんなに古いのー？

すみまそん。
しばらくD5で使ってたのでそれをそのままフォルダからインストールしようとしてました。

それだとD5でコンパイルされたファイルと混じっておかしくなるんじゃない？

やっぱそうですか。
はき出す場所が違うからＯＫだと思っていたのですが、
とりあえず2005には最新版を入れてみます。

JVCL331CompleteJCL199-Build2551.zip
入れてみましたが状況は変わりませんでした(x.x)

前にインストールしたときのゴミが残ってるんじゃないかね。
とりあえずJcl*.bplとJv*.bplを削除してみたら？

ってことは皆さん問題なく入れていたということなんでしょうね。
結局使わない部分っぽかったので修正して無理矢理入れてしまいました。

JvgUtils.pas
function Transliterate(const Str: string; RusToLat: Boolean): string;
コメントアウトで Result := Str;

JvDBGrid.pas
FCharList :=
['A'..'Z', 'a'..'z', ' ', '-', '+', '0'..'9', '.', ',', Backspace{,
'e', 'e', 'e', 'e', 'o', 'o', 'u', 'u', 'a', 'a', 'a', 'i', 'i', 'c'}];
下半分をコメントアウト

JvJVCLUtils.pas
// Text: Char;
Text: string[2];
Char を string に変更

JvStrToHtml.pas
特殊文字 27 個コメントアウト

ありがとうございましたm(_ _)m

Delphi5って、サポートされてたっけ？

されてる。

JCL/JVCLって昔試したときマルチバイト文字に対応してなかったような記憶が
あったようななかったような・・・

コンポーネントによってされてたりされてなかったりだね。

コンポーネントがDesignideを使っててコンパイルできなくなるとかの
問題でずっと悩まされてます・・・
古いIDE組み込み型のコンポーネントって
新しくなるとコンパイルが通らなくなる・・（泣

Designideで悩まない方法はありますか？

D6パーではHelpに書いてある。互換性の問題

こんなんでよい？

-- DsgnIntfが見つからない場合 --

コンポーネントをインストールするときに
DsgnIntfが無いといってエラーになる場合があります。

Delphi5からDsgnIntf.dcuのコンパイル済みユニットが
無くなったからこのような現象が起きるそうです。

Delphi6からはDesignIntfという名前に変更されています。

DsgnIntf Unit はおもに、コンポーネントエディタやプロパティエ
ディタを作るときに利用するものです。

「環境オプション/ライブラリパス」に
$(DELPHI)\Source\Toolsapi
を追加してみましょう。

解決するはずです。

本当は、この方法を用いるとプロパティエディタのコードが
実行ファイルに含まれてしまうので、そういう書き方をしている
コンポーネントが悪いので、自分の作る物ではこういう問題が発生しないように
気をつけましょう。

参照────────────────────
[Delphi:42979] Delphi5 変更点
http://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=42979

Delphi7を使ってます。
designide.dcuが見つからないという
エラーが出てしまいます・・orz

そうですか

TUIWebBrowserで読み込んだFlash上の入力ボックスで
BackSpaceキーは効くものの
Enterキーがきかないのですが
効くようにすることは可能でしょうか？

>>259
ありがとうございます。
いろいろいじっていて
実行時パッケージでない方でビルドできました。

ナッキーのdelphi奮戦記面白い
間違いなくナッキーは淫乱

ペイントソフト楽に作れ杉

TShapeじゃなくて、ラインをペタペタ貼るコンポーネントありましたっけ？

直線だけなら OnPaintに Canvas.MoveTo Canvas.LineToで簡単に引けるから需要無いかと

Delアメ猫だったかの人がフサギコと絡んで、マウスで直線を動かせるようなコンポーネントの原型を作って
どっかにアップしてたように思うのだけど、今検索してもみつからないな

>>266
やっぱ、そうですか。

>>267
＞マウスで直線を動かせるようなコンポーネントの原型を作って
欲しいもの、これですorz

HDDに、原型のやつがあったよ。
検索に1時間ほどかかってしまた。

>>269
デルフサギコ様、うｐをお願いしますorz

コンポーネントのソースは読めるので、
手直しとか派生くらいできますし、
使いこなせると思いまつ。

実行時にマウスで動かせた矢印コンポもあったような気がするんだけど
手元にあるのはShapeの矢印版っすね。

majunarrowexとか、viArrow.pas
って名前だけど、googleではでないみたいだ。

とりあえずうｐろうか。午後くらいでよい？

＞午後くらいでよい？

ずっと待ってまつ。

希望では、以下の機能も欲しかったり。。。
・マウスで動かせる
・マウスで長さが変えられる
・移動や長さが変ったときに、Changeイベント
・矢印をオフにして単なるライン化

http://delfusa.main.jp/compo/majunarrowex.zip

いや、はようｐっとくよ。

もっといいものをつくってくれた人もいたきがするんだが...

あの時期てきにホットゾヌの作者の中の人だった気がするが
確証無しで。

このコンポ、いったい誰作なんだろう...中国の方かしら。

設計時なら
>・マウスで動かせる
>・マウスで長さが変えられる
桶

>・移動や長さが変ったときに、Changeイベント
わからない。というか、Resizeイベントはなさそうだから
どっちにしても自作だね。

>・矢印をオフにして単なるライン化
なぜか出来ないみたいだ。
改造すれば簡単でしょう。

コレの事？
http://delwiki.info/?c=plugin;plugin=attach_download;p=%A5%B3%A1%BC%A5%C9%C1%D2%B8%CB%2FDraw%A5%B3%A5%F3%A5%DD%A4%CE%B8%B6%B7%BF;file_name=MyDraw.pas

>>274
>>275

ｻﾝｸｽ!

両方ダウソしました。
どっち使うか決めなきゃ。。。

>>273
・１個だけ
・設計中のみ変更可能
・コードはシンプル

>>275
・複数のラインやオブジェクトが１コントロールに入る
・フォームにフックさせて最下面に無理やり描画するのも出来る
・実行中に移動等も可能
・出来る事が大きいだけに、けっこう複雑

>>277
ｻﾝｸｽ

どっちもクセ多杉orz

やりたいことは275なんだけどメッセージフック＆インライン汗と、
何かあったとき対処できるかなとドンビキ。

273に275のコード混ぜるかなぁ。。。

>>275 には　コンポが２つ入っていて、片方は TGraphicControl でメッセージフックは使ってない。
インラインアセンブラの部分はたぶん変更しなくていいいだろう。

ただ、文字を回転させるのに端ではなくて　真中というのは、チョットとまどった

あと、DesignProcでマウス応答全部やってるので
右ボタンメニューに対応させるとか、ココでやらんとあかんのかも

アセンブラの部分は　浮動小数点に置き換えたらいいんじゃないの？
iHypot　-> math.Hypot で代用
MulSubDiv はコメント通りに浮動小数点で計算させる

汗は汗のままでも良いです。

＞あと、DesignProcでマウス応答全部やってるので

この作り、拡張性大丈夫かなぁ。

WndProc　で　inherited　してるから大丈夫じゃないの？
気になるなら、それぞれ分けたらいいだけで

ひとつはデザイン中だけ処理させる判定を１箇所にまとめたかったのと、
TMyFormDraw　と TMyDraw の両方で使いたくてコピペが楽だからそうしたんだろな

＞WndProc　で　inherited　してるから大丈夫じゃないの？

了解でつ。

このコンポってStringsの中身をLines１つにすれば１本の線になるんですね。
動きも面白いし、機能は完璧。

最期の悩みは、このまま使うか、Linesプロパティを削除して、１本の線のコントロールとサブセットコントロール化するか。。。

　∩ ∩
　ﾐ ﾞ''ﾞ〜　　　　　＿＿＿＿＿＿＿＿
　ﾐ∧,,∧　　　／
　ミ,,ﾟДﾟ彡 ＜　おお。あったですかぁ。
　Ｕ　Ｕ　　　　＼あっててよかったDelWiki新
　　　　　　　　　　￣￣￣￣￣￣￣￣
こういうのって、コンポインストールしないとサンプルプログラムが
コンパイルできない形になってて、非常に面倒よね〜
コンパイルしたsample.exeを是非に付けて欲しいもので。
まあ、漏れも付けてないんだけど。

それにしても、MyDraw....すごすぎだな。
(って何年も前にも言った感じがとてもデジャブー)

>>283さん
贅沢な悩みだな。（ｗ

みつかってよかったね。

>>284
有難う。

ﾃﾞﾙﾌｻさんて、一時期見かけなかったような。。。

MyDraw1.Lines.Add('LINE');
で実行中に、線を増やせるね。

いつもひっそりと
草葉の陰から見つめているんですよ。

>>コンパイルしたsample.exeを是非に付けて欲しいもので。
そんな物、ダウソして実行する馬鹿がいたら是非お目にかかりたい物でｗｗｗｗ

たくさんいますよ

何か呼ばれた気がしたので来ました。

デモには、実行ファイルをつけようよ・・・

http://delwiki.info/?%A5%B3%A1%BC%A5%C9%C1%D2%B8%CB%2FDraw%A5%B3%A5%F3%A5%DD%A4%CE%B8%B6%B7%BF
ココに、サンプル書いてみた。

右ボタンで削除出来るようにコンポ側に少し追加もした

でも、コレ、誰がItemのオブジェクト削除してくれてるんだろ？
テキストを変更してもメモリリークしないんだろか？

いきなり割り込んで書き込みます、すいません。　
初心者です。データベースの接続で困ってます。
TTableのDataBaseNameで
サンプルのDBDEMOSでは無事接続できるんですが、
ほかのアリエス名（MSAccess,Excel...)では
ログインダイアログでユーザー名　パスワードをきかれ、
先へ進めません。どなたか教えてください。

　　Turbo Delphi for wind32
OS : wind2000です。

いきなり割り込んで書き込みます、すいません。　
初心者です。データベースの接続で困ってます。
TTableのDataBaseNameで
サンプルのDBDEMOSでは無事接続できるんですが、
ほかのアリエス名（MSAccess,Excel...)では
ログインダイアログでユーザー名　パスワードをきかれ、
先へ進めません。どなたか教えてください。

　　Turbo Delphi for wind32
OS : wind2000です。

>>294
ttp://www.lares.dti.ne.jp/~hida/tips/bde_MSACCESS.htm

こんにちは。Delphi製ブラウザコンポーネント
(TUIWebBrowser)のFlash上の
テキスト入力コントロールでEnter入力が
できない問題について質問した者です。

RADながらWin32APIとの親和性,
カスタマイズ性が高くアセンブラも使え、
デフォルトコントロールの綺麗さなど、
色々優れた点がある中で、生産コストを下げる目的で
Delphiを選ぶときについて意見をお伺いしたいです。

ブラウザを作る際に、
まずTWebBrowserを使ってみて、入力に関する
致命的なバグがあったために、そのバグを修正した
TUIWebBrowserを使ったのですが、
そこでまた入力バグに出会ってしまい、
これらの問題が、VC++での開発でははじめから起きない
問題であったために、VC++で作り直すべきか考えています。

流通しているDelphi製のブラウザ系ソフトにも同じバグが見れました。
しかし、作りやすいので本当はDelphiを使いたいです。

Delphiで、資料やバグフィクス情報が無く、
節約できるはずの時間が、逆に冗長になるケースを考慮したとき、
そういった面を考えても、Delphiの生産性を活用するためには
どういったことが必要になりますでしょうか。
Delphi開発の先輩である皆さんに
お考えをお聞かせ願いたいです。

＞そういった面を考えても、Delphiの生産性を活用するためには
＞どういったことが必要になりますでしょうか。

VCLコードを読んで理解する事。

VC++で解決出来るんなら、　それを見て自分で修正すればいいんじゃないの？
でも、たぶん VC++でも色々拡張しようとすると、いろんな問題が出ると思うよ。
他人の作ったコードをソース無しに使おうってんだから当然だ。

TWebBrowser　ならともかく TUIWebBrowser は使ってる人が少ないだろうし
さらに Flash となると、問題に答えてくれる人は少ないと思うよ。

>>262 の問題は　メッセージポンプの所で流れてるメッセージ
を（Application.OnMessage とかで）見て、なんとか出来ないか考えてみたら？

ActiveX や OLEControl の制御は VCL のソースを読んでも、個人レベルでは
解決は難しい。TWebBrowser やその派生コントロールは、Delphi で簡単に
使えるように見えるが、Delphi での細かい制御が一番面倒なもののひとつ。
VC++ でできるなら、そっちでやればいいでしょう。

いまさらだがMLに投げてみりゃよかったのに。

まぁなんでもMLに投げてみりゃいいんだよな。

Delphi TWebbrowser Enter ぐぐれかす

>>302
TWebBrowserのバグを回避した
TUIWebBrowserでFlashActiveX上のコントロールを経由した
ときだけ起こるって言ってるし
TWebBrowserの有名な入力バグは普通もう回避してるだろう。

コード量が短いので>>273を参考にして勉強中のものです。

そこで質問です。>>273の
.dfm に記述されたコードを .pas側で実行時に自動生成する
形に書き直すと、どういう風になりますか？じぶんはテキスト
エディタ派なのでコードの編集はできればテキストエディタで
やりたいとです。。。

プロジェクトを立ち上げると、

フォーム作成中にエラーが発生しました。(中略)
クラス TviArrowが見つかりません
とか出て上手くゆかなかったとです。

viArrow.pas をプロジェクトに追加して
プロジェクトを再構築。でコンパイルしたら実行
ファイルのほうは簡単にできてちょっと感動したとです。ひろしですひろしですひろしです

>>304
なあ、こっちも実行してみてくれ。
http://delwiki.info/?c=plugin;plugin=attach_download;p=%A5%B3%A1%BC%A5%C9%C1%D2%B8%CB%2FDraw%A5%B3%A5%F3%A5%DD%A4%CE%B8%B6%B7%BF;file_name=MyDrawSample.lzh

>>305
1000行越えのコードの解読は厳しかったとです orz

>>304
.dfm にはコンポーネントのプロパティが入っている。
実行中に位置やサイズを変更したいなら、　Left, Top, Right, Bottom　をコードで弄る必要がある

>>305のは、コンポーネントを登録しなくてもいいように作られている
位置やサイズは文字列で与えてるようだ

　　　 ∧,,∧　　ｵﾊﾖ
　　　ミ,,ﾟДﾟ彡
　 　 ﾐ　つ旦)~~
　 〜と,,,~),,~)　　旦~~
]]]]]]]]]]]]]]]]]]]]]]]]]]]]

自動生成する形になってて、いいっすね
>>305さん

どうせなら、バイナリも含んじゃえばいいのに。（ｗ
IDE起動するのメンド(い人もいるかもね。)

>>307さん
MyDrawコンポーネントは単体で
たくさんの矢印や
矩形を処理するようになっていて
その位置を元々TStrings系でもっているのですよ。

TFormとかTImageってCanvasプロパティがありますよね。

TScrollBoxみたいにCanvasプロパティの無いコンポーネントにお絵かきするには、
どうすれば良いですか？

1.Canvasがある他のコンポーネント(TImageとか)を貼る。
2.TWinControlから派生したものであれば、さらに派生させてCanvasプロパティをpublicにする。
ん〜これしか思いつかなかった。もう少し具体的にやりたいことを書けば、もう少しまともな
回答がつくと思うよ。

var
 Canvas: TCanvas;
begin
 Canvas := TCanvas.Create;
 try
  Canvas.Handle := GetDC(hoge.Handle);
  try
   Canvas.TextOut(0, 0, 'HOGE');
  finally
   ReleaseDC(hoge.Handle, Canvas.Handle);
  end;
 finally
  Canvas.Free;
 end;
end;

ｻﾝｸｽ>>310 >>311

具体的には、
TScrollBoxの上にTImage、その上にMyDrawを乗せています。

それで、MyDrawの図形をマウスでいじると、
TImageが物凄くチラツクんですよね。

それで、TScrollBoxにもTImageの図形描いておいてやろうかな、と。

TScrollBoxをやめて、TPanelにしてDoubleBufferdをtrueにしたらチラツキなくなりました。

現在おされているキーをセンスする関数みたいなのはないのでしょうか？

windows.getkeystate

>314
つ GetAsyncKeyState
ttp://msdn.microsoft.com/library/ja/jpwinui/html/_win32_getasynckeystate.asp

>315
現在押されている、ということであればGetKeyStateは不適切。

ありがとうございます。

windowsの世界だと int 21h(AH=8) みたいなのはないんでしょうか。
シーラカンスですんません。

意味不明。何をしたいのかを具体的に。
たとえばOnKeyPressとかTForm.KeyPreviewあたりは幸せになれるかも？

ごめんどうおかけします。

やりたいのは、コンソールアプリケションで、
enter (1-9 or q):
みたいなプロンプトをだして、一文字キーボードから入力してもらい、
入力された文字で処理を分岐させようというだけです。
つまりread(c); でreturn を入れなくても一文字読み込みたいというだけです。

コンソール入力はwindows側でバッファされてるから、イベント入力を使う必要がある
GUIアプリの例だと、ボタンとメモと、タイマーを貼り付けて
procedure TForm1.Button1Click(Sender: TObject);
begin
　AllocConsole;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
　pirBuffer: INPUT_RECORD;
　hdl: THandle;
　lpcRead: DWORD;
begin
　hdl := GetStdHandle(STD_INPUT_HANDLE);
　if integer(hdl) < 0 then
　exit;
　while ReadConsoleInput(hdl, pirBuffer, 1, lpcRead) do
　　with pirBuffer do case EventType of
　　　　KEY_EVENT: //Event.KeyEvent
　　　　　if Event.KeyEvent.bKeyDown then
　　　　　　Memo1.Lines.Add('KEY=' + Event.KeyEvent.AsciiChar);
　　　　_MOUSE_EVENT: //Event.MOUSE_EVENT
　　　　　with Event.MouseEvent do
　　　　　　Memo1.Lines.Add(format('%5d %5d ', [dwMousePosition.x, dwMousePosition.y]));
　　　　WINDOW_BUFFER_SIZE_EVENT, //Event. WindowBufferSizeEvent
　　　　　MENU_EVENT, // Event. MenuEvent
　　　　　FOCUS_EVENT: //Event.FocusEvent
　　　end;
end;

コンソールアプリだと、このタイマーの部分でキー入力があるまで無限ループする関数を書く事になるだろな

ありがとうございます。
これを参考にコンソール用に書き直してみます。

お世話になります。
ブラウザコンポーネント上の
FlashActiveX上の入力問題で質問した>>296です。
みなさんありがとうございました。
時間がかかりましたが、
なんとか解析して自己解決できました。
これでDelphiのままいけそうです。

>>322
解析結果を書いてくれるとみんなが幸せになれるかもよ

>>323
スクリプトによって書かれて配置される
FlashActiveXが、１ページに２つ以上あるときに、
従来の方法で
２つ目のものにメッセージを送れていない場合があるようです。
ウィンドウを細かく検索することで回避しました。

前スレうｐ頼む

っ 前スレうｐ

神ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!
楽しみに待ってます。本当にありがとう！！
前スレの字句解析から意味解析のログ本当に勉強になったので

EditのPopupMenuに自作PopupMenu1をセットしたら、
元々EditにあったPopupMenuが無くなりますよね。

そうじゃなくて、EditのデフォのPopupMenuに自作PopupMenu1を足すには、
どうしたら良いでしょうか？

DPAPI(データ保護 API) を　使って　パスワードを
ＯＳに記憶してもらう方法とか有ったら知りたいのですがなかなか見つかりません。
マイクロソフトのページには

DPAPI は、以下の項目を保護するのに役立ちます。
• Web ページの資格情報 (たとえば、パスワード)
• ファイル共有の資格情報
• EFS (暗号化ファイル システム)、S/MIME、および他の証明書に関連付けられた秘密キー
• CryptProtectData() 関数を使用して保護されているプログラム データ
とあるのですが　このDPAPIは単純に任意のパスワード等保護してもらえる機能として
捕らえていいのでしょうか 。　delphi7を利用しています。　どなたか情報いただけませんか。

>>328 もﾖﾛ!

>>328
たぶん出来ない。
右ボタンメニュを出すには　TrackPopupMenu　を呼び出すわけで
エディットコントロールにはデフォルトのWM_RBUTTONUP内部でコレを呼び出してる部分があるのだろう

TrackPopupMenuを呼び出すにはhMenuが必要だけど、EDITでコレを入手する方法が見つからない。
親窓なら、GetMenuでhMenuを呼び出せるけど、小窓ではそれが出来ないから。

そうですか(´・ω・`)ｼｮﾎﾞｰﾝ

＞親窓なら、GetMenuでhMenuを呼び出せるけど、小窓ではそれが出来ないから。

親窓を取得したりできないですかね。

差し替えたPopupMenu1のイベントハンドラを実行すると、
EditのデフォルトのPopupMenuを開きなおしたり、
とかでも良いのですが。

>>332 後半なら
var SaveMenu:TPopupMenu;
begin
　SaveMenu:=Edit1.PopupMenu;
　Edit1.PopupMenu:=nil;
　 SendMessage(Edit1.Handle,WM_RBUTTONDOWN,Edit1.Left,Edit1.Height);
　 SendMessage(Edit1.Handle,WM_RBUTTONUP,Edit1.Left,Edit1.Height);
　Edit1.PopupMenu:=SaveMenu;
end;

と、いったんメニューを外して、右ボタンを押して離してを送りつければ出るよ

有難うございます。それでやってみます。(*｀∀´*)

メニューを外さなくても、直接小窓にメッセージを送ると出るみたい

var pt:TPoint;
begin
pt:=ClientToScreen(Point(Edit1.Left,Edit1.Height));
PostMessage(Edit1.Handle,WM_CONTEXTMENU,Edit1.Handle,pt.x+(pt.y shl 16));
end;

thx! >>333 >>335

両方おｋ、でした。

TPointを指定するのメンドウだから、333でやるかも。

PopupMenu1のメニューの一つに編集っていうメニューを用意して、それだとデフォメニューをオープン、
という動作でｶｺﾖｸできました。

>>326
ひょっとしてあたしを騙したの？

勝手な思いこみ

今からでるふぁい

もう死んデルファイ

みなさん
多言語化（日本語/英語)
をするときはどうしてますか？おしえてください

>>341
TNT＋dxgettext

素直にリソースDLLウィザード。日本語/英語以外の言語サポートが必要ならTNTも併用。

標準VCLって役立たずだな

>>341
Delphiに国際化対応のツールが付属してるでしょ、

61 名前：34[] 投稿日：2007/09/24(月) 19:13:21
お久しぶりです。TThreadでボヤいてた者です。
TThreadをプールして使い回してみたところ問題なさそうなのでこれで行くことにしました。
あとスレッドで処理中にフォームを操作するとCPU100%のまま帰ってこなくなる現象が出ましたが、
TThreadの方にpublicで作ったAnsiStringに渡した文字列が原因だったようで、
スレッドの変数をAnsiString.Unique()して参照を切り離してやったら問題無くなりました。
これから先に嵌る人が居るかもしれないので書いておきます。

改めてありがとうございましたorz

みなさんありがとうございます。
＞国際化、リソースDLL

こちらに書いてあることでしょうか？
http://www.wwlnk.com/boheme/delphi/tips/tec1550.htm
最後に書いてある、一度設定したらもう変更できないみたいな
ことが気になるのですが、
修正が入ったり、言語が変わると文字列の幅が変わるので
画面の調整も必要に思うんですが
みなさんどうしているのでしょうか？

何度も修正する場合
TNT+dxgettextが使われるのでしょうか。

アプリ全体のフォントサイズを大きくするって簡単ですか？

Formのフォントサイズをでかくすれば
その上に貼り付けたコントロールも一緒にでかくなる。
ParentFont参照。
ウィンドウキャプションとかはWindowsが描いてるものだから無理。

ｻﾝｸｽ>>349

JPEG2000を表示する方法を教えて頂けないでしょうか？

>>351
Susie Plug-in + SPIS

実行中のexeのリストを取得するコンポはありまつか？

すれ違い

>Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

>>353
マジレスするとDelphiでは無理

>>353
コンポは知らないけど
NtQuerySystemInformation
を googleさんに begin とか pas と and で聞いたら　教えてくれるんじゃないかな

>>353
コンボはないけど、
多分、TookHelp関数を使えば割と簡単にできると思う。
具体的にはTHelp32.pasに宣言されている、
Process32FirstとProcess32Nextを使えばいいんじゃない。

>>355
お前の持ってるでるふゃいではな。

API使える言語ならどれでも出来る
逆にこれをライブラリ化してる製品ってないんじゃないかな

　　 ∧,,∧　　　これつかってちょ。
　　ミ,,ﾟДﾟ彡　
　　 U　　つ 　　
　＠ﾐ　　ﾐ 　　　
　　 ∪''∪　

DelFusa Library - Delphi OpenSource - DelFusa Floor
http://delfusa.main.jp/delfusafloor/opensource/delfusa_library_f.html

GetProcExeNameList

おまいら、すれ違い

>Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

問題
インチをセンチメートルに変換するプログラムを作って
細かい仕様は自由
ヒント：1in = 2.540cm 、StrToFloat

program Project1;
{$APPTYPE CONSOLE}

function InchToMetre(Value:Double):Double;
const
　　INCH_UNIT=0.0254;
begin
　　Result := Value * INCH_UNIT;
end;

begin
　　writeln(InchToMetre(0.050)); //12.7
　　writeln(InchToMetre(0.045)); //7.62
　　writeln(InchToMetre(0.030)); //5.56
end.

嘘が書いてあるorz

DelphiでJpeg2000を表示する方法を教えて下さいでつ。

しつこい

http://codecentral.borland.com/Item/22123

DelphiでJpeg2000を表示する方法を教えて下さいでつ。

368はニセモノでつ。









でも、実は未だに解決してなくて知りたかったりして。

普通に>>367ので表示できたけど？

ｻﾝｸｽ>>370

実は自分もDel7出来ました。

が、実際の環境である、














C++ Builder 6だと上手くコンパイルできないんでつ＞＜

Delphiアプリのメインフォームのウィンドウクラスって、TApplication固定でしたっけ？

でつでつ言うなよ

でつな

(a+3)^
ってある^はどういう意味？

ObjectPascalの場合 後ろの^は　ポインタの参照
C言語の *(a+3) と同じ

なるほどサンクス

よく見かける、
エディットボックスにファイルをD&Dしてそのパスを取得
はどのようにやればよいですか？

質問はこちらにどうぞ
くだすれDelphi(超初心者用)その44
http://pc11.2ch.net/test/read.cgi/tech/1191657968/l50

答えられんからって誘導とは酷いな！

vb.netでそこそこは作れるレベルだけど、delphi始めようと思ったら最初に買うべき
本は何がいい？
それかどぼんみたく、そこだけ見ればそこそこのものは作れるようになるサイトか

何を作りたいかだろ
ファイラ作りたいとか、MMO作りたいとか（スレがあっったりするが）

ﾄﾞﾄﾈﾄみたく環境設定も要らないし、コンポーネントも要るものはあるし。
いきなり始めて、躓いてから質問してみたら？

VB2005はヘルプがすごく使いやすい

ヘルプだけかよｗ

ネイティブアプリが作れるようになったら試しに触ってやるよ。

ま、C#からやったらいいよ。DelphiもIDEは.NETが必要だし。
C#は良い本もヘルプもMSDNもWEBサイトも腐るほどあるし。

Del5。XPで、

Ctrl+Alt+Delを無効にする方法。
右クリックを無効にする方法。

教えて。

＞Ctrl+Alt+Delを無効にする方法。
マルウェアでも作るつもりですか？

そーゆーことしたいなら自分で調べろｗｗ

>>387
いちばん簡単なのは、DirectXのフルスクリーンモードで、そういうモードがある。
やり方は自分で調べろ

いや、調べてもわからないから聞いてるんで。

ちなみに、会社のIT担当委員ってのをやってて、社員にサイバーテロの対処について教育するんだが、
本物のウィルスを使うわけにはいかないんで、ジョークウェアを作ろうと思っている。

書き忘れた。

一定の時間が経過したら自動的に終了させるつもりだ。

Ctrl-Alt-Deleteのキーストロークは最優先でシステムが捕捉するので、これを
無効にすることはできない。無理。不可能。Deleteキーの軸を折っちゃえ。
右クリックはマウスの右クリックのスイッチを(ry

無理ではない。教えたいところだけど、>>391が本当か分からないし
教える立場だったら自分で調べて欲しいところ。

ヒント：海外

ソフトウェア板の各所でも、キーロガーとか、スパウウェア用途に使われるものは紹介しないというルールだしな
おしえる側も、最低限のことは守らないと

391だけど、不正ソフトばらまくのは犯罪だってことくらい知ってるよ。
けどまぁ、信用してもらえないのも仕方がないからなんとかするわ。

2chで信用しろといわれても・・・

ご質問いたします。

１．コンマ区切りの文字列をばらして配列にセットしてくれる関数はありませんか？
２．functionで配列は返せないのですか？





追伸：　「そんなこと自分で調べろ！」　と云う罵倒はおことわり。

TStringList.CommaText

それかTStringList.Textに入れれば、バラしてくれたかも

>398
配列の型を宣言してそれを戻り値の型にすればおｋ

>>401
それ、何てTStringList?

【Borland Delphi 6 Personal日本語版 入手先】
http://www.vector.co.jp/soft/dl/win95/prog/se205882.html
【Delphi 6　導入手順 】
http://www.wikihouse.com/DelphiVIP/index.php?%C6%B3%C6%FE%BC%EA%BD%E7
【インターネットダイレクト(Indy)コンポーネント導入手順 】
http://homepage3.nifty.com/KENCH/open/indy/delphi_indy.htm

動作確認は、メモとIdHttpコンポーネントを貼り付けて以下のコードを書いて実行してみる。
うまくいくとこのスレがメモにダウンロードされる。
Memo1.Lines.Text := IdHttp1.Get('http://live19.2ch.net/test/read.cgi/stock/1144395454/l50');

【デルファイの質問所】
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi
http://leed.t.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi
http://groups.google.com/groups/search?hl=ja&q=delphi+

上げ荒らしうぜえ

UpdateSQLがうまくいきません。以下のようなコードで実行すると、例外エラー'アップデート失敗'がでます。
propertyの設定は
cachedupdate true　/requestlive true /updateobject updatesql

updatesqlのｓｑｌ設定文もできてると思うんですが、、、


begin
database1.open;
database1.StartTransaction;
query1.Open;
end;

procedure TSDIAppForm.Button1Click(Sender: TObject);
begin

if query1.UpdatesPending then begin
query1.ApplyUpdates;
end;
database1.Commit;
query1.CommitUpdates;
query1.Close;
database1.Close;

end;

どこが間違ってるのでしょうか？教えてください
Turbo Delphi for wind32
OS : wind2000です。

残念、スレちがいです。

>Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

糞なテンプレでスレ立てて必死に粘着交通整理してる奴ってなんなの？

自分の居場所なんだから、そりゃ必死だろう。

自分の居場所をキチンとメインテナンスするのは、それは当然ではあるまいか？

自分の居場所ならグダグダ「スレ違い」とか言ってないで、問題を出題すべきだと思うんだな。
問題と解答、それに議論が無いから、過疎ってスレ違いと基地外の巣窟と化してるんだな。
問題：おみくじ
randomを使って大吉、吉、凶のいずれかを表示するプログラムを作れ

>>409

あまりにも簡単すぎるプログラム出題でワロタｗ

せめて、n回凶が出る確率を計算するプログラムとかにすればいいのに。

>>405

Queryの更新エラーは、
query1.RequestLiveのtrue/falseが
結構関係している。

Gandomを使って大吉、吉、凶のいずれかを表示するプログラムを作れ

>>412
CGは専門外なんで無理ですｗ

Gandom はすれ違い。

問題：呼び出すたびに1と0を交互に返す関数を書け。グローバル変数を使っても良い。

UpdateSQLのエラーが解決しました。レスを下さった方ありがとうございました。
SQL文のキー違反でした。
　SQLの勉強をもっとしないと阿寒と思いました。
　Accessのビューで作ったSQL文を貼り付けたりしておったのですが、、、。
　エラー続出でした。

問題：マウスクリックすると、クリックしたマス目とその上下左右のマスが反転する。
　　　　マス目を全て塗りつぶしたらクリアとなるゲームを作る

□□□□□　　　　　　　　　　　　　□□□□□　　　　　　　　　　　　■■□□□
□□□□□　　　　　　　　　　　　　□□■□□　　　　　　　　　　　　■□■□□
□□□□□　　　　　　　　　　　　　□■■■□　　　　　　　　　　　　□■■■□
□□□□□　　　　　　　　　　　　　□□■□□　　　　　　　　　　　　□□■□□
□□□□□の真ん中を押すと　　□□□□□左上クリックで　　　.□□□□□

■■□□□　　　　　　　　　　　■□□□□
■○■□□　　　　　　　　　　　□■□□□
□■■■□　　　　　　　　　　　□□■■□
□□■□□　　　　　　　　　　　□□■□□
□□□□□　○を押したら　　□□□□□


全部塗りつぶしたらゲームクリア
■■■■■
■■■■■
■■■■■
■■■■■
■■■■■

>>417
ライツアウト懐かしいな

俺には作れねぇ

頑張れば作れなくもなさそうだけど、とてつもなく無駄が多くなりそう・・。

  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    FTable: array[0..4, 0..4] of Boolean;
  end;

procedure TForm1.FormPaint(Sender: TObject);
const
  B2S: array[Boolean] of String = ('□', '■');
var
  x, y: Integer;
begin
  for x := 0 to 4 do
    for y := 0 to 4 do
      Canvas.TextOut(x*12, y*12, B2S[FTable[x, y]]);
end;

procedure TForm1.FormClick(Sender: TObject);
var
  pt: TPoint;
begin
  pt := Self.ScreenToClient(Mouse.CursorPos);
  pt.X := pt.X div 12;
  pt.Y := pt.Y div 12;

  if (0 <= pt.X) and (pt.X <= 4) and (0 <= pt.Y) and (pt.Y <= 4) then
  begin
    FTable[pt.X, pt.Y] := not FTable[pt.X, pt.Y];

    if 1 <= pt.X then FTable[pt.X-1, pt.Y] := not FTable[pt.X-1, pt.Y];
    if pt.X <= 3 then FTable[pt.X+1, pt.Y] := not FTable[pt.X+1, pt.Y];
    if 1 <= pt.Y then FTable[pt.X, pt.Y-1] := not FTable[pt.X, pt.Y-1];
    if pt.Y <= 3 then FTable[pt.X, pt.Y+1] := not FTable[pt.X, pt.Y+1];
  end;
    
  Invalidate;
end;

クリア判定忘れてた。

procedure TForm1.FormClick(Sender: TObject);
var
  pt: TPoint;
  x, y: Integer;
  Clear: Boolean;
begin
  pt := Self.ScreenToClient(Mouse.CursorPos);
  x := pt.X div 12;
  y := pt.Y div 12;

  if (0 <= x) and (x <= 4) and (0 <= y) and (y <= 4) then
  begin
    FTable[x, y] := not FTable[x, y];

    if 1 <= x then FTable[x-1, y] := not FTable[x-1, y];
    if x <= 3 then FTable[x+1, y] := not FTable[x+1, y];
    if 1 <= y then FTable[x, y-1] := not FTable[x, y-1];
    if y <= 3 then FTable[x, y+1] := not FTable[x, y+1];
  end;

  Clear := True;
  for x := 0 to 4 do
  begin
    for y := 0 to 4 do
      if not FTable[x, y] then
      begin
        Clear := False;
        Break;
      end;

    if not Clear then
      Break;
  end;

  if Clear then
    ShowMessage('おめ');

  Invalidate;
end;

すげー！参考にさせて頂きますm(_ _)m

implementation
{$R *.dfm}

//スペースの都合上ここに記述本当ならTForm1のprivateが望ましい
var
BTable:array of array of Boolean;　

procedure CheckComplete();
var
X,Y:Integer;
begin
for X:=1 to High(BTable)-1 do
for Y:= 1 to High(BTable[X])-1 do
if Not BTable[X,Y] then Exit;

ShowMessage('Mission Complete!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(BTable,DrawGrid1.ColCount+1,DrawGrid1.RowCount+1);
end;

//●最初にDrawGridを貼り付け、プロパティを以下のようにセット
　　Align = alClient
　　DefaultDrawing = False
　　ColCount = 6
　　RowCount = 6

//●FormのPrivateに以下のフィールドとメソッドを追加
　　BTable:array of array of Boolean; //動的二次元配列
　　procedure CheckComplete();
　　
//●CheckComplete関数を書く
procedure TForm1.CheckComplete();
var
　　X,Y:Integer;
begin
　　for X:=1 to High(BTable)-1 do
　　　　for Y:= 1 to High(BTable[X])-1 do
　　　　　　if Not BTable[X,Y] then Exit;

　　ShowMessage('Mission Complete!');
end;

//●FormCreateを書く
procedure TForm1.FormCreate(Sender: TObject);
begin
　　SetLength(BTable,DrawGrid1.ColCount+1,DrawGrid1.RowCount+1);
end;

//●DrawGrid1DrawCellを書く
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
const
　　COLORPALS:array[Boolean] of array[Boolean] of TColor = ((clWhite,clBlack),(clSilver,clSilver));
begin
　　DrawGrid1.Canvas.Brush.Color := COLORPALS[(gdFixed in State) , BTable[ACol,ARow] ];
　　DrawGrid1.Canvas.FillRect(Rect);
end;

//●DrawGrid1SelectCellを書く
procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;var CanSelect: Boolean);
begin
　　BTable[ACol-1,ARow] := Not BTable[ACol-1,ARow];
　　BTable[ACol ,ARow] := Not BTable[ACol ,ARow];
　　BTable[ACol+1,ARow] := Not BTable[ACol+1,ARow];
　　BTable[ACol,ARow-1] := Not BTable[ACol,ARow-1];
　　BTable[ACol,ARow+1] := Not BTable[ACol,ARow+1];
　　DrawGrid1.Invalidate;
　　CheckComplete();
end;

>>417
7行スレで盛り上がりそうな内容だなｗ

25ボタンの処理を全部書くことで初心者でも作れてしまうが、まじめにやれば7行に・・・・なるな多分

>>157
D6からそうなったのか？
パスなしだとWINDOWSフォルダにつくられるんじゃなかった？

未読位置を間違えてロングパスを放ってしまったorz

>>417
作れたは良いんだがクリアできない
なんかコツとかある？勿論クリアするね

TMEMOの任意の行を削除するにはどうしたらいいの？

>>434
TMemo.Lines.Delete

>>435

ありがとう。

ごめん、質問間違えた。
あるデータと一致する行を削除　だった。
listboxだったらitems.indexとかで簡単にできるけど

>>436
TMemo.Lines.IndexOf

BDS2007を使っているんですが、コード補完機能って、すごーく
時間がかかるものなのでしょうか？
HDアクセスしまくりで、VS2005のそれとは比較にならない程遅いのですが。
それとも何か設定等が悪いのでしょうか？

OSはWinXP, メモリは2Gです。よろしくお願い致します。

コンポを大量インスコしてるとか

普段使わないコンポはチェック外しておくとロード時間が劇的に短くなる。

普段使うコンポはチェック外さないでおくとロード時間がものすごく長い。

最新式マシンに変えるとロード時間が劇的に短くなる。

ちょっと前のマシンだとロード時間がはげしく長い。

BDS2006で、PenD(3.0GHz) メモリ2G WinXPマシンでつこーてるが、
コード補完は、特に遅くないな。
ちなみに、起動時は、起動オプションで、Delphiのプロファイルのみ読み込み、
あと余計なDB周りのコンポなどもはずしてる。

しかしメモリ2Gで、ハードディスクカリカリは感がられんな
BDS2007が遅いということあるのかね

D7En Pen3(966) MEM384MB
コード補完滅茶苦茶遅い。
数年前は大丈夫だったから多分原因はHDDだろうと勝手に思ってる。

>>445
そのくらいのスペックで、Del6Pro つかってだけど、問題なかったぞ？

BDSの世代になって、死ぬほど重くて、マシン買い換えたが

職場のD7ENTでこちょこちょ書いてますがひたすらコピペしまくりでクラスも作った事がありません。
どこかのサイトにオプジェクト志向学ぶならC#やJavaで書かれた出来の良いコードをDelphiに移植するのが面倒だけど理解が早くなる、と言う意味の事が書かれてました。
とは言え、自分にオプジェクト志向の良いコードなのかどうか判別が出来るくらいならわざわざ移植には及ばない訳でして、適当なサンプル選びで途方に暮れています。
簡単なもの、ちょい重たいかなレベルで適当そうなコードを紹介して頂けませんか？

スミマセン
ageてしまいました。

どこまでもコピペするつもりですか。

＊頭をたたくと「いてぇ」、わきの下をくすぐると「わははは」と笑うクラスをつくて

まじめな課題です。

自分用のコンポーネントを自作するのが近道だよ。

>>447
何度も同じコード書いてるならそこを共通化するクラスなりライブラリなりを作ってみたら。
重複部分で呼び出しているAPIなり関数なりをJediVCLでGrepかけてどうラップしてあるかを見てみればいいと思う。
あのライブラリ郡の設計が美しいかどうかは微妙なところだけど。

一番手っ取り早いのはC#をやること。
C#､Delphi両面の利点と欠点が見えてくると思う。
もちろんよりリッチなクラスライブラリの使い方も習得できるしね。

JCLのコンテナ使いにくすぎる。おすすめせん。

俺も、C#のライブラリを参考にするのがお勧め。
標準のでいい。
インターフェスだけならMSDNで見たい放題、クラス設計の参考になる。

中のぞきたかったら、Reflectorででも、使えばソース見られる。
Reflectorなら、Delphiでも見られるしなｗ


あとは、OOPなら、動的型言語のRubyもお勧め。
ほとんどが、オブジェクトなので、それを前提として、
どういった便利な使い方ができるか？というのがよくわかる。
ただ、ガーベジコレクション前提でオブジェクトを使い捨てまくるので、
そのままは使えないのだが、
勉強にはなる。

2005を今更再インスコしようとして、鬱になる。

＃さぽきれかあ

あー、今頃出来やがんのorz

ASMならジャンプテーブルを用意すれば簡単化と思いますがDelphiなら
以下の条件ならどんなコーディングをすればいいのでしょうか？
type
TSomeInts = 0..9;
IntSet1, IntSet2 = set of TSomeInts
の条件下で
if (0 in IntSet1) and (0 in IntSet2) then ...
if (0 in IntSet1) and (1 in IntSet2) then ...
...
if (9 in IntSet1) and (9 in IntSet2) then ...
のように、IntSet1且つIntSet2の組み合わせでcase文を使用したい場合です

すみません
問題を単純化するのにミスしました
type
Int1, Int2 = 0..9;
の条件下で
if (Int1 = 0) and (Int2 = 0) then ...
if (Int1 = 0) and (Int2 = 1) then ...
...
if (Int1 = 9) and (Int2 = 9) then ...
でお願いします

case を２重にして全部を列挙するか
0〜9と決まってるんなら単純に

case Int1*10+Int2 of
00:
01
...
とやったら？

>>457
ども
実際ご指摘のとおり
type
Suit = (Club, Diamond, Heart, Spade);
var
card1, card2: Suit;
cardbits: BYTE
とあれば
cardbits := ($01 shl Integer(card1) + ($10 shl Integer(card2));
case cardbits of
$00, $01, $02: ...
$10, $11, $03: ...
end
みたいなことで実現しているのですが、実際は条件がもっと複雑で
単純にcase文でネストする場合三重になります
この場合可視性が悪いですし
Suit = (Null, Club, Diamond, Heart, Spade, Joker);
みたいに列挙型を変更する場合も困難を極めます

var jumptable: array[0..9, 0..9, club..spade] of tjumpproc;
なジャンプテーブル用意したら。

>>459
どもｗ
ジャンプテーブルが使えたんですね・・・

何やってんだ俺orz

×可視性
○可読性

Delphi6のFileSeekは多重定義されてますが
function FileSeek(Handle, Offset, Origin: Integer): Integer; overload;
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64; overload;

OffsetにInt64をあたえても上が呼ばれてるみたいなんですが
どうなんでしょう

気のせいです

Threadを使用してバックグラウンドで処理を行い、進行状況をForm1で表示する処理を行っています

Form1のLabelに表示するたびにSynchronize関数を呼び出すとそのオーバーヘッド
が凄まじく処理時間が数倍に跳ね上がってしまいます
VCLを使用する場合にはSync関数を使用して呼び出すべきとの話ですが
全てが全てSyncを使用しなければならないのでしょうか？
例えばInvalidate関数等はどのタイミングで呼び出すべきなのでしょうか

スレッドセーフで無いコードはSynchronizeを使いVCLにスレッドセーフであることを保証してもらう必要がある。
初めからスレッドセーフなコードならばわざわざそんな事はしなくても良い。

いろいろやり方はあるけどLabelの更新頻度を下げるのが手っ取り早い。
データがどれだけ変更されようが画面の更新は1秒に一回未満にするならこんな感じ

lastupdateview := GetTickCount;
while true do
begin
　処理
　if GetTickCount - lastupdateview > 1000 then
　begin
　　lastupdateview := GetTickCount;
　　Synchronize;
　end;
end;

>>466
ども。
Invalidateの呼び出しはそれでやってます。

その方法では、例えば処理中のファイル名を表示しようとした場合
重い処理を行っている時は表示されているファイル名と処理している
ファイルが異なるような場面が発生しませんか？
かと言って”処理が長くなるようだったら強制的に表示する”って方法
を実現しようとするとタイマーを使用するなり手間がかかる気がするのですが・・・

ファイルを処理する最初にlabel更新をしようとしたが、
全部のファイルを処理すると処理に時間がかかったということですよね？


> 重い処理を行っている時は表示されているファイル名と処理している
> ファイルが異なるような場面が発生しませんか？

それは仕方がないかと。
>>466では、1秒になってるけど、100m秒くらいにすればわからなくないかな？


ところで、VCLのスレッドセーフ周りはよく知らないのだが、
Labelの書き換え（Caption?Text?）は、メインスレッドから弄ってない場合でも、
他のスレッドどから書き替えたらダメなのものかね。

>>468
ども。

>>466の例で言うならば、”処理”が重たい場合はLabelが書き換えられませんし
”処理”の前にLabelを書き換えようとした場合はLabelの書き換えがスキップ
された直後に重い処理が着ちゃうと対応できません

メインフォームにメッセージを投げて知らん振りしたほうが健全かな？とは
思いますが、Delphiっぽくなくなっちゃうんですよね

>>469
処理するスレッドが重くてメインスレッドに反映されにくい場合なら、
スレッドの優先度変えればいけないかな・・・（未確認だが）

> メインフォームにメッセージを投げて知らん振りしたほうが健全かな？とは

いや、それもありかと思います。Delphiスレでもよく聞く話です。
VCL Formだとメッセージとりやすいですしね。

ただ、スレッドが重くてうんぬんの場合、この方法でも一緒かな？という気が

Invalidate なら、ラベルの親ハンドルと、Rectをメインスレッドから用意しておいて
IntersectRectをスレッド側で発行すればいいでしょ。

×IntersectRect
○InvalidateRect

にゃあ

if i < 0 then i := 0;
といったコードがあるとします
i := Max(0, i);
と書いたほうがスマートな気がしますし
i := Max(0, Min(i, count-1));
と書くと簡単に範囲を限定できます

しかし、冗長に思えるif分の繰り返しのほうがいいコードが生成されます
この場合どちらを使用すべきなんでしょうか・・・

> しかし、冗長に思えるif分の繰り返しのほうがいいコードが生成されます

マシンスペックが高い今、そんなことはいまどき考える必要はない
わかりやすい方にしる

Abs（）なら組み込み関数で、マクロ的に展開されるんだけど
Maxはmathユニットの実関数だから仕方ない。

どうしてもというならアセンブラ使え

procedure TForm1.Button2Click(Sender: TObject);
　function LimitZero(d:Integer):Integer;
　asm
　 CDQ ;//eaxが負数ならedx=-1
　 not edx;
　 and eax,edx ;//
　end;
var i:Integer;
begin
　 AllocConsole;
　 for i:=-10 to 10 do begin
　　 WriteLn( LimitZero(i));
　 end;
end;

くだらん。
どうしても転化したければ、inline使え

TImage に 上から半透明のセロファンがかかってるような
フィルタをかけたかったらどうすりゃいいですかね？

俺が思いつくのは同じ大きさのBitmapを用意して
それを一色で塗りつぶした上で半透明化とかなんですけど
これってすんげえ無駄にメモリ食いますよね？

もっといい方法ってあります？

>>478
DIBにして、ScanLineでBITMAPのデータを直でいじくる

>>479
うわ、検索してみたけど難しそうだこれは
1時間ほど挑戦してムリポだったら>>478の方法使うことにします

そんなに難しく考えるなよ

srcが元の色
colorがセロファンの色
destが書きこむ色
αが半透明のアルファの度合いだとしたら、

dest = color * α + src * (1 - α)
これをrgb各それぞれで計算してやるだけだぞ

こういうのは「αブレンド 計算式」ででてくればすぐにでてくるよ

符号無し64bit、いわゆるulonglongを使用したいのですが何か良い方法
は無いのでしょうか？

符号無し64bitで何がやりたいの？　加減算の結果は同じだよ
掛け算の場合も
(Amsb + A63)*(Bmsb + B63) = Amsb*Bmsb + Amsb*B63 + Bmsb*A63 + A63*B63

で、Amsb が符号付きだろうが符号無しだろうが、下位64bitの結果には影響しない。

>>483
ulonglongを使用している構造体があったんでどう実装しようかと・・・
現状では下位32bitしか使用していないのでDWORDでも問題無いとは
思うのですが、手を抜いて将来トラブルと嫌だなぁ・・・と思った次第です

単にInt64にしたらいいんじゃないの？　除算や右シフトをやらない限り問題ない

ゴメン 算術右シフトってのがソモソモ無かった。
だから　 SHR 演算は　符号無し右シフトと等価だった

UInt64使えばいいだろ。

>>481
ありがとうございます
何をすればアルファブレンドできるかは理解できたんだけども

見つかったページがそれをシフト演算で行ってて
それの意味がわかんなくて困ってます

ページを貼らせてもらうと
http://www.sm.rim.or.jp/~shishido/delmono.html
> r:=cl and $ff; // RGB成分に分解
> g:=cl and $ff00 shr 8;
> b:=cl and $ff0000 shr 16;
必要な色成分以外を $ff なんちゃらでマスクして消しちゃってるんでしょうが
$の記号が何をするのかわからないのがひとつめ

> cl:=Round(r*0.3+g*0.59+b*0.11); // 明るさを計算
cl って RGB値じゃなかったでしたっけ？ なんで明るさだけを入力できるかさっぱりなのが2つめ

> pp^:=cl+cl shl 8+cl shl 16; // (j,i)に明るさを書き戻す
さっきRGB値を明るさに変えたのになんでこんな処理ができるのか意味不明なのが3つめ

とわからないことだらけです。助けて

>488
$は16進数のプレフィクス。C/C++の0xに相当。
明るさは人間の目のRGBに対する感度の違いを考慮して計算している。昔の白黒テレビで
カラー画像を見ているのと同じ。
その明るさを持つグレーの値を計算している。

>>488
下の二つは輝度を計算するときの公式みたいなものでアルファブレンドとは全然関係ないよ

ヤターできたよー！
もっともほんとにやりたい事は
フィルタの範囲指定したり戻したりなんで
これからもうひと頑張りいるけど、あとはなんとかなるでしょ。

ところでRGB値ってbgrの順で保存されてるんだね。変なの
>>489-490
�dです

>>491
BGRの順番で格納されているのはTColor

実際には速度の面からPixelでは無くScanLineでBMPに直接アクセスする
ことになるが、その場合の格納方法はまた違う

バイト単位でアクセスしたら32bit色の場合、bgrだわな

>>493
32bit DWORDだとrgbだな

>>478はメモリの格納順では無くて上位ビット->下位ビットで話してるからな

>>494
何をわけの分からないこと言ってるんだ
同じことだろ

サーセンｗ

こんにちは。
WriteProcessMemoryのAPIを使って値を書き込んだのですが、
おもう値が書き込まれません。以下がコードです。

GetMem(buf, 1);
buf^ := Chr($3D);
WriteProcessMemory(WindowHandle, ptr(Address), buf, NumberOfBytes, Write);

これを行うと、値が35901というのが書き込まれてしまいます。６１という値を書き込みたいのですが、どのようにすればよろしいのでしょうか？

>>497
35901 = $8C3D

正常に動いてるじゃないか

>>498

いえ、普通に$3D（61）という値を書き込みたかったんですが、その場合はどうすればよろしいでしょうか？

>>499
そりゃ1Byteしか書き込んでいないから。

>>500
NumberOfBytes

を2という値に設定はしたのですが、これでは設定不足でしょうか？

何で1バイトしか書き込んでいないのに読み込むときは2バイトになってるんだよ

>>502
すいません、私のレベルが低くていまいちよくわかりません・・・。

WriteProcessMemory(WindowHandle, ptr(Address), buf, Sizeof(buf), Write);

上のようにすればいいという事でしょうか？
読み込む時というのがわかりません・・・。

>>503
>値が35901というのが書き込まれてしまいます。
これが確認できたってことはその書き込んだアドレスから読み込んだんだろ？
その時35901だったってことは、少なくとも2bytes読み込んでいるということ。

>>504
いえ書き込んだアドレスから読んだんではなくて、
表示されている値が変化したので確認できたという事です。

えとつまりは61という値にはできないという事でしょうか？

>表示されている値が変化したので確認できたという事です。

意味不明なんだよ、質問が。なにをどうしたらなんの表示が変化したの？

WriteProcessMemory() の第一引数が WindowHandle って時点でどうかしてる。

>>505
理解できてないから予期しない結果になるんだよ。
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpdebug/html/_win32_writeprocessmemory.asp

>>506
>>507

すいません、書き忘れていました。

OpenProcessでもってきたハンドルを第一引数に入れています。
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

質問をまとめると、
var
buf: PChar;
WindowHandle: Integer;
Write: Cardinal;

WindowHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
GetMem(buf, 1);
buf^ := Chr($3D);
WriteProcessMemory(WindowHandle, ptr(Address), buf, Sizeof(buf), Write);

で対象のプロセスの31という値を61に書き換えようとしたところ、35901という値に誤って（？）表示されてしまった。
というわけです。わかりにくくてすいません・・・。
たぶんbufの値に問題があると思いますが・・・。

ヒント：bufのサイズをコンパイラが知れるわけがない

初心者向けだからもう少しいえば
動的に確保されたバッファーのサイズをコンパイラが知ってるはずない

>>509
>>510

bufのサイズを指定すればよろしいのでしょうか？
Sizeof(buf)
で行っている作業でサイズは取得できてると思うのですが、これとはまた別の話でしょうか？

var buf:PChar　つまりポインタなのだから、
Sizeof(buf) 　は、ポインタのサイズを取得してるので、作業領域のサイズを得ているわけじゃない

１、WindowHandleは適切な名前ではない。　hProces　等にする事
２、Writeも適切な名前でない。WriteSize　とか cbWriteとか
３、Sizeof(buf)はポインタサイズで現在は４を返してる筈。

よって、
var
buf: string;
hProces : THandle;
WriteSize:DWORD;

WindowHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
SetLength(buf,1);
buf[1] := Chr($3D);
WriteProcessMemory(WindowHandle, ptr(Address), PChar(buf), length(buf), Write);

ただし、35901が表示されたという事は、ホントは書きたい値は１バイトではなく２バイトか４バイト
の可能性が大。

>>495
TColorと32bitRGBじゃRGBの順序が逆だよ？
そのまんまキャストは不可

ごっちゃにしてない？

?
メモリ上の並びとしては R,G,B で、それを32bitの変数に読むと
エンディアンの関係で [xx ,RR , GG , BB] となるだけで、同じだろ？

>>512
>>513

こんにちは。
ご教授感謝致します。以下が修正コードです。
var
buf: string;
hProces : THandle;
WriteSize:DWORD;

hProces := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
SetLength(buf,1);
buf[1] := Chr($29A);
WriteProcessMemory(hProces, ptr(Address), PChar(buf), length(buf), WriteSize);
CloseHandle(hProces);

これで望む結果を出すことができました。ありがとうございます。
SetLength はメモリを再確保してくれる関数らしいですね、てっきりSizeOfで領域まで確保してくれているとばかり思っていました。
このような初心者に手を差し伸べてくださり本当にありがとうございます。
またこれでひとつ勉強になりました。それではｍ(＿　＿)ｍ

Delphiヘルプより
> TColor を Graphics ユニットに定義された定数で指定せずに，4 バイトの 16 進数で指定した場合，
> 下位の 3 バイトはそれぞれ青，緑，赤の RGB カラーの輝度を表します。
> $00FF0000 という値は最高の輝度，つまり純粋の青を示し，$0000FF00 は純粋の緑を示し，
> $000000FF は純粋の赤を示します。$00000000 は黒，$00FFFFFF は白です。

>>514
これ以上に何か意見があるなら聞こうか？（笑）

>>517
痛いヤツだな
>>493=>>495=>>517なのか？

DIB32はメモリ上はBB GG RR 00って順番で並んでいる
コレをDWORDでアクセスすると$00RRGGBBになるだろ？
TColorの$00BBGGRRとは逆になるんだよ

初心者スレで無知を晒すのは恥じゃ無いが、学ぶ能力が無いのは恥るべき

BSWAPして8だけRORして…

>>518
なんか必死だけどちゃんと仕様見てきて言えよ

>TColorの$00BBGGRRとは逆になるんだよ

？？？？

>>513

昨日メモリについて質問した者です。
気になる事がありましたので、お聞き致します。
仮に

SetLength(buf,1);
buf[1] := Chr($29A);
WriteProcessMemory(hProces, ptr(Address), PChar(buf), length(buf), WriteSize);
CloseHandle(hProces);

をbuf[1] := Chr($29A);としたい場合は、
function StrToByte(const s: string): byte;
var
i, n : integer;
begin
result := 0;

n := 1;
i := Length(s);
while (i > 0) and (n <= 128) do begin
if s[i] = '1' then
Inc(result, n);

n := n *2;
Dec(i);
end;
end;

を使ってbuf[1] := Chr(StrToByte（'$29A'）);を使って同様の結果がでないのはなぜでしょうか？

質問間違えました、FF(250）以上の値を書くときは、
SetLength(buf,1);
buf[1] := Chr($29A);
WriteProcessMemory(hProces, ptr(Address), PChar(buf), 3, WriteSize);
CloseHandle(hProces);

こう書いたのですが、うまくいきませんでした。上の質問意味不明ですねOrz

ええと、255=$FF 以上は１バイトで表現出来ません。
２バイトを書きたいなら $29A なら $02 と $9Aに分けて

SetLength(buf,2);
buf[1] := Chr($9A);
buf[2] := Chr($02);
WriteProcessMemory(hProces, ptr(Address), PChar(buf), length(buf), WriteSize);

または、
var
　SendInt:WORD;

として
SendInt := $029A

WriteProcessMemory(hProces, ptr(Address), @SendInt , SizeOf(SendInt), WriteSize);

色んな理解が足りない。

どうして PCharではなくて string を使ってるかというと、
PCharだとメモリ確保した後、開放しなければいけないけど
stringなら自動開放されるからtry〜finally を使わなくてもいいから便利だから。

PCharやstringを使うのは、可変サイズに対応する為。
3バイトでも4バイトでも同じコードで対応出来るからね。

でも固定サイズなら、ポインタで処理する必要はない。
渡す時にポインタを渡せばいい。
byte,WORD,DWORDのそれぞれの引数用の関数３つを作る方がスマートだよ

>>524
>>525

ご回答ありがとうございます。
必要な事はできたのですが、純粋に疑問になったので思い切って質問してみた所存です。
二つに分けてやるのは知りませんでした。

Stringは自動開放されるのを知っていましたが、Pcharも自動で開放されるかと思ってました（汗

私はbyte,WORD,DWORDとかの三つの関数作るなんて思わないでがつがつ書いていましたOrz
あとこれは余談ですが、GetMEMとSetLengthとは同じなんですかね？
私がGETMEMで確保してましたが、回答してくださった方はSetLengthでやっていました。
これはアセンブラのCMPとTESTみたいな感じで好みによってでしょうか？
別にこれには答えてくださらなくても構いません。

回答者のお二人ありがとうございました、目からウロコです＞＜

>>526
ヘルプを読めばGetMemとSetLengthの違いがわかります

>>527
ほんとだ・・・いつもメモリ扱う時はPchar使ってたから、意識しないで使ってたけど、
違いあったんですね・・・。
どうもでした。

Fizz-Buzz 問題：
ttp://www.aoky.net/articles/jeff_atwood/why_cant_programmers_program.htm
　1から100までの数をプリントするプログラムを書け。
　ただし3の倍数のときは数の代わりに｢Fizz｣と、5の倍数のときは｢Buzz｣とプリントし、
　3と5両方の倍数の場合には｢FizzBuzz｣とプリントすること。

ヒント
　GUIアプリでも AllocConsole; を入れておけばコンソールを出して write/wrilteln を使う事が出来ます
　TMemoを貼ってLines.Add をプリント代わりとしてもいいです。

>>517-521
結局どっちなんだよｗ

bitmap.PixelFormat := pf32bit;
bitmap.Canvas.Pixels[0,0] := TColor($0000FF);
PDWORD(bitmap.ScanLine[1])^ := DWORD(TColor($0000FF));
PDWORD(bitmap.ScanLine[2])^ := DWORD($0000FF);
で試してみた
結果
赤
青
青

嘘つきばっかだなｗ

もう放置したら？

>DWORD(TColor($0000FF));
>DWORD($0000FF);

意味ねぇーー

>>533
「意味が無い」ことを説明してるんでは？

TColorが上位、下位逆なのを説明されても理解できていない＆認めようと
しないのが多数居たのが驚き。
いや、それだけ初心者向けの言語ってことなんだろうな。

多数じゃなくて、一人だけだろｗ

DLLを１つだけ LoadLibrary で読んでGetProcAddressして動かしてるプログラムがあります
このDLLをリソースには入れれたのですが実行時にDLLをHDDに書き込まずに動かす方法があれば教えてください
環境は、WinXP,Delphi6です。。。ファイルをEXE１つだけにしたいだけなのですがお願いします

わざわざファイルに書き込まなくてもそのままでいけました。。。

GPL逃れですか？

ほしゅ

>>534
間違っています。
以上。
↓次どうぞ

ビルドした日付を埋め込むにはどうしたらいいですか？
BCBの__DATE__みたいな奴です。

できないので手動で埋め込んでください。

$Iで埋め込んだらどうかな。
実験コード
procedure TForm1.FormCreate(Sender: TObject);
begin
with TStringList.Create do try
Add(''''+formatDateTime('yyyy/mm/dd',now)+'''');
SaveToFile('Test.dat');
finally free end;
Caption:={$I test.dat};
end;

名前付きパイプで、日付データを返すようなのを作って走らせて
{$I \\.\pipe\DatePipe } とか

名前付きパイプは上手くゆかなかった。
APIで読めば読めるけど、LoadFromFileでは読めない。
たぶんLoadFromFileではサイズを先に読んでから処理するからなんだろう。

だから $Iでも読めないかも

フォームに並べた10個のラベル
（名前が label1,label2..label10 とかだとして）
それぞれのラベルのCaptionにループを使ってアクセスするにはどうしたらいいんでしょう。

(FindComponent('Label'+IntToStr(LabelNum))as TLabel).Caption

助かりました、ありがとうございました！

>>543
それを埋め込んだデルファイを起動するアプリを作っていいかんじになりました、どうも。

TDrawGridのColやRowプロパティが変更する場合の、
イベントハンドラを教えてくださいorz

OnClickでできますた。

Delphianが行方不明なのでこちらに質問させてください；；
Stringでなく数値で操作できるGridコンポ探しています。
どなたかご存じないですか？

>数値で操作できる

いみふめ

数値と文字列は相互可変なんだから TStringGrid でなにが不足なんだ？

セルの値を直接数値で入れたり出したりしたいんだろう。素人がしたがりたそうなことだ。

'0'..'9'のみ入れさせたいなら
StringGridKeyPressイベントで

if not (Key in ['0'..'9']) then Key := #0;
とかやって入力を潰してしまえばいい。

ペーストも含めて対策したいならSetEditTextでゴミを取り除いてCells[]にセットしてやればいい。
他にもなんか対策すべきだったと思うが忘れた。

まあそこらへんのノウハウ込みのコンポを探してるんだろうが。

はい、日曜ど素人でございます(T_T)
StringGridKeyPressとSetEditTextで新しいコンポを作れそうです。
ありがとうございました。

TFileStreamでファイルをオープンして、
別のストリーム、たとえば、TContentStreamにファイルの中身を設定しようとすると、
どういった記述となりますか？

Assignを使う。どちらもTStream派生だから。

LoadFromStream はないの？

グーグルマップに自分のブックマーク（っての？）残せるやん？

ローカルの地図画像であんな感じのアプリを、db連動で作ってみたいんだけど、何を参考にすればいい？　グラフィック関係かと思って、ゲーム関係見たけど、あまり参考になりそうにない。

超初心者ですまん。

juni := member_suu + 1;

for t := 0 to member_suu - 1 do
begin
for k := 0 to member_suu - 1 do
begin
if StrToInt(ListBox1.Items[t]) >= StrToInt(ListBox1.Items[k]) then
juni := juni - 1;
end;
ListBox2.Items[t] := IntToStr(juni);
juni := member_suu + 1;
end;

上の関数で整数の特典に対して順位をつけたのだが、同点がおおくて１位等が重複してしまうので、
重複しないようにしたい。１位と２位の差はあまりこだわっていなく、名前順でいいしランダム（条件なし）でもいい。
アドバイスください。

・名前順なら得点と名前をソートのキーとする
・ランダムなら、得点とランダム値をソートのキーとする

Jane Doe Styleのスレッド本文の表示には何のコンポーネントを使っているのでしょうか？

すみません、他で聞きます。

Form に Formを貼り付けると、MainMenuが表示されませんねorz

表示させる方法はあるのでしょうか？
無ければ、Menuライクなコンポーネント？

何がやりたいの？

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet***\Enum以下の
レジストリを操作（キー・値の変更・削除）したいんですが
SYSTEMユーザーしか操作権限がない状態です

これらを操作する方法などありますか？

いやそれ操作したら駄目だろ。

やっぱりﾀﾌﾞｰなのね(´･ω･`)ｻｰｾﾝでした

なにしたいのよ？

テスト環境で設定したソフトの登録情報を
本番環境とごっそり置き換える作業をプログラム化したいんです。

今、それをするのに手作業（設定時なのでAdministrato)で
レジストリのアクセス権つけて不必要な登録を消したりとかしてます。

それにしてもHKLM\System以下を書き換えるなんてのはありえないと思うが？

Enum\LEGACY*のいくつかにマシン名やコンピュータの設定が
刻まれているので消しているということらしいんですが
（この辺がテスト環境と本番環境で変わってくるので変更したい）

実際には、その環境の情報を見てはいないんですが
消す必要がないのかな・・・

画像ファイル（bmp、jpg）をテキストデータとして扱うことはできませんか。
MIMEとか、ishのような感じで、当然、可逆変換で。

そのMIMEとかいｓｈで変換すりゃあいいやん。意味不明。

ん〜と、簡易データベースみたいなのをつくろうとしてて、テキストフィールドに画像を「テキストデータとして格納」したいってことなんだけど、意味不明？

やっぱり意味不明かも。
まともなRDBMSならBLOB使うべきだし、
BLOB使えないなら別の名前を与えてファイルのまま保存、使うときは逆参照汁。

まあどうしてもやりたいなら止めない。

ttp://www.google.com/codesearch?q=BASE64+lang%3Apas

この辺りでも参考にしてくれ。

あ、俺は逆のパターンを知りたい。
文字列フィールドに入りきれない文字列を画像に変換してBLOBに保存する、って無理？

>>578
使用してるDBが分からないけど、Delphiからということを考慮するとFirebirdか？

もしそうなら、難しいこと考えず、サブタイプが１（テキスト）のBLOG作ればいいんじゃないのかな？

ほかのDBだと、
PostgreSQLはTEXT型があるから、意識する必要なし
SQL Serverも、2005からVARCHAR(MAX)があるから、意識する必要なし
MYSQLもTEXT型があるみたいだ
ORCLE, DB2はシラネ

>>579

ローカルで火鳥かMSQLか何かの組み込みエンジン（まぁ、これは何でもよい。）、相手先はOracle。

Oracleにはあらかじめ定義された文字・数値項目と画像の入力ができる。
しかし、設計が追いついていないため、利用者で必要な情報を入力する文字項目が足りない。
画像なら何十枚でも追加可能。

そこで、ローカル情報を画像に変換してオラクル側に画像として保存すれば、当面は事足りるってこと。
もちろん取り出したら、ローカル側では文字情報に戻す。

その時の変換作業用っていうか、状態確認用みたいなので、ローカルでも同じものを保存しておきたい。

と言うことなんだけど。

EditでIMEがOn/Offで背景色を変えたいんだけど
そういったサンプルコードないですか？

無いな。だがヒントだけ教えてやろう。
IMEの状態が変わるときのメッセージ(WM_IME_NOTIFY)を受けたら
IMEの状態を取得して、ONの時はColorプロパティを適当な色に変えれば良いんだ。

処理が大まかに2つあってタイマーを使って繰り返したい（Intervalはどちらも同じで問題ない）場合
タイマーを一つだけ使うのと、処理それぞれでタイマーを作るのでどっちが一般的なんでしょうか？
また、どっちが軽くなるんでしょうか？
よろしくお願いします。

Intervalが同じならとりあえず一つで十分だろう。
タイマー二つまわすよりも一つの方が理屈としては軽い。
ただタイマーごときで重くなるようなPCは今時存在しない。

>>584
ありがとうございます！
助かりました

あの・・単純な質問なのですが、TChartコンポーネントを使って
凡例を表示させると、凡例がグラフの裏側へと隠れてしまいます。
（枠の端っこのちょっとだけ見えている状態です）

これをグラフよりも手前に表示させる方法を教えてください・・

ソフト公開所
http://namidame.2ch.net/test/read.cgi/mitemite/1220869722/
こういうスレつくってみた。

アップローダもなしに何をどう公開しろと･･･

板違いで失礼します。
Linux環境にてDelphi互換のLazarusをインストールして使いたいと思い
freePascal本体、Freepascalのソース、Lazarus本体をインストール致しました。
Lazarusは立ち上がり、ソース入力後
いざ実行というときに、コンパイラに弾かれてしまいます。

以下エラーメッセージです。
/usr/bin/ld: cannot find -lX11
project1.lpr(17,1) Error: Error while linking
project1.lpr(17,1) Fatal: There were 1 errors compiling module, stopping

リンク関係の設定を何かはじめに行なわないといけないのでしょうか?
もし、ご存じの方いらっしゃいましたらご教授ください。
よろしくおねがいします。

>>589
とりあえずこういうスレがあるからそちらで聞くとよいと思われ｡

【Delphi互換!?】FreePascal【GPL】
http://pc11.2ch.net/test/read.cgi/tech/1137051510/l50

>>590
ありがとうございました。
教えていただいた、スレを拝見致しまして
無事解決することができました！

ウィンドウっとか、オブジェクトってフォームデザイナで作っておかないとだめなんでしょうか？
ユーザーの処理にあわせて、新しいフォームを作り、そこに画像を表示させたいんです。
元々用意しとくんじゃなくて、いくらでも増やせていけるように。

たとえばフォトショップでいくらでも画像ひらいて、どんどんウィンドウ増えるじゃないですか。
あーいう感じです。

インスタンスをどんどん作ればいいじゃね？

TForm1=class(TForm)
end；

forms:　array　of　TForm1

SetLenght( forms, 10 );
for　i　:=　0　to　9　do
　　forms[i]　:=　TForm1.Create( Self );

って感じで。

これだったら、デザイナで1つ作って、実行時は10個フォームが出きるが。

ありがとうございます。
このフォームの上につくるオブジェクトもこれでＯＫですかね。
いわゆる動的生成をやるってことですよね？

そうです。

フォーム上のObjectが同じなら最初にデザイナで作っておく。
フォームごとに変わるなら、それぞれ、動的作成するんだけど、
動的作成しなければいけないObjectが多数ある場合は、
デザイナで作った方が簡単だと思う。

ありがとうございました！

>>588
アップローダー作ったら公開してくれるの？

>>597
半年ROMれ

---------半年後----------

最終回か…。

あ

>>529　３の倍数はアホになれ

十年ほど初心者やってるんですが、先ほどFastCodeを知り試してみました
D5にFastCode.Libraries-0.6.4入れたらStrUtils.pasなど新しいものが入っていないので断念して
某所さんの古い記事にあった「詰め合わせセット RTL Replacement Pkg v0.3」を入れました
>Delphi 4 以降に対応しています。私はまだ試していないのですが、Delphi 7 以前では特にお勧めだと思います。
とあったのですがやはりエラーの嵐でサンプルすらコンパイル出来ませんでした

どなたかD5で使っておられる方は居ませんでしょうか？
D2007も持ってはいるんですが起動時間や手軽さからD5は手放せないのです

すなおにD2007

>>603
Ｄ５持ってたらなんなの？

>>604
D2007ではFastCodeの効果ありますでしょうか？

>>605
いえ、FastCodeの話です

D2007はFastCodeもFastMoveもFastMMも採用済みじゃなかったっけ？

FastCodeのAnsiStringReplaceは「Ansi」って付いてるけど
ﾏﾙﾁﾊﾞｲﾄ非対応なんで気を付けてね

FastMMは使ってるから何か分かるが、
FastCodeとかFastMoveって何？

グーグレ

>>610
標準のシステムの関数を速いのにおきかえたものただし>>609の問題があったはず

バグ恐いからFastMMしか使ってないな

ちょうどCompareMemがネックになってたんでちょっと使ってみるかな。

>CompareMem
kwsk

TMemoryStreamの先頭３バイト削除したりできますか？

だめです
先頭3バイト以降を別のStreamにコピーするとか
MemoryをPCharにキャストして[3]とか

そもそもメモリを削除ってなによ

cのscanf相当の関数教えて

>>619
その前にそのscanfとやらが、Delphiでどの関数にあたるのかを説明してくれ。

>>619
ないはず

>>619 stdioはいまさらイランと仮定して、いっかい文字列に入れてから
strtoint strtofloat strtocurr他で一個づつ変換

TMemoryStreamでSizeを大きくしたら、大きくなった部分ＮＵＬL埋めされるんでしたっけ？

>>623
試すのに1分もかからないと思うが、どうよ？

Delphi2009 を使っています。

VCLコンポーネントから派生したコンポーネントを
作るにはどうすればいいでしょうか？

ウィザード一発じゃねぇの？ファイル→新規作成→その他あたり。

>>626
ありがとうございます。
派生したコンポーネントを使いたいのですが
どうすればいいでしょうか？

フォームに派生クラスのコントロールをどうやって置いたら
よいのかわからなくて、適当なコントロールを置いた後に
dfm ファイルを直接書き換えてみたのですが、見つからない
と言われた挙げ句、関連している pasファイルを破壊されて
しまいました。

コンポーネント開発は開発者ドキュメントと適当な解説書買って読まないと辛いよ。
OOPの知識なんかも結構必要になるし。

>>628
ありがとうございます。

ただ単純に TRadioButton の CreateParams を
オーバライドしたいだけなのです。

以下のようなユニットを通常の手順で作ってあとはIDEからコンポーネント|インストールで登録。
2009は持ってないから変わってるかもしれないが。

unit cMyRadioButtonEx;

uses // todo:必要なユニットを列挙

type
    TRadioButtonEx = class(TRadioButton) // or TCustomRadioButton;
        ...
    end;
   
procedure Register;

implementation

procedure Register;
begin
    RegisterComponents('Samples', [TRadioButtonEx]);
end;

// todo: TRadioButtonExの実装

end.

>>630
メニューには、コンポーネント｜インポートと
コンポーネント｜新規VCLコンポーネントの
２種類しかなく、インポートはタイプライブラリと
ActiveXコントロール、.NETアセンブリの取り込み
の３種類しかありませんでした。

新規VCLコンポーネントで派生クラスを作れるような
雰囲気でしたが、実際に操作してみると内部エラー
らしきエラーが出て処理が進まないのです。

Delphi2009はバグだらけという事で諦めるしかないの
でしょうか？

いまさらデルピィやる意味あんのか？
gui作るならpythonで十分だろ

>>632
６万もしたのに、この有様です。
泣けてきます。

一人で舞い上がってないで操作手順とエラーメッセージくらい書けばいいのに。
CreateParamで具体的に何指定したいかとかさ。

>>634
ありがとうございます。

BS_PUSHLIKEスタイルを付けたいだけなのです。

モジュール 'coreide120.bpl'のアドレス 206B39D7で
アドレス 00000018 に対する読み込み違反がおきました。

というエラーです。

ウィザード使わなくたって手で書けばいいじゃん
できたユニットをパッケージにつっこんで
右のプロジェクトマネージャからパッケージを右クリック→
インストールを選択で終わりだろ

>>637
それを試してみたら 636 に書いた例外が
発生して止まってしまいました。

フォームの dfm を手で編集してみると、
その フォームに関係する Pascalのソースファイルが
破壊されます。

unit RadioButton1;

interface

uses
　SysUtils, Classes, Controls, StdCtrls;

type
　TRadioButtonEx = class(TRadioButton)
　end;

procedure Register;

implementation

procedure Register;
begin
　RegisterComponents('Samples', [TRadioButtonEx]);
end;

end.

↑にCreateParamsを実装、パッケージに入れて>>637

>>638
暇だから作ってみた
ttp://swfup.info/view.php/11076.swf
サイズ情報が間違ってるっぽいので"保存用リンク"を
クリックして見てくれ

update 3/4は適用した？

>>643
エラーが出るとか言っているから入れてなさそうだよな

>>642
そのまま見れるように直してみた。URLはそのまま

親切ですね

>>638
ここからUpdate3を落としてインスコしてね
ttp://cc.embarcadero.com/item/26921
日本語Readme ttp://edn.embarcadero.com/article/39592/

>>646 暇は世界を救う

楽しい。

type
　TRecHoge = record
　　X: Integer;
　　Answer: string;
　end;

function Hoge(value: Integer): TRecHoge;
var
　returnValue: TRecHoge;
begin
　if value = 1 then begin
　　returnValue.Answer := '戻り値をセットしました。';
　　Result := returnValue;
　end;
end;

procedure HogeCall;
var
　buf: TRecHoge;
begin
　buf := Hoge(0);
　ShowMessage(buf.Answer);
　buf := Hoge(1);
　ShowMessage(buf.Answer);
　buf := Hoge(0);
　ShowMessage(buf.Answer);
end;

Result または関数名に値を代入せずに関数の実行が終了した場合，関数の戻り値は未定義になります。

>>649
その通りなんだけど、レコード型を戻り値にした場合はコンパイラが警告出さないんだよね。

value=0のときの記述をするかローカル変数は前もってクリアしておく
このクセを付ければどの言語に移ってもおｋ

日本語がおかしいやｗ
ローカル変数を前もってクリアしておくというクセを付けとけばいいよと

>>652
この場合、ローカル変数をクリアするのは解決にならないと思われ

Windowsのフォルダ選択ダイアログって開けましたっけ？

＞ SGet: String;
＞ if WinExec( PChar( SGet), SW_SHOW) < 31 then

＞[DCC エラー] main.pas(1314): E2010 'Char' と 'AnsiChar' には互換性がありません

D2009だと何でエラーになるのですか？

>>664
SelectDirectory？

>>655
http://edn.embarcadero.com/jp/print/38791

って、ここは質問スレじゃない気がする

ここは未来の質問に答えるスレですか？

>>656
SelectDirectoryってWin標準じゃないですよね？

Delphiの関数でしょ。

>>658
マルチ氏ね
http://pc12.2ch.net/test/read.cgi/tech/1217575832/662-664

>>648
しばらく触ってなかったが、俺のDel７では
　TRecHoge = record
ですらエラーで受け付けん・・・？何が不正な文字列だ？

全角スペースが混ざってるとかじゃないの

うわ、インデントの前のスペースだった・・・
こんなだったっけ？
コピペでそのまま使えた気がするけどな

全角スペースでインデントすると手っ取り早いからね。
＆ｎｂｓｐ；にすればコピペだけでちゃんと動く。

>>650
構造体にはフィールドの内容によってゴミのままの部分も出てくるから
全部代入するのを強制するのは無駄って話だね。

type // Win32APIでまれによくある構造体
    TMyRec = record
        flags: byte; // foo, bar, bazを使うかどうかを指定するビットフラグ;
        foo: Integer;
        bar: Char;
        baz: String;
    end;
    　

久しぶりに Delphi2009 使ってみたけど、
Update3/4 適用済でもダメだわこれ。

Delphi2.0使えば？

>>665
どこがどうだめなの？updateしようと思ってるんだけど

お勧めは Delphi８

>>668
Del7だろ常考

結局、どうダメなのかよ。generics周りですかね

F1キーを押したときの処理を書きたいのですが、
フォーム毎に書くと大変なので、
TApplicationにやらせたいと思っていますが、
できますか？

TAppじゃなくTMyForm/TFormEx=class(TForm)でやったら。
これに共通の処理足しまくるとめっちゃ快適になる。
で、使うときはTForm1 = class(TFormEx)とかに書き換えるだけ。

自分ならTAction継承した独自のアクションに
F1のショートカット設定してそっちに振るけどな。

なるほど、TFormExも検討してみまつ

自動焼人 ★　＝　自動保守 ◆KAWORUKOFI　＝　自動保守#K9K?_D[L

名言集　その１
『アパッチ砲はワシが作った』

http://jbbs.livedoor.jp/bbs/read.cgi/internet/134/1229674638/5062
自分の管理するしたらばで借りた掲示板にて

> 5062 ：自動保守 ◆AOIMAD.NZM [] ：2009/08/16(日) 00:46:29 ID:nQYgq9jg0
> そもそも、アパッチ砲っていうのは、私が指揮官になった時代に私の先輩たちが導入して
> 先輩たちが命名したもの、っていうかまぁ、そういう砲は今まで存在してないから
> 名前つけなくちゃいけないしｗ
>
> ってことで、使っているうちに広まった名前なので、それが正式名称になるんじゃないかと。
>
> http://www.paradisearmy.com/doujin/pasok_apache.htm（俺の先輩が命名）
> http://www.paradisearmy.com/doujin/pasok_hping.htm（俺が命名？）

※注　「アパッチ砲」の正式名称は「Apache Jmeter」で、もちろん自動焼人の先輩が作ったものではありません


----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください

動的配列どころかIntegerですら危険だよ。
threadvar以外のものは全部保護すべき。

Del5で作ったアプリをDel2007に移行してるんだけど、
ボタンを貼り付けても、今風の角が取れたボタンになるFormと、
昔ながらの角張ったボタンになってしまうFormに分かれてしまう。
ボタンのプロパティいじっても今風にならないんだが、なぜなんだ？

同じように貼ってみて
両方コピーしてメモ帳とかに張ってみたら異なるプロパティ判るんじゃないかな？

>>677
なるほど！
早速やってみます。

ALT+F12使えよ。

is演算子、as演算子は
C++でいうdynamic_castとほぼ同じような物ですか？

未だにD6使いのバカ野郎です。
次の環境を模索してます。

.Net ですか？ Win32ですか？

Delphi(Object Pascal)は生き残りますか？

D6から成長してない45歳、会社で唯一人のプログラマっす。

BCB++で両方やればいいじゃん

＞会社で唯一　人のプログラマ
他のヤツは人じゃないのか

ただひとりｗ

Delphiが生き残ってると言える状況かどうかは別にして
45歳ならDelphiより自分の職業プログラマ人生の方が先に終（ｒｙ

でも、プログラマただ一人ってよくないか？そういうところは開発メインじゃないだろうし。
いわゆる、近所のPCの便利屋さんみたいな立場。
すごい重宝がられているはずだが。

>>681
マジレスすると.NET(C#)だろ。

D6で事足りるならD6でいいんじゃない？
Win32で事足りるなら･･･

自営や零細相手に細々とやってるがまだまだD7でいけそう。
用途次第、客ありきなら相手次第やね。維持＞発展ならｗ

これだけ普及したWin32がそうそう無くなるわけないし、
Win32上でWin16がエミュレーションで動いているようにWin64上にもWin32のエミュレーションがあるから、
仮にWin64がメインストリームになったとしてもWin32で事足りる場面が多いと思う
現実的に考えるとWin64がメインになるのはまだまだ先のことだろうしWin32は安泰

D6からD2010にすれば、ﾄﾞﾄﾈﾄ、Win32/64、カバーになるんじゃね？
さらにDelがARMプロセッサも将来サポートするとか逝ってるし、って組み込み不要なんだろｗ
なら、ﾄﾞﾄﾈﾄ系なんか捨てといて、スクリプト系のウェブアプリ作れるようになった方がプラスかも。

そこまでDelに頼ってやる必要も時間もねーなｗ

その前に質問者はすでにDel厨ｗｗｗｗｗ

言語がひとつしかできないやつって終わってるね

Delphi程度なら片手間で習得できないとお話にならない

>>693
日本語しかまともに喋れない大半の日本人終わったな

日本語すらもまともに書けないねらー達はどうなる？

Del厨になる

メインフォームじゃないウィンドウで最小化ボタンを押すと、
タスクバーに入らずデスクトップ左下にアイコン化してしまう（ためタスクバーから復帰できない）のですが、
対処方法はありますか？

>>698
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200601/06010024.txt

�d>>699

しかし、ﾋﾞﾐｮにやりたいことと違う。。。

>>698
子窓を最小化したときにタスクバーに入れたいなら
ttp://www2.big.or.jp/~osamu/Delphi/Tips/edit.cgi?file=0232.txt&rev=1.3

アプリケーションごと仕舞いたいなら
ttp://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01178.html

delphi5の初心者です。コンボボックスで｢3｣を選択した際に、
グリットを可変させて、変数ABCを
1,1にA　1,2にB　1,3にCを
グリット内に書き出したいのですが、わかりません。
どなたか、お知恵を拝借したく思います。
突然の乱入すみません。よろしくお願いします。

procedure TForm1.ComboBox1Change(Sender: TObject);
var
x :integer ;
y :string ;
lp:integer;
z :string;

begin
z:='ABC';
x:=combobox1.ItemIndex ;
y:=combobox1.Items[x];

StringGrid1.RowCount:=StrToInt(y)+1;

// 項目部設定
StringGrid1.Cells[1,0] := '東京';
StringGrid1.Cells[2,0] := '大阪';
StringGrid1.Cells[3,0] := '沖縄';

for lp:=1 to strtoint(y) do begin
StringGrid1.Cells[0,lp] := inttostr(lp);

変数ABCなんて無いじゃん

Delphi6のプロジェクトをDelphi2010に移行してとりあえずコンパイルできるようにしようと思って
Char→AnsiChar string→AnsiStringで置換掛けてコンパイルしてみました。
ところが実行時にStrToIntでエラーが出ます。
処理するレコードは固定長レコードなのですがある項目が全角日本語だったり半角だったりするために
Ansiにしたことで変換対象のロケーションが以前と違っていることが判りました。
StrToIntの引数は固定長だしと直値で指定している箇所がたくさんあり、
全角半角を判定してとかはやりたくないのですがいい方法は無いでしょうか？

何気に2005以前のユーザーは年末までに買えばアップグレード料金でとか
いう戦略でアップグレードしてる奴多そうだな。

すいません、他スレで聞いてみるので質問を取り消します。

delphi5と6（フリー版）、TURBODELPHIを使っています。
次のようなプログラムを考えています。

プログラムを起動
↓
ファイル（群）を選択
↓
選択したファイル（群）をプログラムに取り込み（一つのファイルにする）パスワードをかける。
↓
取り込み処理終わり


復元処理
↓
プログラムを実行、パスワードを入力
↓
一定回数パスワードを間違えたら、プログラムごとファイルを消去。

こういう事って可能ですか？
取り込み処理では圧縮をしてもしなくても構いませんが、最終的に一つのファイルになるのが必須です。

そりゃできるのは当たり前だけど、そういう動作はいかがなものかと思うが

第一自身を消去したところであらかじめコピーをされてたら何の意味もない

>>708、709

>>あらかじめコピーをされてたら何の意味もない
それについては次のステップの課題なんだけど、コピーをされたら内部で「パスワード」を変更するようにする。
つまり、永久に開く事が不可能となる、というのを考えている。

>>そういう動作はいかがなものかと思うが
これは、セキュリティ対策の一環としてアイデアが出たモノで、これで決定というわけではない。
ただ、試行して結果が好ましかったら本採用になる。
というわけで、いくつかある仕様の一つなので、今の段階では善し悪しが判定できない。


という事情があります。

>>710
コピーされたかどうかが分かるぐらいなら、ソフトの不法コピー問題なんて起こらないよ

>710
なんか根本的なところが間違ってる、とまではいわないまでも、考え違いをしているような気がする。
もういちどスタートラインに戻って考え直してみてはいかが？

>>710
それが可能かどうか判断が付かないレベルでは、作るのは到底無理だと思うよ

>>711
ファイルシステムから作れば可能ではあると思うよｗ

>>710
まず先に、OSのファイルコピーなどをフックするrootkitをインストールか動作させる必要があるなｗ

ああでも、あらかじめコピーしたら意味ないかｗ他のOSでブートしてコピーとか、ファイル共有越しにコピーとかいくらでも方法あるな

すべてのOSに常駐してコピーを監視するウィルスのようなソフトを作るとかｗ

６なんですが、本体が手に入ったとして、インストール番号とかは現在も取得できるのでしょうか？
以下のURLを見ると、インストール番号などがないと使用許諾コードを取得できないようなのですが。
http://edn.embarcadero.com/article/33580

電話すればいいんだっけ？

http://www.eurus.dti.ne.jp/~yoneyama/Word/art/w_art-33.gif
delphiで画像の一番上左から4番目のワードアートと似たような文字を表示したいのですが、
可能でしょうか？
win32apiのパスを使えばできそうだけど、分からないですorz

ok

>>720
Officeのワードアート機能を使うサンプルは見たことがあるけど
直接表示するのは知らないなあ。

これか？
ttp://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200904/09040002.txt

>>723
そんな感じです！文字を変形させるのに使う計算が理解できなくて苦しんでます。

http://www.geocities.jp/asumaroyuumaro/program/winapi/path/flattenpath.html
これを元にやってみてはいるんですが、うまくいかないorz

までも無料版のdelfaiってあるのですか？

誰かくだすれ建てないのかな
俺のホストじゃ無理だった

>>726 俺じゃないが
http://pc12.2ch.net/test/read.cgi/tech/1259667697/

デルフォイ　デルフォイ

TMemorystreamの基本的な使い方を教えて下さい。
・整数値を書き込む、読み出す
・文字列を書き込む、読み出す
・あるアドレスからあるサイズだけ読み出すってのがわかりません。

マルチ乙

>729
その前に派生元であるTStreamの使い方を調べるべきだ。

>730
またお前か。さっさと吊れ。

さっさと吊れ（ｷﾘｯ

だってｗ
くっさｗｗ

ｷﾓｲ

>>732
　　　　　　 _, ._ 　　んもー ／ NMO
　　　　　（ ・ω・）
　　　　　○=｛=｝〇,
　　　　 　|:::::::::＼, ', ´
　　　.ｗｗし ｗ`（.＠）ｗｗｗｗｗｗｗｗ

さっさと吊れ（ｷﾘｯ

だってｖ
くっさｖｖ

case文なんてelseifがあればいらねんじゃね

　　　　 /: : : : : __: :/: : ::/: : :／/: : :/l::|: : :i: :l: : :ヽ: : :丶: : 丶ヾ　　　　＿＿＿
　　 　 /;,, : : : //::/: : 7l,;:≠-::/: : / .l::|: : :l: :|;,,;!: : :!l: : :i: : : :|: : ::､　 ／　　　　 ヽ
　　　 /ヽヽ: ://: :!:,X~::|: /;,,;,/: :／　 ﾘ!: ::/ﾉ　 l｀ヽl !: : |: : : :l: :l: ﾘ /　そ　そ　お　＼
　　　/: : ヽヾ/: : l/::l |／|||llllヾ,､　　/ |: :/ , -==､　l＼:::|: : : :|i: |　/ 　 う　う　 前　　|
.　　 /: : : //ヾ ; :|!: ｲ､||ll|||||::||　　　 ﾉノ　 ｲ|||||||ヾ､ |: ::|!: : ｲ: ::|/　 　な　思　が
　　 /: : ://: : :ヽｿ::ヽl |{ i||ll"ﾝ　　　 ´　　　i| l|||l"l　｀|: /|: : /'!/l 　 　 ん　う
　∠: : : ~: : : : : : : :丶ゝ-―-　　　　　 , 　ｰ=z_ｿ　　 |/ ﾊﾒ;, :: ::|.　　　だ　ん
　　 i|::ﾊ: : : : : : : : : : : ､ﾍﾍﾍﾍ　　　　 ､　　ﾍﾍﾍﾍﾍ /: : : : : ＼,|.　　　ろ　な
　　 |!l　|: : : : : : : : :､: ::＼　　　　､-―-,　　　　　　/ : : :丶;,,;,:ミヽ　　 う　 ら
　　　　　丶: :ﾊ､lヽ: :ヽ: : ::＼__　　｀~　"　　　　　 /: : ﾄ; lヽ）　　　ゝ
　　　　　　 ﾚ　｀|　｀､l｀､＞=ﾆ´　　　　　　　 ,　　_´ : :}　｀　　　／
　　　　　　　　 ,,､r"^~´"''''"t-｀r､ _　　-､　´ヽノ　＼ﾉ　　　／　　　　お ・
　　　　　　　,;'~　　_r-- ､__　　　　　~f､_>'､_　　　　　　　　 |　　で　　前 ・
　　　　　　f~　　,;"　　　　　~"t___　　　　ﾐ､ ^'t　 　 　 　 　|　　は　　ん ・
　　　　　 ,"　　,~　　　　　　　　　ヾ~'-､__　ﾐ_ξ丶　　　　　|　　な　　中 ・
　　　　　;'　　,ｲ　.. 　　　　　　　　　ヽ_　　 ヾ､0ヽ丶　　　　l　　　　　　　　　/
　　　　 （　;":: |:　:: ..　　　　　　　　　 .｀,　　 ヾ　丶 !　　　　＼＿＿＿＿／
　　　　　;;;; :: 入:: :: :: 　 　　　l｀ｰ-､　　 ）l　　 ヾ　丶
　　　　　"~､ｿ:: :い:: :　　　　　＼_　　ノ　,　　　 ヾ　丶

まあ、１０年ぶりにプログラム組もうとしたら、すっかり
頭の中がリセットされていたことに笑いが止まらなかった。

ならデルヒなんてやめとけ

>>739
　　　　　　＿＿＿_
　　　　 ／　　　　　 ＼
　　　 /|　　 _ =　　　　ﾐ
　　　彡　 -､ , ､ _,-　 ミ _
　　 { `|　,=･ｧ = ,r･=､, |´ }
　　 ヽ{!　 '" ,　',:､ '" ,' |}ノ　　　黙れ小僧！
　　　　|　　/`'ｰ'"ヽ-　ﾄ､
＿＿,.-ヽ ﾉー＝-' }　/:: ＼_
: : : : : :／`ｰ､＿_ノ-'/ : : : |: :`ー
: : : : く: ／:| ＼_,.-"/:: : : : |: : :
: : : : ／: : :|/|:::∧ /:: : : ／: : :
: : : :|: : : : :| /:く　/:: : : ;＼: : : :
: : : :|: : : : :|'::::::::/: : :◎: :/: : : :

TStringGridを継承したコンポーネントを作ってるんですが、設計の都合でVCLのGrid.pasを
改造する必要が出てきました。

今作ってるコンポーネント以外にはGrid.pasの変更を波及させたくないので、コンポーネントの
プロジェクトからだけ改造したGrid.pasを参照するようにしたいんですが、うまく行きません。
ソースコード上はAlt+↑で継承元を辿っていくとちゃんと改造したGrid.pasに辿り着くんですが、
いざコンパイルを掛けるとTCustmoGridに追加した変数が認識されずエラーとなります。

こういう場合はどうしたら良いでしょうか？

　A.諦めて継承先のコンポーネントで何とかする
　B.DELPHIが参照しているVCL本体を置き換える。
　C.改造したGrid.pasをGrid2.pasのように別名保存し、コンポーネントのプロジェクト内では
　　Grid.pasの代わりにGrid2.pasを参照する。

のような案を考えましたが、他に何か良い案が有れば宜しくお願いします。

修正部分だけコーディングしてあとは元のコードを使うようにできるんじゃなかったっけ？
それくらいじゃ対処できないってんならＣ案だろうけど。

>>741
プロジェクトのフォルダに改造したGrid.pasを入れればそっちを参照するんじゃない？
その方法が開発チーム内で許されていればだけど。

そもそもGrid.pasを改造する必要が本当にあったのか

今作ってるプロジェクトはパッケージなんですが、通常のプロジェクトとは違って>>743の方法が使えないみたいです。
containsにGrids.pasを書くと、
「パッケージ 'vcl' はすでにユニット 'Grids' を含んでいます」
というエラーが発生してコンパイルできません。
containsに書かずにプロジェクトのソースディレクトリにGrids.pasを置くとvclパッケージ内部のGrids.pasが優先して参照されてしまいます。

継承先でどうにかする方法も模索中ですが、TCustomGridがprivateで持っているメンバーにたくさんアクセスする必要があるため難航しています。

ひょっとして「実行時パッケージを使って構築」にチェック入れてる？
vclを外す事は許されないんだろうか。

>>745
対象バージョンが固定ならprivateメンバーにアクセスする方法はいくらでもある
まあ別にバージョン固定じゃなくてもその分分岐すればいいんだけど

>>746

チェックは入れていません。
というかチェックボックスが触れない状態です。

>>747

例えばどんな方法が有るでしょうか？

すみません。教えて下さい。

TClientDataSet が保っているデータセットを
結合して１つのDBGridに表示したいのですが、
どうすればいいでしょうか？

宜しくお願いします。

>>749
一方のDataSetにFieldKindがfkLookupの
TFieldを用意し、他方のDataSetを参照すればいけそう。な気
がする。

やり方
つttp://docwiki.embarcadero.com/RADStudio/ja/参照項目を
定義する

>>748
最初に確認すべきだったけど、Delphiのバージョンとエディションは？

>>750
的確なアドバイスありがとうございました。

これで眠れそうです。

>>748
TObjectからTCustomGridまでに宣言されてるすべてのメンバー変数を抽出して、
それをレコードか何かとして宣言して、インスタンスをそのレコードでキャストすれば直接アクセスできる
それぞれの変数間に詰め物もあるけど、その辺はデバッガでメモリ覗く等して一度調べればOK
多少語弊があるかもしれないけど、簡単に言えばクラスってのは継承できるレコードに過ぎないからね

他にもprivate変数をpublicにしただけのクローンクラスを作ってキャストしても同じ効果が得られる
もちろん目的のprivate変数自体のオフセットが分かってればインスタンスアドレスから直接取り出した方が早いけど
ただしこの説明で何やってるかピンと来なければ危険なのでやらない方がいい

オブジェクト指向における継承の概念をしっかり理解しない人が
コンポーネント改造しようだなんて１０年早い

こういうことを書いてる人が本当に理解できてた例を見た試しがない

ｆｔＴｉｍｅｓｔａｍｐ型が使えなくて泣いてみたりして

フォルダ作成機能付きのフォルダ選択ダイアログありますか？

>>757
SelectDirectory（Delphi2009で確認）

BDEを使わずにODBCアクセスってどうやれば良いですか？

がんばる

つActiveX

ActiveXでODBCアクセスって出来ましたっけ？

ADOがあるじゃない

http://sites.google.com/site/delphibasics/

Delphi の購入で、Pro版かEnt版かで悩んでいます。
開発ターゲットは、SQLServerを使うDBアプリです。

Ent版ならSQLServerのNativeDriverが付いてきますよね。
でも、Pro版でもADOやODBC経由でSQLserverを使えるはず。

ADOやODBC経由と比較し、NativeDriveerが使えるメリットって、
何があるのでしょうか？

・Delphi付属のDBコンポーネントが使える
・SQLServerの全機能をDelphiから扱える

リモートでDBXを使える(ProはDBXをリモートで使えない)。

>>767が、とっても重要で見落としてはいけないことを言った

フォームのクライアント領域の一部に長方形や円を描きたいと思い、フォームのOnPaintで

Self.Canvas.Brush.Color := clBlack;
Self.Canvas.Rectangle(10, 10, 200, 100);

のようにしました。
この描画結果をデザイン時でもに見えるようにするにはどうしたら良いでしょうか？
フォーム自体のコードではデザイン時に無反応なので無理だと判断しています。

そこで、試しにカスタムコンポーネントTDrawTestを作って

constructor TDrawTest.Create(AOwner: TComponent);
begin
　inherited;
　if AOwner is TForm then begin
　　FParent := TForm(AOwner);
　　FParent.OnPaint := Self.ParentDraw;
　　FParent.OnResize := Self.ParentDraw;
　end;
end;

procedure TDrawTest.ParentDraw(Sender: TObject);
begin
　FParent.Canvas.Brush.Color := clBlack;
　FParent.Canvas.Rectangle(10, 10, 200, 100);
end;

のようにしてやり、このコンポーネントを対象のフォームに配置しました。
すると、デザイン時にフォームをリサイズした時に長方形が描画されたのですが、フォームを他の画面の後ろに隠して再び前に出した時など、サイズ変更が伴わない再描画処理では長方形が描画されませんでした。
処理対象のイベントを増やしていけば一応は動作するのでしょうが、根本的に方法がおかしいような気もします。
何か良い方法は無いでしょうか？

新規作成→ダイアログで作ったダイアログでOKを押しても
条件によって、そのダイアログを表示し続けるにはどうしたらいいですか？

フォーム(ダイアログ)のOnCloseQueryでCanCloseにFalseを設定する。

トンです。

IdHTTPでgetメソッド行うときってtimeout設定出来ましたっけ？

timeoutでググルと下が出てきましたがエラー一覧だった：

ttp://mrxray.on.coocan.jp/Delphi/plSamples/772_Indy_HTTPGet.htm

Indy10ならTIdHTTP.ReadTimeoutはどう？

C++ Builder 6なので、TIdHTTP.ReadTimeoutが無いみたいです。

実際に発生しているエラーは、
Getメソッドを繰り返し行って４回目くらいに、Connection Closed Gracefully、が発生です。
どうもＰＣのスペックが悪いのか（Win7のネットブック）、時間がかかってるのが目に見えるようなのでやっぱタイムアウトかな、と思います。

Gracefullyの意味を辞書で調べてくるといいと思うよ＾＾

＞ttp://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200512/05120092.txt
（FTPですが）にも書いてあるように、
VCLコントロールが内部から投げてる例外って意味ですが、
やっぱ、その場合にもエラー処理を行うのが対処みたいで、
正常終了ということでは無さそうです。

実際、
＞Connection Closed Gracefully
が発生しているのは、
何十〜何百台あるＰＣの１、２台だけっぽいです。

ネットワークものは素人の推測でどうこうするのではなく、まずはWiresharkでパケットをキャプれ。
話はそれからだ。

TIdHTTP.ReadTimeoutはIndy9にもある。というかあんまり古いバージョンはお勧めしない。
C++Builder6ならIndy9まではあげたほうがいい。

>>775
Connection Closed Gracefullyがでるときは大抵POSTミスやら通信ミスってるだけだろ

Connection Closed Gracefully自体には悪い意味はなくGracefull shutdown(ttp://msdn.microsoft.com/en-us/library/ms738547%28VS.85%29.aspx)
のことだろ？たぶん。Gracefullな手順踏んで正常にコネクションが切断されただけだろ。
タイムアウトじゃねぇかな。

うそ書いた。正常にコネクション切断されたなら、タイムアウトすると矛盾するな。
すまそ。

HTTP 1.0と1.1の違い知ってる？　前者はコネクションをいちいち切る　後者はつなげたまま

Delphi 2010に、TurboPower SysToolsをインストールしようとしています。
EDN（エンバカデロデベロッパーネットワーク）のWebページの通りにインストールしたのですが、
コンパイルエラーになってしまいます。
エラーメッセージとエラー箇所のコードを下記に示します。
対処方法を教えていただけないでしょうか？


■エラーメッセージは次の通りです。
　[DCC エラー] StBarC.pas(1751): E2030 case 文のラベルが重複して定義されています
　[DCC 警告] StBarC.pas(1752): W1063 指定された AnsiChar 定数 (#$84) を WideChar に
　　　拡大変換した結果、情報が失われました

■エラー箇所のコードは次の通りです。
　> procedure GetACode128CDigit (c : Char; var Index : Integer;
　> var bcDigitPos : Integer);
　> var
　> J : Integer;
　>
　> begin
　> case (c) of
　> #130 : bcDigits[bcDigitPos + 1] := 98; {rest are manufactured characters}
　> #131 : bcDigits[bcDigitPos + 1] := 97;　　＜− ★ここで上記のコンパイルエラーになります★

AnsiChar(c)

>>784
ありがとう。やってみます。

Delphi2010+TurboPowerSysToolsのインストール解説ページにソースコードの
変更が必要など書いてなかったです。
必要なら書いてほしいなぁ・・・

>>783
Delphi 2010に、TurboPower SysToolsをインストールするＨＰって、
　http://edn.embarcadero.com/article/40498
だよな。
公式ページに掲載されてる情報なんだから、コード修正なんて不要だと思うのだが。

やってみてから言えよ屑

やってみました。

確かに StBarC.pas の数箇所で変更が必要です。
修正箇所は、こんな感じ。

修正前：　Case c :
修正後：　Case AnsiChar(c) :

修正前： if c in [...]
修正後：if CharInSet(c, [...])


>>787へ
批判するだけで建設的な意見を書き込めない「無能者」は、
どんな社会でも受け入れられないでしょう。
幸いにも受け入れられる社会を見つけても、そこはキミと同じ無能者
の巣窟だろうね。

マジになんなよ

>>788
公式だからと鵜呑みにしたのは無能じゃないの？
馬鹿なの？

>>788
見当違いの>>786みたいなレスも社会では受け入れられないよね、無能の屑さん＾＾

デルフィアン！

スペル・デルフィン

delphi使っている人って、
独法などで研究やっている人が多いんだよね？ちがう？

ちがうね

おじゃまします、IDE上で、コード上の大文字/小文字の区別をさせる、何かしらの設定みたいなものって無いんでしょうか
とりあえずヘルプなど当たってみましたが、見つけることができませんでした

例えばMessageBoxとmessageBoxを区別したい(表記が統一されていなければわかるようにしたい)のですが…

>>796
何したいのかよくわかんないけど、検索のオプションには大小区別のオプションはあるよ。

なるほど、レスありがとうございます

いえ、色々な人間がコーディングしていると、人によってはMessageBoxだったり、またある人はmessageboxだったり、messageBOXだったり、まちまちになるとソースが読みにくくなるんです。
まぁ一括置換をしてやれば良いんですが、できればコーディングしている段階で、その人がわかるようにコンパイルで弾いてやれないかなと思ったんです

神経質といえば神経質ですね

Canvasにアルミのヘアライン仕上げみたいな描画をしたいのですが、
やり方載ってるページとか無いですかね？

検索してもPhotoshopでのやり方とかは出てくるんですがねぇ・・・
Bitmapに保存しておいて、それを貼り付ける方法も考えたのですが、
出来れば、コードで描きたいんですけど。

>799
漏れはプログラムは組めるが絵心が無いんで
Illustratorでヘアライン仕上げみたいな描画をする方法を教えてくれ。
そうしたら実現コード考えてもいい。

タイマーをいくつも使ってイベントで処理するのと、
マルチスレッドってやつ使うのとは何が違うの？
タイマー使った方がお手軽に並列処理出来ると思ったけど
違うっぽいんで教えてくだしゃぁ

>>800

すみません、規制で書き込みませんでした。


ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1225706387?fr=shopping_search

こんな感じですが。
よろしくお願いします。

>>801

タイマーのインターバルを50msec位にして、タイマーのイベントで100msec位かかる処理を行うとどうなりますか？
また、スレッドを50msec毎に作成して100msec位かかる処理を行うとどうなりますか？

>801
タイマを使うってのはメインスレッドの中で処理が順次行われていくってこと。例えていうなら
中の人が5分おきに電話で起こされて仕事をしてまた寝るってのを繰り返す感じ。だから
処理は並行には行われない。それに対してスレッドのほうは中の人を5人用意してそれぞれに
仕事を割り振って一斉に(でなくてもいいけど)平行して仕事をしてもらう。でも1つしかない
資源は排他的に扱う(一度に一人だけが使用する)ようにしなければならない。

勘違いしやすいのは、タイマはタイマ割り込みではなく、指定した時間が経過したことを
示すフラグでしかない(WM_TIMERはフラグが立ったことの通知)というあたり。