dbf資料庫導入Sql server問題 |
缺席
|
oktony
中階會員 發表:67 回覆:132 積分:64 註冊:2004-12-05 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
|
weiliching
初階會員 發表:53 回覆:78 積分:31 註冊:2003-12-27 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
var i,j:integer;
s,datatype:string;
F:textfile;
begin
assignfile(F,'test');
rewrite(F);
Table1.Active:=true;
i:=Table1.FieldCount;
with table1 do
begin
for j:=1 to i do
begin
case Table1.Fielddefs[j-1].datatype of
ftString : datatype:='C';
ftInteger: datatype:='N';
end;
s:=Table1.Fields[j-1].Displaylabel+'/'+
datatype + '/'+
inttostr(Table1.Fielddefs[j-1].size);
writeln(f, s);
end;
end;
closefile(F);
end;<
------
What do we live for if not to make life less difficult for each other? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |