向前輩們請教兩個技術性問題 |
|
答題得分者是：supman
|
|
BIG-ROM
初階會員   發表：94 回覆：91 積分：37 註冊：2005-04-16 發送簡訊給我 |
|
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
1.
第一個看董,您是要得到值嗎?
Lable1.Caption:=StringGrid.Cells[0,0]; 2.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=StrToInt(Edit1.Text);
case i of
1: ShowMessage('1');
2: ShowMessage('2');
3: ShowMessage('3');
4: ShowMessage('4');
end;
end;
|
|
BIG-ROM
初階會員 發表：94 回覆：91 積分：37 註冊：2005-04-16 發送簡訊給我 |
感謝supman 前輩的熱心幫忙，第二個問題已經得到滿意的解決了，但第一個問題仍無法通過。 Sorry !開頭忘記說是指DBGridEh1的記錄數， Lable1.Caption:=StringGrid.Cells[0,0]; 請問前輩是否應該可以改成： Lable1.Caption:=StringDBGridEh1.Cells[0,0]; 但我嘗試將這串程式碼放到FormCreate(Sender: TObject)之內，但出現無法顯示表格的記錄數，請問前輩如何實現？
引言: 1. 第一個看董,您是要得到值嗎? Lable1.Caption:=StringGrid.Cells[0,0]; 2. procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=StrToInt(Edit1.Text); case i of 1: ShowMessage('1'); 2: ShowMessage('2'); 3: ShowMessage('3'); 4: ShowMessage('4'); end; end; |
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
|
|
BIG-ROM
初階會員 發表：94 回覆：91 積分：37 註冊：2005-04-16 發送簡訊給我 |
發表時間：2005-04-18 01:21:36
IP:219.130.xxx.xxx 未訂閱
系統時間：2024-07-08 6:35:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |