掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Buttonが化けてしまうのですが・・・ (ID：30211)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 CSV形式ファイルの、特定の項目だけ抜き出し、番号を付けて、Memo1に表示しようとしています。 これで、読めては、いるのですが、押したボタンButton1が化けてしまいます。 読み込み後は、綺麗な姿に戻るのですが、何が原因なのかわかりません。 次のように書いたのですが、何か問題が、ありますでしょうか？ よろしくお願ねがいします。（Delphi6pro+Windows XP） なお、Mr.XRAYのplButtonを使わせてみたところ問題なく見えます。 procedure TForm1.Button1Click(Sender: TObject); var A,F_name: String; SL1, SL2 : TStringList; I:Integer; begin if OpenDialog1.Execute then begin SL1 := TStringList.Create; SL2 := TStringList.Create; F_name := OpenDialog1.Filename; try SL1.LoadFromFile( OpenDialog1.FileName ); for I := 0 to SL1.Count-1 do begin SL2.CommaText := SL1[I]; A:=IntToStr(I+1)+', '+SL2[3]+', '+SL2[5]+', '+SL2[6]+', '+SL2[7]+','; Memo1.Lines.Add(A); end; finally SL2.Free; SL1.Free; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.