各位先進.
在下在做轉出資料為excel時.原資料庫裡的資料為02001,而轉到excel欄位時,最前方的0卻省略掉,
有去爬文,解決方式是在02001前面加一個 ' 這樣在excel時就會被認定為文字格式,0就不會不見,
但問題來了.我在delphi裡要如何下加上'的語法呢
例如 MsexcelWorksheet.Cells[j 1,1]:= ' ' ' wwQuery1.FieldByName('code').AsString;
紅色部份它會出錯.因為二個單引號表示字串意思.我要如何加上去呢? 謝謝

1. 單引號的用法是兩個單引號沒錯，但是你要記得字串本身也是要兩個單引號括住，所以字串只包含單引號應該用''''
2. 應該是檔案中使用單引號將數值括住，所以你應該在字串的前後都加上單引號
3. 如果嫌麻煩或不好看，內建函數QuotedStr是不錯的選擇
4. 請將先前未結案的問題結案。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄

3q.  先前未結案的問題之前我以結案了.謝謝
===================引 用 Coffee 文 章===================
1. 單引號的用法是兩個單引號沒錯，但是你要記得字串本身也是要兩個單引號括住，所以字串只包含單引號應該用''''
2. 應該是檔案中使用單引號將數值括住，所以你應該在字串的前後都加上單引號
3. 如果嫌麻煩或不好看，內建函數QuotedStr是不錯的選擇
4. 請將先前未結案的問題結案。

提供你另一種設定, 不需要加 " 符號, 因為這樣加會在Excel 的 Cell格式有一個 ' 符號

// 設定為文字格式
sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A:E'];
sheetrange.Columns.NumberFormatLocal:= '@';

嗯.我試看看.謝謝您
===================引 用 P.D. 文 章===================
提供你另一種設定, 不需要加 " 符號, 因為這樣加會在Excel 的 Cell格式有一個 ' 符號

// 設定為文字格式
sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A:E'];
sheetrange.Columns.NumberFormatLocal:= '@';