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 也是一樣 使用引數方式...