請問錯在那? |
|
答題得分者是：jow
|
|
donlly
一般會員   發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer; fm:Tform;comb:tcombobox;
begin
fm:= form1;
comb:=combobox1;
comb.Clear ;
for i:= 0 to fm.DataSource1.DataSet.FieldCount-1 do
begin
comb.Items.Add(form1.DataSource1.DataSet.fields[i].fieldname);
end;
end; end.
[Error] Unit2.pas(34): Undeclared identifier: 'DataSource1'
|
|
allenchan
資深會員  發表：10 回覆：306 積分：283 註冊：2004-01-06 發送簡訊給我 |
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
fm:Tform1;
comb:tcombobox;
begin
fm:= form1;
comb:=combobox1;
comb.Clear ;
for i:= 0 to fm.DataSource1.DataSet.FieldCount-1 do
begin
comb.Items.Add(form1.DataSource1.DataSet.fields[i].fieldname);
end;
end;
end.
發表人 - allenchan 於 2004/12/13 10:08:56
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ DataSource1不存在﹐請檢查名稱是否正确﹒若是動態建立﹐請檢查有無Create﹒
還有以下兩句紅色處﹐為何一個Form名稱為fm﹐另一個Form名稱為Form1﹐從程式碼部分來看﹐此兩個Form應是相同的吧﹒
for i:= 0 to fm.DataSource1.DataSet.FieldCount-1 do
begin
comb.Items.Add(form1.DataSource1.DataSet.fields[i].fieldname); =========================
我是您的朋友﹐有您真好﹗
=========================
------
忻晟 |
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer; fm:Tform;comb:tcombobox;
begin
fm:=create(form1);
comb:=combobox1;
comb.Clear ;
for i:= 0 to fm.DataSource1.DataSet.FieldCount-1 do
begin
comb.Items.Add(fm.DataSource1.DataSet.fields[i].fieldname);
end;
end; end. 謝謝,請問現在對嗎?但是仍然有錯誤,為什么?
|
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
|
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
|
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
試試: fm: TForm1; //動態Create一個Form1
var
I: Integer;
fm: TForm1;
//comb:TComboBox;//combobox1看樣子應該是Form2上的元件,這個動作應可省略
begin
fm:= TForm1.Create(Self);//Owner=Form2
try
//comb:=combobox1;//combobox1看樣子應該是Form2上的元件,這個動作應可省略
//comb.Clear ;
ComboBox1.Clear;
with fm,DataSource1,DataSet do
for I := 0 to FieldCount-1 do
ComboBox1.Items.Add(Fields[i].FieldName);
finally
FreeAndNil(fm);
end;
end;
|
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
|
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
ds: TDataSource;
I: Integer;
begin
ds := TDataSource.Create(Self);
try
ListBox1.Clear;
ds.DataSet := Table1;
with ds, DataSet do
for I := 0 to FieldCount-1 do
ListBox1.Items.Add(Fields[i].FieldName);
finally
FreeAndNil(ds);
end;
end;
|
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
ds: TDataSource;
I: Integer;
begin
ds := TDataSource.Create(Self);
try
ListBox1.Clear;
ds.DataSet := Table1;
with ds, DataSet do
for I := 0 to FieldCount-1 do
ListBox1.Items.Add(Fields[i].FieldName);
finally
FreeAndNil(ds);
end;
end;
[Error] Unit2.pas(33): Undeclared identifier: 'TDataSource' hi jow,紅色部分錯誤,為什么?
|
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
|
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
發表時間：2004-12-13 09:59:37
IP:61.145.xxx.xxx 未訂閱
系統時間：2024-05-22 5:55:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |