各位大大你們好
小弟的StringGrid 列出來之後 該怎麼利用
SaveDialog如何寫StringGrid的存檔呢?

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

SaveDialog只是提供一個檔案名稱,
至於StringGrid的內容,
則看您要如何儲存的檔案內容而定,

一般而言,
可以設定一個 StrList: TStrings;

StrList:= TStringList.Create;
StrList再用For Loop方式
陸續將每個ROW加入String,
最後再用StrList.SaveToFile的方法,
即可儲存檔案!

還原就用StrList.LoadFromFile,
再依序放回StringGrid.

How do I Save/Load a TStringGrid to/from a file?
Author: Thomas Stutz
[ Print tip ]

Tip Rating (6):

// Save a TStringGrid to a file

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
// Write number of Columns/Rows
Writeln(f, ColCount);
Writeln(f, RowCount);
// loop through cells
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

// Load a TStringGrid from a file

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
iTmp, i, k: Integer;
strTemp: String;
begin
AssignFile(f, FileName);
Reset(f);
with StringGrid do
begin
// Get number of columns
Readln(f, iTmp);
ColCount := iTmp;
// Get number of rows
Readln(f, iTmp);
RowCount := iTmp;
// loop through cells & fill in values
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;


// Save StringGrid1 to 'c:\temp.txt':

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveStringGrid(StringGrid1, 'c:\temp.txt');
end;

// Load StringGrid1 from 'c:\temp.txt':

procedure TForm1.Button2Click(Sender: TObject);
begin
LoadStringGrid(StringGrid1, 'c:\temp.txt');
end;
參考http://www.swissdelphicenter.ch/torry/showcode.php?id=941

------
What do we live for if not to make life less difficult for each other?

To christie 大大

可以存檔了 可是有各疑問
存檔之後的檔案 裡面都只是一直往下列
我希望能儲存成EXECL 耶

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=22993
XLSFile.pas
提供了,
DataSet to Excel,
StringGrid to Excel
而且操作者端,
不需要安裝EXCEL,
應該更好用吧!!

編輯記錄

implementation
uses comobj;
...

function RefToCell(ARow, ACol: Integer): string;
begin
Result := Chr(Ord('A') ACol - 1) IntToStr(ARow)
end;
function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
const
xlWBATWorksheet = -4167;
var
Row, Col: Integer;
GridPrevFile: string;
XLApp, Sheet,
Data: OLEVariant;
i, j: Integer;
begin
// Prepare Data
Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
for i := 0 to AGrid.ColCount - 1 do
for j := 0 to AGrid.RowCount - 1 do
begin
//IF J=2 THEN
// Data[j 1, i 1] :='''' AGrid.Cells[i, j]
//ELSE
Data[j 1, i 1] := AGrid.Cells[i, j];
end;
// Create Excel-OLE Object
Result := False;
XLApp := CreateOleObject('Excel.Application');
try
// Hide Excel
XLApp.Visible := False;
// Add new Workbook
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := ASheetName;
// Fill up the sheet
Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,
AGrid.ColCount)].Value := Data;
// Save Excel Worksheet
XLApp.Columns.AutoFit;
try
XLApp.Workbooks[1].SaveAs(AFileName);
Result := True;
except
// Error ?
end;
finally
// Quit Excel
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
end;
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if SaveAsExcelFile(sG1, 'XLS_名單', 'c:\XLS-1.xls') then
ShowMessage('StringGrid1 saved!');
end;
===================引 用 lovemari 文 章===================
To christie 大大

可以存檔了 可是有各疑問
存檔之後的檔案 裡面都只是一直往下列
我希望能儲存成EXECL 耶

------
What do we live for if not to make life less difficult for each other?

編輯記錄

Dear Christie 大大

他說這段有錯誤..
XLApp := CreateOleObject('Excel.Application');

是不是該下USES什麼或者TYPE ???

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

Uses Comobj;
===================引 用 lovemari 文 章===================
Dear Christie 大大

他說這段有錯誤..
XLApp := CreateOleObject('Excel.Application');

是不是該下USES什麼或者TYPE ???

Yes!

Uses Comobj;

------
What do we live for if not to make life less difficult for each other?

Thanks!!

已經可以了

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

想在請教

我想把存檔自動用日期當作檔名
然後改成下列 卻無法執行
是那裡有問題嗎??


[code delphi]
procedure TForm1.Button13Click(Sender: TObject);
begin
if SaveAsExcelFile(StringGrid1, 'SPC報表', 'C:\' DateTimeToStr(DateTimePicker.DateTime)) then
ShowMessage('存檔成功');
end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

===================引 用 lovemari 文 章===================
想在請教

我想把存檔自動用日期當作檔名
然後改成下列 卻無法執行
是那裡有問題嗎??


[code delphi]
procedure TForm1.Button13Click(Sender: TObject);
begin
// if SaveAsExcelFile(StringGrid1, 'SPC報表', 'C:\' DateTimeToStr(DateTimePicker.DateTime)) then
if SaveAsExcelFile(StringGrid1, 'SPC報表', 'C:\' FormatDateTime('YYYYMMDD', DateTimePicker.Date) then // 改這樣試看看

ShowMessage('存檔成功');
end;
[/code]

感謝MAX 大大 

可以了

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet