StringGrid即時更新的問題？ |
|
尚未結案
|
|
sport_jeff
一般會員   發表：4 回覆：8 積分：2 註冊：2004-01-03 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 現在在寫一支程式，而是用到StringGrid，因為要做到數字會有三位一撇(1,234,567)的功能，有看到前面的文章有介紹到是用formatfloat，但是不曉得到底該放在哪個事件去觸發，才會讓它做三位一撇，我試過很多事件了，但都是沒辦法做到說，當我在這個第一行第一列的時候輸入數字後，再做三位一撇，要不然就會有些事件中，是我只要在該行輸入數字，就會做一次三位一撇的動作，這樣子就會出現誤誤訊息了。不曉得到底該怎麼去處理~~~~~~這要分好幾段來寫, 因為 stringgrid 的 cell 型態是 string, 所以不可能直接來處理, 以下是我寫的一個簡單demo, 參考變通一下, 可以做到你想要的結果
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids; type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: String);
procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
keyend: boolean;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
IF KEYEND THEN STRINGGRID1.CELLS[ACOL, AROW]:= FORMAT('m',[Strtofloat(STRINGGRID1.CELLS[ACOL, AROW])]);
end; procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
keyend:= Key=VK_RETURN;
end; end.
|
|
sport_jeff
一般會員 發表：4 回覆：8 積分：2 註冊：2004-01-03 發送簡訊給我 |
|
|
sport_jeff
一般會員 發表：4 回覆：8 積分：2 註冊：2004-01-03 發送簡訊給我 |
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With StringGrid1 do
if(ACol=1)and(Cells[ACol,ARow]<>'') then begin
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left 2,Rect.Top 4, Format('m',[StrToFloatDef(Cells[ACol,ARow],0)]) );
end;
end;
顯示歸顯示，資料歸資料!!
|
|
P.D.
版主 發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: For P.D 你的方法可以了，我會出現那個錯誤訊息是因為我讓他一直去跑CELLS[1,1],所以會出現，但是用你的方法就行了，因為它會跑該筆陣列。但是想問一下，這樣子的話，該欄位的型態會是字串嗎？因為我在做加總的時候會出現is not a valid floating point value錯誤訊息。 FToTal:=FToTal strtofloat(STG1.Cells[mi,1]);我不清楚你的加總是如何做, 放在那裡, 但我提過 cell 一定是string型態 你會出問題是在 strtofloat(stg1.cells[mi,1]) 如果該cell為空白時, 代表cell值是'', 而 strtofloat()是不允參數為null值的, 當然就會出現 not a valid float 錯誤 因此你必須另外封包這段 try tempnum:= strtofloat(....); except tempnum:= 0; end; FToTal:=FToTal tempnum; // tempnum宣告為 double 這樣在runtime期間執行時便不會有錯誤發生 |
發表時間：2005-08-27 00:52:37
IP:220.138.xxx.xxx 未訂閱
系統時間：2024-05-19 14:42:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |