くだすれDelphi(超初� ..
591:デフォルトの名無しさん
08/05/09 04:46:57
TPersistentから継承しなくても良かったっけ？
592:デフォルトの名無しさん
08/05/09 05:04:16
誰か例のTGifImageの脆弱性なおしておくれ
593:デフォルトの名無しさん
08/05/09 08:06:58
JaneStyleはTGifImageを修正してるみたいですね
594:デフォルトの名無しさん
08/05/09 09:37:06
gifimage.pasの5992行から
while (code >= ClearCode) do
begin
//ここから
if UINT(Source) > UINT(@stack[High(stack)]) then
begin
Dec(Source);
Result := Source^;
Exit;
end;
//ここまで
Source^ := table1[code];
検証お願いします
595:デフォルトの名無しさん
08/05/09 11:04:57
>>594
行けたぜGJ！
でも俺の場合5873行なんだがこれはバージョンの違い？
一応2.2なんだが・・・
596:Ｚｚｚ
08/05/09 11:24:39
質問お願いします
Delphi7なんですけど
(最大化最小化閉じるボタンを非表示などをした)Formを
同プロジェクト内の別のFormでも使いたくFormごとコピーして
使用したいのですがコピーやり方がわかりません
どうやれば実現できるのでしょうか？？？
597:デフォルトの名無しさん
08/05/09 11:37:16
ExplorerでForm1.pas/.dfmをForm2.*にコピー＆リネームして
ファイル内のユニット名、クラス名、Nameプロパティ名を調整。
フォーム上のコンポーネントやプロパティの設定は.dfm
イベントハンドラ等のコードは.pasにあるから適当に切り貼りしてもいいかも。
名前をつけて保存でForm2とかやっちゃうとForm1が破棄されForm2を使い出すからわけわかってないと悲惨なことに。
IDEでは使いまわし支援でリポジトリなるものをサポートしているけどほとんど使ったことない。
活用してる人っているのかね。
なんにしてもプロジェクト全体のバックアップをしてから試したほうがいいかもね。
598:Ｚｚｚ
08/05/09 11:40:36
やはり意外と、つらそうな道のりですね
了解しました
地味に作成しようと思います
リポジトリの使用方法も忘れてつつあるので・・・
ありがとうございました
599:デフォルトの名無しさん
08/05/09 11:40:40
うちは5846行目だった
TGIFSubImgae.Decompressプロシージャ内のNextLZW関数内だよね？
600:デフォルトの名無しさん
08/05/09 12:45:27
ver2.2のNextLZWの中です
ASSERT(Code < TableSize, 'Code too large');
while (code >= ClearCode) do
begin
//ここから
if UINT(Source) > UINT(@stack[High(stack)]) then
begin
Dec(Source);
Result := Source^;
Exit;
end;
//ここまで
Source^ := table1[code];
Inc(Source);
if (code = table0[code]) then
Error(sDecodeCircular);
code := table0[code];
ASSERT(Code < TableSize, 'Code too large');
end;
601:デフォルトの名無しさん
08/05/09 13:17:57
>>596
継承して使うと似たようなフォームで少しだけ違うような場合に便利だよ
ファイル⇒新規作成⇒その他 で出たダイアログのタブの今のプロジェクト内から Form1を選んで
下の ・継承 を確認して [OK]
602:Ｚｚｚ
08/05/09 16:50:32
たびたびすいません
質問です
リストボックスやコンボックスのItems欄に選択「文字」を追加する
方法が分かりません
･･･と書くとItem addとか思われると思いますが、もう一歩進んで
その追加したを随時に追加し、且つ保存したいのです
プログラムを終了させる、プログラムを起動させる
「追加したデータが消えてる（涙・・・」
どうやれば保存できるのでしょうか
最終的には、マイナーなコンポーネントに対し保存したいのですが
基本のリストボックスやコンボックスのやり方を教授していただければ
自分で考えますので（当たり前ですけど）ヒントの程お願い致します
603:デフォルトの名無しさん
08/05/09 17:09:42
終了時にファイルに保存して起動時にファイルから読み込む。
604:Ｚｚｚ
08/05/09 17:23:32
>>603 おしい
それも一つの手ではあるんですが、最終的にコンポーネントの
Items欄に追加したいのでItems欄に保存する方法はないのかと
言うのを知りたいのです
605:デフォルトの名無しさん
08/05/09 17:31:18
質問する前に日本語を勉強する
606:デフォルトの名無しさん
08/05/09 17:41:48
いまいちよくわからないがexeのどこかに保存されているであろうItemsのデフォルト値に対して保存・読み出ししたいってことか？
もしそうなら、コンパイルする度に値が吹き飛ぶぞｗ
607:デフォルトの名無しさん
08/05/09 18:42:09
そういうことができるなら ini ファイルはいらんがな・・
608:デフォルトの名無しさん
08/05/09 18:57:18
リソースを書き換えたいのか？ 出来るだろうが、なんでiniファイルは駄目なんだ？
609:デフォルトの名無しさん
08/05/09 21:18:12
少なくともコード書いて試して 603 に対して「おしい」とかいってるのか？
const
DatEx='.dat';
var
ListDat:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListDat:=ChangeFileExt(Application.ExeName,DatEx);
if FileExists(ListDat) then
ListBox1.Items.LoadFromFile(ListDat);
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ListBox1.Items.SaveToFile(ListDat);
end;
ちなみにみんなの言っている「日本語でおｋ」は
「Items欄に保存」ってのがわからんってことだぞ
610:Zzz
08/05/09 23:16:25
>>609
むむー
ListBox1.Items.SaveToFile(ListDat); で行けるかも
えっと
Items欄に保存ってゆうのは・・・・・・
コンボボックスとかは、選択肢をItems.Addしなくても事前に入れて置けるじゃないですか（うろ覚えすまん）
あれってＰｇで、あるボタンを押した時のイベントでItems.Addして追加しても、
Ｐｇ終了して、再度Ｐｇ再開してコンボボックスの中見ると消えてるじゃないですか（あたりまえですけど）
つまり、そのItems欄の中にデータを残しておきたい訳です
（↓コンボの中）
にんじん
だいこん
トマト
↓（いもを追加）
（↓コンボの中）
にんじん
だいこん
トマト
いも
↓（システム落として再起動）
（↓コンボの中）
にんじん
だいこん
トマト
（がーん いもは・・・・・）
611:デフォルトの名無しさん
08/05/10 00:01:24 BE:348454-PLT(12660)
iniかレジストリ使うのが普通じゃね？
612:デフォルトの名無しさん
08/05/10 00:55:11
自分で言ってるけど消えるのは当たり前なんです
そういうのは外部のファイルに記録しておいて
再開したときに読み込むのがいいと思います
613:デフォルトの名無しさん
08/05/10 07:42:56
だから、設計時に追加した情報は、コンパイルするとリソースとしてexeに含まれるの。
614:デフォルトの名無しさん
08/05/10 10:03:01
TIniFile使ってやるのが一般的じゃね？
>>610の気持ちもわからんではないが・・・逆にIDEで初期値を入れられるだけでも便利と思え！
ListBox1.Items.Commatext:=ReadString('ListBox1','Items','');
WriteString(ListBox1','Items',ListBox1.Items.CommaText);
615:デフォルトの名無しさん
08/05/10 10:27:37
dfmファイルを外部に持たせればＯＫ．
616:デフォルトの名無しさん
08/05/10 11:28:00
彡川三三三ﾐ
川出 ::::::⌒ ⌒ヽ パクリ星からやってきたお！
出川::::::::ー●-●-）
..川（６|:::::::: （ 。。）） パクリ星の王子様の◆Style/kK.sだお！
出川;;;::∴ ノ ３ ﾉ
ノ＼＿;;;;;;;;;;;;;;;;ノ Janeスレ荒らしてるヒキコモリだから友達できないお！
（ * ヽー--'ヽ ）
(∵ ;) ﾟ ﾉヽ ﾟ ）：） チンポは極小で包茎だお！！ちなみに童貞だお！！
(: ・ )--―'⌒ｰ--`,_）
（＿__）ーニ三三ﾆ-）
（∴ ｰ'￣⌒ヽωﾆЗ 好きなものは他人のソースとオナニーとwarezだお！！
`l ・ ． /ﾒ /
ヽ ∵ /~- /. 今日もたくさんソースパクリまくるお！！
（＿＿))))）_）))))
617:デフォルトの名無しさん
08/05/10 14:33:41
>>566
おー、Sliverpoint乙
618:デフォルトの名無しさん
08/05/10 15:14:34
>>587
今頃で申し訳ないんですがエラーが出てインストール出来ません・・・
d6perだからですかね？proだとインストールできるんでしょうか
619:デフォルトの名無しさん
08/05/10 16:15:29
>>618
alpha版はdel7から対応だったように思う
2.1beta1↓
URLﾘﾝｸ(www.fileup.org)
TB2Kのパッチは自分で探してね
620:デフォルトの名無しさん
08/05/10 16:15:47
>>619
passはtbx
621:デフォルトの名無しさん
08/05/10 16:22:52
>>619-620
わざわざうｐしていただいてありがとうございます！
インストールしてみます
622:デフォルトの名無しさん
08/05/10 16:46:04
インストールできました！
ありがとうございました！
623:デフォルトの名無しさん
08/05/10 18:24:43
インストールできたのはいいんですがメニューがボタンのようになってしまいます・・・
これじゃ当初の目的が達成できないのですが、どのようにすれば普通のメニューのように出来るのでしょうか
624:デフォルトの名無しさん
08/05/10 18:28:59
すみません、自己解決しました・・・
625:デフォルトの名無しさん
08/05/10 18:30:40
わけわかんねー事言ってんじゃねぇよタコ
小学生からやりなおせ
626:デフォルトの名無しさん
08/05/10 19:07:00
今小学5年生です・・・・
627:デフォルトの名無しさん
08/05/10 19:15:49
「相撲」って人気有るんだな
映画化されて・・・と思った・・・おれは小学生からやり直すべき？
628:デフォルトの名無しさん
08/05/10 19:17:12
相模だろｗ
629:デフォルトの名無しさん
08/05/10 19:18:37
意味の解らない俺はどれからやり直せばいいんだ？
630:デフォルトの名無しさん
08/05/10 20:02:46
アセンブラからだろ とーぜん
631:デフォルトの名無しさん
08/05/10 20:30:43
精子から
632:デフォルトの名無しさん
08/05/10 20:42:11
Office2007でコンテキストメニューを表示したとき
その上にツールバーも一緒に表示するUIが何気に便利なんだけど
あれどうやって実現するんだろう。
633:デフォルトの名無しさん
08/05/10 21:24:25
実現も何も・・ただそういうウィンドウを表示してるだけだよ。
634:デフォルトの名無しさん
08/05/11 03:52:32
うまく言えないんですがエスケープシーケンスのある文字列を変換するにはどうすればいいんでしょうか
たとえばabc\ndefという文字列があった時に
abc#10def（#10はもちろん文字列としてではなく）に変換するみたいなのです
635:デフォルトの名無しさん
08/05/11 03:56:24
お願いします。APIを使ったプログラムに不自由してるくらいの実力の者です。
URLﾘﾝｸ(d.hatena.ne.jp)
ここのサイトの通りにTMemoに検索をつけてみたんですが、検索方向が下向きに検索できるのですが、上向きには検索できません。
どうすればできるようになるのでしょうか？
ちなみに環境はWindowsXPHome,Delphi5Proです。
636:デフォルトの名無しさん
08/05/11 05:17:38
>>634
つStringReplace
>>635
TFindDialog.OptionsにfrDownが設定されているかを確認して
自分で切り替える必要があります
637:634
08/05/11 05:27:03
>>636
一応\nだけではなくて\tとか漢字とかもエスケープされてるようなので使えないです・・・
638:デフォルトの名無しさん
08/05/11 07:56:46
>>637
つ正規表現 TRegExp
639:デフォルトの名無しさん
08/05/11 08:09:33
function DecodeEscStr(const s: string): string;
var i: integer;
begin
Result := ''; i := 1;
while i <= length(s) do
if s[i] in LeadBytes then
begin Result := Result + copy(s, i, 2); inc(i, 2);
end else begin
if s[i] = '\' then
begin inc(i); case s[i] of
'x':try
Result := Result + char(StrToInt('$' + s[i + 1] + s[i + 2]));
inc(i, 2);
except end;
'b': Result := Result + #$08;
'a': Result := Result + #$07;
'f': Result := Result + #$0C;
'r': Result := Result + #$0D;
't': Result := Result + #$09;
'v': Result := Result + #$0B;
'n': Result := Result + #13 + #10;
else Result := Result + s[i];
end;
inc(i);
end else begin
Result := Result + s[i]; inc(i);
end;
end;
end;
640:デフォルトの名無しさん
08/05/11 08:11:02
>>634 はもしかして C言語スタイルの \ エスケープでエンコードされた
文字をデコードしたいって事じゃないかと思ってサンプルコードを書いてみた
641:634
08/05/11 08:27:34
>>638
TRegExpは何だかさっぱりであまり使ってません・・・
>>639,640
ありがとうございます
元のプログラムはCのようなのですがそれの仕様が良く分からないもので・・・
一応「テスト」という文字が「\83e\83X\83g」になるということは分かってます
642:デフォルトの名無しさん
08/05/11 09:08:54
それは独自仕様って事だね。
'x':try
Result := Result + char(StrToInt('$' + s[i + 1] + s[i + 2]));
inc(i, 2);
except end;
この部分を
'0'..'9' , 'A'..'F':try
Result := Result + char(StrToInt('$' + s[i ] + s[i + 1]));
inc(i);
except end;
とすれば、その部分には対応すると思うけど、他にも違いがありそうだね。
仕様が判ってるのはあなただけだから、自分でやってね
643:634
08/05/11 09:26:00
>>642
それで出来たようです！
ご迷惑かけました！
そしてありがとうございました！
644:デフォルトの名無しさん
08/05/11 12:15:59
フォームのボタンなどのキャプションに付けるアクセラレータって言うんでしょうか
(&A)みたいにするとAltキーとAを一緒に押すとクリックされるやつですが、
コントロールが多くなってくると、どれが使われていないのか探すのが大変です。
便利なワザみたいなの、ありませんでしょうか。
645:デフォルトの名無しさん
08/05/11 12:40:14
ActionList
646:デフォルトの名無しさん
08/05/11 13:24:12
適当に書いてみたが何気に便利かも･･･
表示をまともにしてコマンドラインツールにして外部ツールとして実行できると使い物になりそう。
オープンダイアログで調べたいフォームのdfmファイルを指定するとこんな感じで出る。
C: Caption = '&ClickMe!'
C: Caption = 'Button1(&C)'
F: Caption = #12501#12449#12452#12523'(&F)'
R: Caption = '&Run'
X: Caption = #32066#20102'(&X)'
procedure TForm1.Button1Click(Sender: TObject);
var
dfm, res: TStringList;
i, idx: Integer;
begin
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
if not OpenDialog1.Execute then Exit;
dfm:= TStringList.Create;
res := TStringList.Create;
try
dfm.LoadFromFile(OpenDialog1.FileName);
for i := 0 to dfm.Count-1 do
begin
idx := AnsiPos('&', dfm[i]);
if idx > 0 then
res.Add(UpperCase(dfm[i][idx+1]) + ':' + dfm[i]);
end;
res.Sort;
ShowMessage(res.Text);
finally
dfm.Free;
res.Free;
end;
end;
647:デフォルトの名無しさん
08/05/11 18:17:09
質問です。
TMemo に長いテキストを読み込ませたいのですが LoadFromFile で一気に読み込むと一瞬フリーズしたようになります。
そこで、スクロールに合わせて小分けに読み込むようにしたいのですが何か良い方法はありませんか？
648:デフォルトの名無しさん
08/05/11 18:50:47
>>647
マルチスレッド
649:デフォルトの名無しさん
08/05/11 19:08:34
>>648
お答えありがとうございます。
ですが、メモリを節約して小分けに読み込み表示してスクロールバーの振る舞いはファイルサイズに合ったものにしたいのですが、どうにかなりませんか？
650:デフォルトの名無しさん
08/05/11 19:23:38
はなっからスクロールバーを適正サイズにしたいってこと？そりゃ無理。どれだけの行数があるのかは
読み込んでみないとわからないっしょ？
651:デフォルトの名無しさん
08/05/11 19:26:12
>>650
確かにそうですね。妥協することにします。
>>647 終了です。ご回答くださった方ありがとうございました。
652:デフォルトの名無しさん
08/05/12 07:36:01
TStringListにいったん読み込めばいい。
653:デフォルトの名無しさん
08/05/12 15:29:15
複数キー入力を検出するにはどうすればよいでしょうか？
Ctrl+Alt+Delとかのことです。
よろしくお願いします。
654:デフォルトの名無しさん
08/05/12 15:31:32
そんな無作法なツールは死ねばいい
655:デフォルトの名無しさん
08/05/12 16:01:57
>>653
TShiftState
656:デフォルトの名無しさん
08/05/12 23:00:01
>653
検出はいいけど、何をしたいのか具体的に書いたほうがいいと思うが。
ちなみにCtrl+Alt+Delは捕捉できないので念のため。
657:デフォルトの名無しさん
08/05/12 23:01:57
BBS へ行ったと思われ
658:デフォルトの名無しさん
08/05/12 23:42:30
TMemo でスクロールせずに表示できる行数を知るには ClientHeight を Font.Height で割れば良いのでしょうか？
659:デフォルトの名無しさん
08/05/13 00:07:26
１分で確かめられる事をわざわざ聞きにくるな
660:デフォルトの名無しさん
08/05/13 02:25:24
1分使って自分で確かめるくらいなら2分使って質問を投げる勇気を私はもちたい。
661:デフォルトの名無しさん
08/05/13 03:02:10
:::::::::::.: .:. . ∧＿∧ . . . .: ::::::::
:::::::: :.: . . /彡ミ゛ヽ;)ヽ、. ::: : ::
::::::: :.: . . / :::/:: ヽ、ヽ、i . .:: :.: :::
￣￣￣（_,ノ ￣￣ヽ､_ノ￣
662:635
08/05/13 12:49:06
>>636
ありがとうございます。帰ってやってみます。
663:デフォルトの名無しさん
08/05/13 21:40:18
これからDelphiをはじめる初心者ですが
TurboDelphi用の初心者向け参考書はありますか？
お勧めがあれば教えて下さい。
664:デフォルトの名無しさん
08/05/13 21:50:23
>>594
>>595
>>599
melander ってしらないうちにオンラインにカムバックしてたのね
URLﾘﾝｸ(melander.dk)
ここで各種 Delphi のバージョンアップ対応のメンテ版を公開していたので
同じ 2.2 でもバージョン違いが存在する
URLﾘﾝｸ(www.tolderlund.eu)
で、そもそも TGIFImage は CodeGear に寄贈されて最新版の3.0は Delphi 2007 に同梱と
665:デフォルトの名無しさん
08/05/13 23:38:58
>>664
D2007のTGIFImage3も>>594のはﾊﾞｸﾞってる
でも他のInterlaceなGifの問題は直ってたりするけど
URLﾘﾝｸ(www2.ttcn.ne.jp)
666:デフォルトの名無しさん
08/05/14 02:11:31
（;^ω^)今更ながらtypeとポインタが便利な事に気付いたwwww今まで時間無駄にしてたわwwwwwww
667:デフォルトの名無しさん
08/05/14 05:23:00
で、TGIFImage の開発元にフィードバックしたいのだが。
で、いくつか問題起こす gif を見ましたが、なんつーか児童ポルノに厳しい国でも
レポートできるようなアニメーション GIF で再現できない物ですかねぇ
668:デフォルトの名無しさん
08/05/14 09:45:09
var
Attr: Cardinal;
dv: string;
Attr:= GetFileAttributes(pchar(dv));
if (Attr and FILE_ATTRIBUTE_COMPRESSED) <> 0 then
begin
MessageDlg('Compressed.', mtError, [MBOK], 0);
end;
if (Attr and FILE_ATTRIBUTE_ENCRYPTED) <> 0 then
begin
MessageDlg('Encrypted.', mtError, [MBOK], 0);
end;
dv はドライブ名 C:\ or D:\
これで9x系のドライブスペースとNT系の圧縮フォルダとプロの
暗号化されたやつを判定できますか？
669:デフォルトの名無しさん
08/05/14 14:03:27
ウィンドウハンドルを指定してそのウィンドウのキャプチャをCanvasに描くのってどうやるの？
670:デフォルトの名無しさん
08/05/14 16:52:05
ランダムな2バイト文字を生成するにはどうすればいいんでしょうか
671:デフォルトの名無しさん
08/05/14 17:27:16
'ランダム'
お約束すぎた？
672:デフォルトの名無しさん
08/05/14 21:06:49
>>669
GetWindowRect(ハンドル,Rect);
GetDC
673:デフォルトの名無しさん
08/05/15 13:49:45
calendarExと言うdelphiのカレンダーコンポーネント使ってるんですけど
Ａｐｐｅｎｄで特別な祭日（2008/5/6）の追加できたんですけど削除の仕方がわかりません＾＾；
どうやればいいのでしょう
すれ違いだと思いますが罠にもすがる思いで質問します
674:デフォルトの名無しさん
08/05/15 14:18:30
罠にすがられたいという事なんで レスしてみる
calendarEx と言われても、誰もが付けそうな名前なんで判らん。
とりあえず一番簡単なのは、Createをメソッドとして読んで
再度 設定しなおしたら駄目？
レジストリやファイルに保存してないならだけどさ
675:デフォルトの名無しさん
08/05/15 15:30:39
罠？？？
糸・・・藁だ 藁
なるほどその手もありましたか
このソフトなんか１０年くらいの前のソフトらしく四苦八苦してます
ヒントくれてありがとうございます ；；
676:デフォルトの名無しさん
08/05/15 15:51:13
>>670
全2二バイト文字を抽出しておいて、そこからランダムに選んだらどうだろう。
677:デフォルトの名無しさん
08/05/15 20:20:00
うーん、2バイト文字ってのも良く分からないけど
何でランダムに抽出したいのか、その使い道が気になるにょ
678:デフォルトの名無しさん
08/05/16 19:09:21
>>670
文字コードにもよるが、SJISのランダムな日本語を得たいのかな？
679:670
08/05/16 19:55:14
>>676
それだけでかなりの時間がかかりそうですですね
>>677
色々です、色々
>>678
そうです、SJISです
680:デフォルトの名無しさん
08/05/16 22:17:52
結果はファイルにでもキャッシュしておけばいい。
SJISに割り当てられている全文字合わせても20KBくらいだし。
681:デフォルトの名無しさん
08/05/17 01:28:40
無効な文字なら、アウトラインを取得できないかもしれないから、
それ使って判断できるかも。
682:デフォルトの名無しさん
08/05/17 11:41:06
ListViewのMultiSelect=Trueの状態で
ボタンを押すと選択行を１段下げる処理をしたいのですが
<<2のところで「EAccessViolation クラスの例外」と出てしまいます
また<<2だけの処理だと複数行選択してしまいます
with ListView do begin
Items[Selected.Index].Selected := False; //<<1
Items[Selected.Index + 1].Selected := True; //<<2
end;
他にもMultiSelectをFlaseにしてから
リストをClearSelectionしてからなど試しましたが
同じようにエラーが出てしまいます
何かよい方法はないでしょうか？
683:番組の途中ですが名無しです
08/05/17 11:59:35
>>682
＞選択行を１段下げる
MultiSelectだと飛び飛びで選択している場合もあるけど
その場合は？
684:デフォルトの名無しさん
08/05/17 12:13:48
>>682
var
hoge:integer;
begin
if listview1.itemindex<0 then exit;
hoge:=listview1.ItemIndex+1;
listview1.ClearSelection;
listview1.Items[hoge].Selected:=true;
listview1.Items[hoge].focused:=true;
listview1.SetFocus;
end;
こういう事？
MakeVisibleや行数を超える場合は知らない
685:デフォルトの名無しさん
08/05/17 14:06:00
>>682
<<1でTListItem.SelectedをFalseにしているのだから
<<2のTListView.Selectedはnilになってる
686:682
08/05/17 14:58:57
>>683
>>684
>>685
あ！なるほど
こんな感じで実装したら思ったようにいきました。
ありがとうございます！助かりました。
procedure TMainForm.ListMove(Next: Boolean);
var i, idx: Integer;
begin
if Next then i := 1
else i := -1;
with ListView do begin
idx := Selected.Index;
ClearSelection;
Items[idx].Selected := False;
Items[idx + i].Selected := True;
Items[idx + i].Focused := True;
end;
end;
687:デフォルトの名無しさん
08/05/17 15:16:38
マルチセレクトでないなら
ListView.ItemIndex := ListView.ItemIndex + 1
でいいんじゃない？
688:デフォルトの名無しさん
08/05/18 17:56:34
指定した文字列がファイルとして作成できるか確認する方法はありますか？
例えばC:\Delphi.txtを渡すとTrue、C:\Delphi\を渡すとFalseを返す、などということです
689:デフォルトの名無しさん
08/05/18 18:06:56
ListViewについて質問です。
二つのカラムを作成し（A、B）、カラムAの１番目に文字列'1-1'、カラムBの１番目に文字列'1-2'、
カラムAの２番目に文字列'2-1'、カラムBの２番目に文字列'2-2'という形でリストを作成したいのですがどうすればいいでしょうか？
よろしくお願いします。
690:デフォルトの名無しさん
08/05/18 18:17:14
>>688
ヘルプでFileCreate検索しろ
>>689
ListViewの扱い方をまず学べ
691:デフォルトの名無しさん
08/05/18 18:21:32 BE:261735-PLT(12660)
>>689
var
TestColumn: TListColumn;
begin
with ListView1 do begin
TestColumn := Columns.Add;
TestColumn.Caption := 'A';
TestColumn.Width := 100;
TestColumn := Columns.Add;
TestColumn.Caption := 'B';
TestColumn.Width := 100;
with Items.Add() do begin
Caption := '1-1';
SubItems.Add('2-1')
end;
with Items.Add() do begin
Caption := '1-2';
SubItems.Add('2-2')
end;
end;
end;
692:デフォルトの名無しさん
08/05/18 18:24:22
>>688
字面の正しさは正規表現でチェック
'^([a-zA-Z]\:)|(\\)(\\{1}|((\\{1})[^\\]([^/:*?<>"|]*(?<!\[\])))+)$'
ディレクトリが存在してるか、アクセス権があるか等々で失敗する要因が他にもあるから
あまりがんばらずに、実際に書き込んでみてから例外拾って対応するのが定石。
>>689
for i := 1 to 2 do
with ListView1.Items.Add do
begin
Caption := Format('%d-1', [i]);
SubItems.Add(Format('%d-2', [i]);
end;
693:デフォルトの名無しさん
08/05/18 18:30:13
>>690,692
FileCreateで行けるようですね、ありがとうございました
694:デフォルトの名無しさん
08/05/18 18:39:52
>>690
色々なサイトを回ったのですがSubItemの使い方について書いてあるところが見つかりませんでした。
>>691-692
ありがとうございます。
しかし、そのとおり実行してみるとカラムAの１番目に'1-1'、３番目に'2-1'
カラムBの２番目に'1-2'、４番目に'2-2'と表示され、
カラムAの２，４番目は空欄、カラムBの１，３番目も空欄、というようになります。
どうすれば１番目と２番目とで納められるでしょうか？
695:デフォルトの名無しさん
08/05/18 18:48:41
本当にすみません。
>>692さんのコードでできました。お騒がせいたしました。
また、答えてくださった方ありがとうございました。
696:デフォルトの名無しさん
08/05/18 18:56:07
>>691さんのコードもできました。
変に打ち間違えていたようです。
すみませんでした。
697:デフォルトの名無しさん
08/05/20 06:08:00
>>696
うるせ馬鹿
死んで詫びろ
698:デフォルトの名無しさん
08/05/20 06:10:06
>>690
お前も死ね
699:デフォルトの名無しさん
08/05/20 17:44:20
ActionListをダブルクリックすると編集ウィンドウが開きますが、
この位置や大きさをプロジェクト単位で覚えさせとくってできます？
700:デフォルトの名無しさん
08/05/21 00:32:41
知らぬ間にPngDelphi氏んでたのね
URLﾘﾝｸ(www.codeplex.com)
701:デフォルトの名無しさん
08/05/21 07:14:42
>>699
フリーウェアでそんなのがありそうだな。
ソフトウェア板行って聞いてみたら。
702:デフォルトの名無しさん
08/05/21 11:04:56
Memo1.Lines.LoadFromFile(FileName);
とかでEUCのテキストを読み込むと文字化けしますが
これを読めるように表示することってできるのでしょうか？
テキストエディタだと見た目はeucで読み込んで表示し
保存もeucのまましてるように見えるけどあれは
内部でシフトJISに変換して表示して、保存時は再度eucに変換してるだけなんでしょうか？
703:デフォルトの名無しさん
08/05/21 11:35:28
TMemoryStreamで読み込んで
nkf32.dllで変換して
Memo1.Lines.LoadFromStream
704:ｋ
08/05/21 11:52:01
正整数Nを読み込み、ｘ^2≦N＜(x+1)^2となる整数ｘ、つまり√Nの近似値を求めるプログラムを、
sqrtなどの標準関数を使わないで作りなさいという問題なんですが。。。
わかりません。教えてもらえませんか？PASCALでやっているんですが。
705:702
08/05/21 11:54:14
>>703
やはりnkf32.dll等で自動判別して読み込んでsjisで表示するんですね
ありがとうございます
706:デフォルトの名無しさん
08/05/21 12:04:07
>>704
良く知られた方法は 奇数を順に累計していったらという方法
function iSqr(n:Integer):Integer;
var i,sum:Integer;
begin
sum:=0;
for i:=0 to $B505 div 2 do begin
sum:=sum+1+i*2;
if sum>n then begin Result:=i;exit;end;
end;
Result:=i;
end;
大きな数字で速度がある程度必要ならバイナリー法(２分検索を行う）
さらに浮動小数点等で速度が必要ならニュートン法
707:デフォルトの名無しさん
08/05/21 12:05:02
あ div 2 は 不要だ。
708:デフォルトの名無しさん
08/05/21 14:20:05
助けてください。
Form3で
procedure TForm3.FormCreate(Sender: TObject);
begin
IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
pass := IniFile.Readinteger('pass', 'Pno',0);
finally
IniFile.Free;
end;
edit1.text:=inttostr(pass);
end;
んでForm1で
procedure TForm1.N1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
しても
Form3のEdit1にiniのPnoデータ表示されません（；；
709:デフォルトの名無しさん
08/05/21 14:50:47
わざわざForm3のOnCreateを使ってiniを読む理由は？
710:デフォルトの名無しさん
08/05/21 14:54:04
>>708 何が表示されるの？
もしかして Edit1 って文字のまま？ だとしたら例外が出てるんじゃないの？
711:デフォルトの名無しさん
08/05/21 15:12:04
>>709
Form3(バージョン情報の画面)に
シリアル№を入力してiniファイルを作成してます。
んで次回起動時にForm3を開くと
iniファイルを読んでシリアル№を表示させたいんです。
712:デフォルトの名無しさん
08/05/21 15:15:40
>>710
シリアル№として数値を表示させています。
一度入力すれば問題ないのですが
起動一発目の読み込みがうまくいきません（；；
713:デフォルトの名無しさん
08/05/21 15:16:52
コピペした部分のコードにはおかしいところはなさそうな気がする。
edit1.text:=inttostr(pass);
の下に
ShowMessage(Format('edit1.text=''%s'', pass=%d', [edit1.text, pass]));
って行を入れてメッセージダイアログが表示され、更に値が望んだものかどうかをチェックしてみたら。
714:デフォルトの名無しさん
08/05/21 15:22:28
>>713
ダイアログ表示せず・・・
FormCreate走ってないようです
orz
715:デフォルトの名無しさん
08/05/21 16:03:00
>>714
プロジェクトのオプションでForm3を自動作成の対象から外して
Form1のボタンイベントを↓に変えて実行したらどうなる？
procedure TForm1.N1Click(Sender: TObject);
begin
Form3 := TForm3.Create(nil);
Form3.ShowModal;
Form3.Free();
end;
716:デフォルトの名無しさん
08/05/21 16:53:00
メニューアイテムにビットマップを動的に割り付けようと
下記のようなコードを書いたのですが、反応がありません(エラーも出ない)
New1.Bitmap.LoadFromFile('C:\hogehoge\new.bmp');
設計時にオブジェクトインスペクタから、あらかじめ bitmapを割り当てていた場合は、
その画像と入れ替わりに、ビットマップが更新されます
インスタンスがないのかと
New1.Bitmap := TBitmap.Create;
New1.Bitmap.LoadFromFile('C:\hogehoge\new.bmp');
もやってみましたが、結果は同じでした
ビットマップ読み込み後に、アップデート処理などが必要なのでしょうか？
717:ｋ
08/05/21 17:34:29
>>706 $B505ってなんですか？すみません。なにもわからないもんで・・・
718:デフォルトの名無しさん
08/05/21 18:35:45
>>716
新しいTBitmapオブジェクトを作ってTMenuItem.Bitmapに代入するとうまくいくよ
NewBitmap := TBitmap.Create;
NewBitmap.LoadFromFile('....');
New1.Bitmap := NewBitmap;
NewBitmap.Free; // 解放を忘れずに
719:デフォルトの名無しさん
08/05/21 18:53:15
>>716
New1.Bitmap.LoadFromFile('C:\hogehoge\new.bmp');
New1.Bitmap.Canvas.Refresh;
720:デフォルトの名無しさん
08/05/21 19:22:32
copy関数で何文字目とか文字数とかの設定は
関数にできないんでしょうか？
721:デフォルトの名無しさん
08/05/21 19:26:32
日本語でｒｙ
722:デフォルトの名無しさん
08/05/21 19:41:31
>>720
こういうこと？
function TForm1.CopyEx(S:String; Idx, Cnt:Integer):String;
begin
Result := Copy(S,Idx,Cnt);
end;
723:デフォルトの名無しさん
08/05/21 20:23:11
>>722
申し訳ないです。
関数にできないんでしょうか？
は変数にできないんでしょうか？
の間違いです。
724:デフォルトの名無しさん
08/05/21 20:30:50
722に申し訳がるこた全くなし つうか変数使えるでしょ？たぶん
725:デフォルトの名無しさん
08/05/21 20:32:56
>>723
こういうこと？
var
Idx,Cnt:Integer;
begin
idx := 1;
Cnt := 2;
Edit2.Text := Copy(Edit1.Text, idx, Cnt);
end;
726:デフォルトの名無しさん
08/05/21 20:45:03
>>725
a1 := edit1.text;
a2 := strtoint( a1 );
data := copy( Edit2.Text,a2,1 );
ここで悩んでます。
727:デフォルトの名無しさん
08/05/21 20:49:51
はぁ？
728:デフォルトの名無しさん
08/05/21 20:50:09
>>726
edit1.textに数字を入力すれば普通に動くと思う
↓またはこうする
a1 := edit1.text;
try
a2 := strtoint( a1 );
finally
a2 := 0;
end;
data := copy( Edit2.Text,a2,1 );
729:デフォルトの名無しさん
08/05/21 20:54:58
a1 := edit1.text;
a2 := Length( a1 );
data := copy( Edit2.Text, a2, 1 );
こーゆーこと？
730:デフォルトの名無しさん
08/05/21 21:16:39
いやあエスパーさんばっかいるなｗｗｗ
731:デフォルトの名無しさん
08/05/21 21:24:18
>>728
そこはexceptだろ
732:デフォルトの名無しさん
08/05/21 21:26:00
>>731
細かいなｗ
733:デフォルトの名無しさん
08/05/21 21:26:02
>>731
strtointdefで
734:デフォルトの名無しさん
08/05/21 21:27:24
>>728
var
bno:string;
keta:string;
k1,k2 : string;
kk1,kk2 : integer;
a1,a2 : string;
procedure TForm1.Button2Click(Sender: TObject);
begin
a1 := copy(bno,kk1,1);
a2 := copy(bno,kk2,1);
edit2.Text := a1+a2;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
keta := edit2.text;
k1 := copy(keta,1,1);
kk1 := strtoint(k1);
k2 := copy(keta,2,1);
kk2 := strtoint(k2);
end;
コンパイルは通るのに実行するとエラーが出ます（涙）
735:デフォルトの名無しさん
08/05/21 21:30:36
edit2でキー押したとたんに落ちたの？>>734
736:デフォルトの名無しさん
08/05/21 21:32:51
とりあえず書き方がうざすぎる
737:デフォルトの名無しさん
08/05/21 21:33:00
>>735
はい。
デバッガ例外通知が出たので
継続ってすると
”は整数ではありません
と怒られました。
738:デフォルトの名無しさん
08/05/21 21:33:35
>>734
bnoには何が入ってるのよ
739:デフォルトの名無しさん
08/05/21 21:34:50
>>738
ほかのEditから取り込んだ数値が入ってます。
740:デフォルトの名無しさん
08/05/21 21:39:46
>>739
↓この行にブレークポイント置いてketaの中身をチェックしてみ
k1 := copy(keta,1,1);
741:デフォルトの名無しさん
08/05/21 21:43:16
>>740
やってみます。
ありがとうございました
742:デフォルトの名無しさん
08/05/21 21:45:58
とりあえず１度深呼吸してからヘルプのOnChangeを10000回ぐらい読んでこい>>741
743:デフォルトの名無しさん
08/05/21 21:47:05
Edit&数値処理の基本
var
n: Integer;
begin
try
n := IntToStr(Edit1.Text);
ShowMessage(Format('%dの二倍は%d', [n, n * 2]));
except
ShowMessage(Edit1.Text + 'は数値ではない');
end;
end;
744:デフォルトの名無しさん
08/05/21 21:50:31
>>740
>>742
>>743
EditChangeに入れてた式を
ButtonClickに移動したらエラーが出なくなりました。
もっと勉強します
745:デフォルトの名無しさん
08/05/21 21:51:48
例外がどこで起こってるかくらいてめぇで調べられないのかよ・・・
嘆かわしいのぅ
746:デフォルトの名無しさん
08/05/21 21:54:31 BE:348454-PLT(12660)
>>744
頑張ってね
747:デフォルトの名無しさん
08/05/21 22:56:18
IDEで挿入されるもの以外小文字で書いてる人よく見るけど見づらくないのかな
748:デフォルトの名無しさん
08/05/21 23:16:44
大文字と小文字が区別されないという特徴をうまく使っていると思っている方々なんですよ、わかりません。
749:デフォルトの名無しさん
08/05/22 04:34:37
TDateTimePickerのKindプロパティをdtkTimeにし、Formatプロパティに日付を表示するように設定した場合、
日付を編集し、その後に時刻を編集すると日付が元に戻ってしまうのですが、
OnChangeなどを監視するなどしか対策方法はないでしょうか
ヘルプには
「Format プロパティに日付フィールドのコードが含まれている場合には日付部分も編集できます。」
と書いてあるのに・・・
750:716
08/05/22 10:04:22
>>718-719
ありがとうございました
751:デフォルトの名無しさん
08/05/22 19:06:30
Delphi5, TStringGrid にデータ表示
１レコード１行の場合OnDrawCellイベントで
if Grid.Row = ARow then
begin
Grid.Canvas.Brush.Color := '紺色';
Grid.Canvas.Font.Color := '白色';
Grid.Canvas.FillRect(Rect);
end
else
begin
Grid.Canvas.Brush.Color := Grid.Color;
Grid.Canvas.Font.Color := Grid.Font.Color;
Grid.Canvas.FillRect(Rect);
end;
として、フォーカスが当たっているように見せています。
１レコード２行の場合はどうすればいいでしょうか？
Grid.Row が2の倍数で ARow = Grid.Row + 1
Grid.Row が2の倍数以外で ARow = Grid.Row - 1 の条件の時にも
背景・前景色を変更したけど、フォーカス色が残ってしまう場合があります。
OnDrawCell内で Grid.Repaint; を実行するとチラつきます。
Grid.Invalidate; だと さらに チラつきっぱなしです。
複数行フォーカスってどうやるんでしょうか？
752:デフォルトの名無しさん
08/05/22 19:33:21
>>751
一行が二行に見えるように描画すればいい。
753:デフォルトの名無しさん
08/05/23 10:53:01
Delphi過去ログ検索が見つからないのですが、
もしかして畳んでしまわれたのかな・・・？
URLﾘﾝｸ(leed.issp.u-tokyo.ac.jp)
754:デフォルトの名無しさん
08/05/23 11:16:34
>>753
みたいです。MLでも話題になっています
755:デフォルトの名無しさん
08/05/23 15:10:14
Webサーバのあるディレクトリのファイル名の一覧を FindFirst, FindNext
みたいに HTTPで取得する方法ってあります？Delphi7 + Indy9 ですけど
756:デフォルトの名無しさん
08/05/23 16:55:39
お前は行ったことの無い店の商品が分かるのか？
そういうことだ
でも店によっちゃホームページとかで公開してる場合もある
それと同じようにファイル一覧が見れるページもある
757:デフォルトの名無しさん
08/05/23 17:56:19
出来たらCGIがスケスケで大問題だね
758:デフォルトの名無しさん
08/05/23 17:56:57
>>753-754
MLにご本人からポストがありましたがWeb鯖が停止しているだけのようで。
閉鎖の予定は無いそうですよ。
759:デフォルトの名無しさん
08/05/23 19:08:33
>>756 >>757
あ、自分のサーバーなんです。ユーザーに配るプログラムから、
特定のディレクトリのファイルを全部 GET でダウンロードできるように
したいと思いまして（そこに置くファイルは変化します）。
でも出来ないみたいなのかあ。
760:デフォルトの名無しさん
08/05/23 19:12:38
>>759
それなら、ファイルの一覧を取得して返すCGIを置いといて、それにアクセスすればいいと思うよ
761:デフォルトの名無しさん
08/05/23 19:31:11
自鯖ならFTPか何かで取得してもいいんじゃ？
762:デフォルトの名無しさん
08/05/23 20:34:51
あ、そうか。CGI方式もFTPでもいけそうかあ。
ありがとう。FTPはパスワード変更しそうなんでCGIで検討してみます。
# 最初の質問、説明不足でスミマセンでした。
763:デフォルトの名無しさん
08/05/23 23:13:48
TComboBoxでドロップダウンのアイテム選択しているとき、
DELキーを押したら選択アイテムをItemsからむ削除したいんだけど出来るかな？
ブラウザの検索履歴を消すイメージで
764:デフォルトの名無しさん
08/05/23 23:18:07
そりゃできるだろ
765:デフォルトの名無しさん
08/05/23 23:21:07
>>764
どーやるの？
766:デフォルトの名無しさん
08/05/23 23:29:11
どこがわからないんだよ
767:デフォルトの名無しさん
08/05/23 23:29:52
こいつのがんばり方が正直よくわからない
768:デフォルトの名無しさん
08/05/23 23:55:45
TComboBoxでやるのは意外と大変かもよ。
ブラウザは独自のComboBoxもどきでしょうね。
769:デフォルトの名無しさん
08/05/24 00:04:18
>>766
itemsの中身がペロッと出て、
そのペロッと出たリストを選んでいる状態で、
DELキーを押したときの処理なんだけど…
説明がヘタですまん
770:デフォルトの名無しさん
08/05/24 00:08:32
ボタンイベントを監視してDELが押されたら現在選択中の番号取得してそこをリストから削除すりゃーいい話だろう
771:デフォルトの名無しさん
08/05/24 00:12:22
ん？よくわからないんだがこれじゃだめなの？
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
i:integer;
begin
if key=VK_DELETE then
for i:=0 to combobox1.Items.Count-1 do
if combobox1.Text=combobox1.Items[i] then combobox1.Items.Delete(i);
end;
772:デフォルトの名無しさん
08/05/24 00:15:18
あぁItemIndex使えばいいか
773:デフォルトの名無しさん
08/05/24 00:18:20
keyPressだとうまく行かなかったけど、KeyDownならうまく行きそうだね
>>771
ありがとう
774:デフォルトの名無しさん
08/05/24 00:36:26
たびたびすいません
>>771でうまくいったと思うんだけど、
ペロッと出してない状態でも、textにitemsと同じ文字列が入ってる状態で
DELキー押すとitemsから削除されちゃうのは、しょうがないですかね？
775:デフォルトの名無しさん
08/05/24 00:39:13
>>774
DroppedDownは？
776:デフォルトの名無しさん
08/05/24 00:43:24
>>775
それはイベントですか？
DroppedDownの意味がわからなくてすいません
777:デフォルトの名無しさん
08/05/24 00:44:25
ヘルプは？
778:デフォルトの名無しさん
08/05/24 00:47:27
>>777
ヘルプに乗ってました
↓こうしたらうまくいきました
助かりました！
if (ComboBox1.DroppedDown) and (key=VK_DELETE) then begin
779:デフォルトの名無しさん
08/05/24 00:53:43
ループしてる時に固まることがあるのでUpdateWindowを毎回やってるのですが、それでも固まってしまいます
UpdateWindowよりも確実な方法はあるのでしょうか？
Application.ProcessMessageは遅い印象があるので使いたくないです
780:デフォルトの名無しさん
08/05/24 00:56:39
>>779
スレッドに分ける
781:デフォルトの名無しさん
08/05/24 01:05:51
>>780
なるほど、マルチスレッドにはあまりしたことがないので思いつきませんでした
ですがループで毎回メインフォーム弄ってたらそれも遅くなったりしませんかね？
782:デフォルトの名無しさん
08/05/24 02:02:11
>779
> Application.ProcessMessageは遅い印象があるので使いたくないです
印象だけで排除するのはどうよ？つかたぶんその印象は間違っている。
783:デフォルトの名無しさん
08/05/24 03:52:27
>>781
自分で考えてください
784:デフォルトの名無しさん
08/05/24 07:08:07
>>779
・マルチスレッド化する
・Sleep();を入れる
マルチスレッドにしてもWait入れたりSleepしないと重くなるけどな
785:デフォルトの名無しさん
08/05/24 08:37:59
特定のコンポーネントの表示を頻繁に行いたいなら
ListBox1.Items.Add('foo');
ListBox1.Repaint
みたいにすればいいし、ウィンドウのリサイズなんかの操作が固まるのを避けたいなら
Application.ProcessMessagesかスレッド使うしかない。
どうやるにしろ表示の更新は重いのには変わりない。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4926日前に更新/238 KB
担当:undef