如何使用文字檔來存取 ListBox 內的資料？ 下面的是vb的語法  

Private Sub Form_Load()
   If Dir(App.Path & "\List_IO.txt") = "List_IO.txt" Then
     Dim wstr As String
     Open App.Path & "\List_IO.txt" For Input As #1
     Do While Not EOF(1)  
      Input #1, wstr
      List1.AddItem wstr
     Loop
    Close #1
  End If
End Sub    Private Sub Form_Unload(Cancel As Integer)
  Dim i As Integer
  Open App.Path & "\List_IO.txt" For Output As #1
    For i = 0 To List1.ListCount - 1
        Print #1, List1.List(i)
    Next
    Close #1
End Sub

~我還在學習狀態希望多多向您學習~ 發表人 - taishyang 於 2004/04/28 13:41:19

上面的code是參考用不是有問題 我只是想翻成bcb可是翻不起來 ~我還在學習狀態希望多多向您學習~

Hi kraen4468:      我想你應該是想要用ListBox載入一個文字檔的內容吧!試試下面的Code    

 
  TOpenDialog *dlgOpen = new TOpenDialog(this);      if(dlgOpen->Execute())
  {
    ListBox1->Items->LoadFromFile(dlgOpen->FileName);
  }      delete dlgOpen;

-------------------------- ～天下本無事 庸人自擾之～

Windyboy大大: 我試不出來指定某個text.txt檔開起 ~我還在學習狀態希望多多向您學習~

Hi:      假設你的Form上現在放有一個Button跟一個ListBox, 還有一個檔案    C:\text.txt  存在, 那在你Button的Click Event內就寫下面那樣,    就可以載入該檔, 而ListBox1->Items->SaveToFile("C:\\text.txt");    就可以儲存該檔.^_^    

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ListBox1->Items->LoadFromFile("C:\\text.txt");
}

-------------------------- ～天下本無事 庸人自擾之～