請問:
sorry剛問錯地方問到delphi~現在在改在bcb這問一次
我在我的畫面中有使用3個StringGrid顯示我的資料,然後我把上面的資料都存成txt後要如果把txt內容印出?
已經看過前幾篇文章但是看不動他們的寫法,我使用這個PrintDialog1可以嗎?


[code cpp]
//儲存目前所有資料 模式名稱 日期時間
//把預覽區的資料儲存為txt文字檔
TStringList* SL = new TStringList();
AnsiString Temp;
unsigned int i,w,MenCnt_tmp;
//------------------------------------------------------
if( SaveDialog1->Execute() )
{
String Yer=YearOf(Now()); //讀取年
String Mon=MonthOf(Now());//讀取月
String Day=DayOf(Now()); //讀取日
String Hur=HourOf(Now()); //讀取時
String Min=MinuteOf(Now());//讀取分
String Sec=SecondOf(Now());//讀取秒
Temp ="模式: " Label1->Caption "\n";
Temp ="日期: " Yer "/" Mon "/" Day "\n";
Temp ="時間: " Hur ":" Min ":" Sec "\n";
//----------------------------------------------------------------------
Temp =Label2->Caption "\n";
for( i=0; i {
for( w=0; w<4; w )
{
if( w<3 )
{
if( i == 0 )
{
Temp =StringGrid1->Cells[w][i] " "; //第一行標題空格較短
}
else
{
//-------------------------------------------------------
//對應不同位數格數改變空格
if( i<10 )
{
Temp =StringGrid1->Cells[w][i] " "; //左邊編號0~100要不同空格對齊
}
else if( i<100 )
{
Temp =StringGrid1->Cells[w][i] " ";
}
else Temp =StringGrid1->Cells[w][i] " ";
//對應不同位數格數改變空格
//-------------------------------------------------------
}
}
else
{
Temp =StringGrid1->Cells[w][i] " " "\n";
Temp =
"---------------------------------------------------------\n";//每行的分格線
}
}
}
//---------------------賽道2資料讀取------------------------------------
Temp =Label3->Caption "\n";
for( i=0; i {
for( w=0; w<4; w )
{
if( w<3 )
{
if( i == 0 )
{
Temp =StringGrid2->Cells[w][i] " "; //第一行標題空格較短
}
else
{
//-------------------------------------------------------
//對應不同位數格數改變空格
if( i<10 )
{
Temp =StringGrid2->Cells[w][i] " "; //左邊編號0~100要不同空格對齊
}
else if( i<100 )
{
Temp =StringGrid2->Cells[w][i] " ";
}
else Temp =StringGrid2->Cells[w][i] " ";
//對應不同位數格數改變空格
//-------------------------------------------------------
}
}
else
{
Temp =StringGrid2->Cells[w][i] " " "\n";
Temp =
"---------------------------------------------------------\n";//每行的分格線
}
}
}
//-----------------------最後結果資料讀取-------------------------------
Temp =Label4->Caption "\n";
if(Mode_cnt)
MenCnt_tmp=total_row 1;
else //這邊因為模式不同,0~200是所有都讀取,決賽是只取贏的一方
MenCnt_tmp=(total_row*2) 1;
for( i=0; i {
for( w=0; w<4; w )
{
if( w<3 )
{
if( i == 0 )
{
Temp =StringGrid3->Cells[w][i] " "; //第一行標題空格較短
}
else
{
//-------------------------------------------------------
//對應不同位數格數改變空格
if( i<10 )
{
Temp =StringGrid3->Cells[w][i] " "; //左邊編號0~100要不同空格對齊
}
else if( i<100 )
{
Temp =StringGrid3->Cells[w][i] " ";
}
else Temp =StringGrid3->Cells[w][i] " ";
//對應不同位數格數改變空格
//-------------------------------------------------------
}
}
else
{
Temp =StringGrid3->Cells[w][i] " " "\n";
Temp =
"---------------------------------------------------------\n";//每行的分格線
}
}
}
//-------把資料存進.txt檔案---------------------------------------------
SL->Text=Temp;
SL->SaveToFile( SaveDialog1->FileName ".txt");//固定檔案類型儲存副檔名
delete SL;
}
請在此區域輸入程式碼
[/code]

最後存完後如何在把txt檔案印出,麻煩傳授一下

------
vincent

你可利用TRichEdit去列印.

不好意思那個功能怎麼使用呀,我不會用可以給我一點範例嗎,謝謝!!

------
vincent