dbf create

← →
IGOR_k (2003-10-07 12:41) [0]

with Table1 do
begin
Active := False;
DatabaseName := "";
TableType := ttfoxpro;
TableName := "CustInfo";

if not Table1.Exists then
begin
with FieldDefs do
begin
Clear;
for i:=1 to 250 Do
begin
with AddFieldDef do
begin
s:= "Field"+inttostr(i);
Name :=s;
DataType := ftstring;
size:=50;
end;
end;
end;
CreateTable;
end;
end;

ERROR:
"Record size to big for table"

← →
Val (2003-10-07 12:48) [1]

еще с десяток тем создайте и не отвечайте - все на помошь ринутся, блин.

← →
app (2003-10-07 13:41) [2]

Хватит спамить, отдохни пару дней и только потом задай ОДИН вопрос по теме и не более.

dbf create Найти похожие ветки