全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:4328
推到 Plurk!
推到 Facebook!

bcb讀檔排序問題

答題得分者是:jimmychn
piliboy
一般會員


發表:4
回覆:8
積分:2
註冊:2008-08-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-09-05 07:27:24 IP:122.123.xxx.xxx 訂閱

請問各位高手我在button1開啟了txt,顯示在Memo1
然後我想在button2將Memo1的數據重新排序再顯示在Memo1,該怎麼做呢?


void __fastcall TForm1::Button1Click(TObject *Sender)
{
char s[65535];
AnsiString p;
ifstream inFile("C:\\bcb\\ex1\\a.txt");
while(!inFile.eof())
{
inFile.getline(s,sizeof(s));
p=s;
Memo1->Lines->Add(p);
}
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
}
------
有自信的人 不一定成功
但沒有自信的人 一定失敗
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-09-12 14:54:52 IP:211.20.xxx.xxx 訂閱
偷懶一點,使用ListBox→有Sorted功能。
或將Memo Copy 至 ListBox 執行Sorted完畢後再Copy回Memo

請參考
------
Andy Chang
piliboy
一般會員


發表:4
回覆:8
積分:2
註冊:2008-08-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-09-14 22:36:03 IP:122.123.xxx.xxx 訂閱
我會排序方法
只是不知道如何將記事本中的資料
儲存成陣列 再將他叫出運算
------
有自信的人 不一定成功
但沒有自信的人 一定失敗
jimmychn
一般會員


發表:3
回覆:21
積分:19
註冊:2002-09-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-09-23 23:11:52 IP:61.230.xxx.xxx 訂閱
利用串陣的串陣觀念就變成矩陣!
這就是CSV檔案格式囉!

[code cpp]
void LoadCSV(AnsiString fname)
{
TStrings *sListX=new TStringList();
TStrings *sListY=new TStringList();
sListY->LoadFromFile(fname); //讀檔
for(int y=0;yCount;y ) {
sListX->CommaText=sListY->Strings[y]; //取得ROW
for(int x=0;xCount;x ) {
StringGrid1->Cells[x][y]=sListY->Strings[x]; //取得COL或稱CELL
}
}
delete sListY;
delete sListX;
}
void SaveCSV(AnsiString fname)
{
TStrings *sListX=new TStringList();
TStrings *sListY=new TStringList();
sListY->Clear();
for(int y=0;yRowCount;y ) {
sListX->Clear();
for(int x=0;xColCount;x ) {
sListX->Add(StringGrid1->Cells[x][y]); //先加入CELL(COL)
}
sListY->Add(sListX->CommaText); //再加入ROW
}
sListY->SaveToFile(fname); //存成檔案
delete sListY;
delete sListX;
}
[/code]
------
>>>好心有好報
系統時間:2024-05-04 20:28:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!