实在不晓得咋给编了。。

foxyu0117

Procedure Tform2.Combobox1change(Sender: Tobject);
var
  intnumber1:integer;
Begin
  For intnumber1:=0 to (Combobox1.Items.Count-1)do
    Combobox2.itemindex:=Combobox1.itemindex;
  intnumber1:=Form2.Combobox1.ItemIndex;
  Form2.Memo1.Text:='D:\Foxyu\Chinese\Essay\'+Form2.Combobox1.Items.ValueFromIndex[intnumber1]+'.txt';
  if FileExists(Form2.Memo1.Text) then
    Form2.Memo1.Text:=(Form2.Memo1.Text)
    else ShowMessage('无法找到该文章内容');
End;   

很明显的晓得if判断那里出错了，但是应该怎么编呢？

chenyuchih

請問有錯誤訊息嗎？是編完以後執行有問題還是根本就編不過？

如果是執行期才有問題，我在猜是不是檔案名稱有不合法字元(比如說換行符號？)；如果是這樣的話，可以在if前加個showmessage(Form2.Memo1.Text)看看。

foxyu0117

其实编译的时候是过了的，只是不管怎么弄都显示“

无法找到该文章内容

”

chenyuchih

先確認Form2.Memo1.Text內容(也就是檔案名稱)是正確與合法的(中間沒有奇怪的字元或斷行)，或是把FileExist(Form2.Memo1.Text)改成FileExist(trim(Form2.Memo1.Text))，可避免非顯示字元(我在使用時最常見的是換行符號或是Tab鍵)出現在頭尾的狀況。

再不然在 if 判斷式之前加上以下兩行協助判定(TMPStr是String)
TMPStr:='!'+Form2.Memo1.Text+'!';
showmessage(TMPStr);
看看是不是檔名頭尾多了空白或是奇怪的東西......