くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net ->画像>4枚

475デフォルトの名無しさん2018/04/09(月) 18:30:51.81ID:BomKXXDR

>>473
＞FileName1自体はあっちこっちで参照するので、Private 宣言部で定義させています。
あちこちで参照するってことは
procedure TForm1.FilesDropped(var Msg1: TWMDropFiles);　で使われている FileName1:と
procedure TForm1.PlayBtnClick(Sender: TObject);　で使われている FileName1: は同一のものということにしたいんだろ？
それぞれのプロシージャでFileName1: string;って宣言してたら「あちこちで参照する」ことは出来ないぞ

＞Private 宣言部で定義させています。
とりあえずそれはそのまま、TForm1.FilesDropped()とTForm1.PlayBtnClick()の中で宣言しているFileName1: string;を消す

476デフォルトの名無しさん2018/04/09(月) 18:57:48.34ID:BomKXXDR

>>473
やっとソースDLできたｗ
ざっと見た限り

原因：
TForm1.FilesDropped()でFileName1 にファイル名を代入しているが、
この FileName1 はTForm1.FilesDropped（）の中で宣言されているため
TForm1クラスのprivate部で宣言されたFileName1とは別物

対策：
TForm1.FilesDropped()の中で書かれている FileName1: string; という宣言を消す
そうすればTForm1クラスのprivate部で宣言されたFileName1に代入されることになり
TForm1.PlayBtnClick()で使われているFileName1と同じになる

原因：
＞mciSendString(PChar('open"' + FileName1 + '"type MEPGVideo' + 'alias MusicFile'), nil, 0, 0);
いろいろ半角スペースが足りない、余分な文字列の連結

対策：
適宜スペースの追加、たぶん、こう？↓
mciSendString(PChar('open "' + FileName1 + '" type MEPGVideo alias MusicFile'), nil, 0, 0);

それと str : string; と LFileName: String; も重複して宣言されているので注意
strに関しては使用目的が分からんのでなんとも言えないけどLFileNameのような使い方をするのであれば
クラスでの宣言は消したほうが良いと思う（不必要にスコープ（参照できる範囲）を広げない）
FileName1にしてもクラス変数として使うのなら変数名を変えて分かりやすくしたほうがよいかと
xxxxx1とかxxxxx2なんてのは関数内の一時的な変数として宣言しがちだと思うので

くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net ->画像>4枚

ID:BomKXXDRのレス一覧：