C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp

C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp at TECH

822:デフォルトの名無しさん
09/04/04 09:57:25
>>821
ファイルリストボックスでtxtを読み込み、右のテキストボックスにファイルの内容を
読み込む、ｔｘｔTextArea_change()にてテキストの変更があったらセーブする。
この場合ファイルの読み書きにファイル番号が必要だけど、ちゃんと読み書きする
ファイル番号はイベントプロシージャ毎にCloseしてるはずなんだけど、プロシージャを
超えてファイル番号は使われてます、となる。だからスコープが関係してるかなと思い、
SubはPrivateと書いたんだけど、意味は伝わったのかな？

ちなみに書き込み時のソース

Private Sub Savetiming()
Dim fd As Integer
Dim writetext As String

writetext = lstFile.Path & "\" & lstFile.FileName

fd = FreeFile
Open writetext For Output As #fd
Print #fd, txtTextArea.Text

Close #fd

End Sub

読み込み時のソースは上記の通り。もしかしてText1.textを表示するとファイルは開かれた
ままになるんでしょうか？文字列変数を用意して代入してもいいけど、そうなると
ファイルを読み込むたびに先頭にCRLFが挿入されるっす・・・・
ソースください、ソース。

次ページ

続きを表示

1を表示