procedure tfrmtracereport.dbgrid1titleclick(column: tcolumn);
var sortfield, fieldtitle: string;
begin
sortfield := column.field.fieldname;
fieldtitle := column.title.caption;
showmessage(sortfield + ' ' + fieldtitle);
if pos('▲', fieldtitle) > 0 then
begin
connectdm.adoqrytracereport.sort := sortfield + ' asc';
fieldtitle := stringreplace(fieldtitle, '▲', '▼', [rfreplaceall]);
endelse if pos('▼', fieldtitle) > 0 then
begin
connectdm.adoqrytracereport.sort := sortfield + ' desc';
fieldtitle := stringreplace(fieldtitle, '▼', '▲', [rfreplaceall]);
endelse
begin
connectdm.adoqrytracereport.sort := sortfield + ' desc';
fieldtitle := fieldtitle + '▼';
end;
dbgrid1.columns[column.index].title.caption := fieldtitle;
end;
Delphi7遠端除錯
自己的開發機器稱為主機,執行程式的機器稱為目標機 一 在主機編譯執行程式 1 project options linker中的exe and dll options選項組中的include remote debug symbols打上勾,這樣就可以生成rsm為副檔名的檔案,該檔名稱於你的專案同名。2...
Delphi7 動態陣列
初學delphi,感覺.這感覺就是寫 太費勁了,已經習慣了c 那種信手拈來,不能說pascal不適應只能說還是費勁,可能是d7太老了,也可能是我還沒有上道兒,就這麼著吧,下面簡單的寫倆函式作為參考,修改修改可以當c 中的list 用arr array of string procedure add ...
Delphi7中儲存unicode的BUG?
delphi7 中儲存unicode 的bug 近日,在用 delphi7 做unicode 的程式時發現了這樣乙個問題,就是使用 tado mand 元件執行 sql語句時,如果 sql語句中有 unicode 字元,儲存在資料庫裡會出現亂碼,使用 ttntadoquery 也是一樣 使用引數方式...