BCB 筆記9 (String Replace)

既然使用 BCB 作為開發工具
不免俗就會常常使用他們的 String
這裡介紹 BCB 取代字串的方法

StringReplace(const UnicodeString Source, const UnicodeString OldPattern, const UnicodeString NewPattern, TReplaceFlags Flags);

    String Str;
    TReplaceFlags rf = TReplaceFlags()<<rfReplaceAll;
    Str = StringReplace(Str, L"@", L"\n", rf);

這裡的 TReplaceFlags 有兩種
rfReplaceAll -> 有這個參數會取代全部，無則只取代第一個
rfIgnoreCase -> 有這個參數會無視大小寫，無則會分辨大小寫

參考資料
http://www.cppfans.com/cbknowledge/reference/strings/stringreplace.asp

Read More

BCB OLE操作EXCEL(3)

在用 OLE 操作 Excel 時
有可能會遇到剪貼簿裡的資料過大
導致關閉 Excel 時跳出視窗警告
"是否放棄剪貼簿裡的資料"

要避開的話通常會用關閉 DisplayAlert 的方法來避免
但我常常失敗，原因不明。

所以給失敗的朋友另一個辦法
在 Excel 關閉前複製一格 避免剪貼簿裡資料過多跳出視窗

void __fastcall Excel::Close_2(){
    Exc.Range = Exc.WorkSheet.OlePropertyGet("Cells", 1, 1);
    Exc.Range.OleFunction("Copy");
    Exc.WorkBook.OleFunction("Close", false);
    Exc.App.Exec(Procedure("Quit"));
}

上一篇：
BCB OLE操作EXCEL (2)

Read More