請問錯在那? |
答題得分者是: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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |