1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3. iRow, iCol : integer;
4. sl, sl2 : Tstringlist;
5. begin
6. sl := Tstringlist.create; // 一列一列讀入檔案
7. sl2 := Tstringlist.create; // 每列切割成四欄
8. try
9. // 載入檔案
10. sl.LoadFromFile(extractfilepath(application.ExeName) 'itsgero2798.txt');
11. StringGrid1.RowCount := sl.count; // 設定StringGrid Row
12. StringGrid1.ColCount := 4; // 設定StringGrid Column
13. for iRow := 0 to sl.count-1 do begin
14. sl2.Text := stringreplace(sl[iRow],'","',#13,[rfReplaceAll]); // 以","切割
15. sl2.Text := stringreplace(sl2.text,'"','',[rfReplaceAll]); // 清除剩下的"
16. for iCol := 0 to sl2.count-1 do begin
17. StringGrid1.Cells[iCol,iRow] := sl2[iCol]; // 賦值
18. end;
19. end;
20. finally
21. freeandnil(sl);
22. freeandnil(sl2);
23. end;
24. end;

請問一下各位大大~
我要把上面轉成bcb的程式
我在14至18行
一直出現問題
希望各位大大可以幫我解答

謝謝.....

編輯記錄

錯誤是怎樣的錯誤法?
可以的話~把程式碼貼上來~
這樣大家比較好知道您的問題在哪裡^^
附上以下的連結
希望對您有用

http://delphi.ktop.com.tw/board.php?cid=168&fid=1499&tid=98888#3

我比較不懂第十三行到第十八行在做什麼
希望可以幫我解說一下
真的看不太懂...
也不知道怎麼轉BCB的語言....
ORZ

編輯記錄

我判斷這是處理原文件格式為
// a 列 變為
"123
abc
456
def"
sl2.Text := stringreplace(sl2.text,'"','',[rfReplaceAll]); // 清除剩下的"
// 切好的一列放入 stringgrid 的一列
StringGrid1.Cells[iCol,iRow] := sl2[iCol]; // 賦值
end;

改寫成 bcb 要注意 字串表示法在 delphi 和 bcb 的不同
(bcb 中 雙引號字串要如何表達)

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.