Fórum Urgente Paradox #229030

Estimada, eu desenvolvi um pequeno procedimento que, dada uma tabela extrai os tipo e tamanhos dos campos e mostra num form. Não é exactamente o que precisas, mas serve de base. Cá vai:

Table1.Open;

for i := 0 to Table1.FieldCount - 1 do
begin
tp := ´´;
tmp := ´´;

case table1.fields[i].datatype of
ftFloat : tp := ´[Floating Point]´;
ftUnknown : tp := ´[Desconhecido]´;

ftString : begin
tp := ´[String]´;
str(table1.Fields[i].datasize - 1,tmp);
end;

ftSmallint : tp := ´[Inteiro 16 bits]´;
ftInteger : tp := ´[Inteiro 32 bits]´;
ftWord : tp := ´[Número Natural]´;
ftBoolean : tp := ´[Lógico]´;
ftCurrency : tp := ´[Currency]´;
ftBCD : tp := ´[Binary-coded]´;
ftDate : tp := ´[Data]´;
ftTime : tp := ´[Hora]´;
ftDateTime : tp := ´[Data e Hora]´;
ftBytes : tp := ´[Nº Fixo de Bytes]´;
ftAutoInc : tp := ´[Autoincremento]´;
ftBlob : tp := ´[Blob]´;
ftMemo : tp := ´[Memo]´;
ftGraphic : tp := ´[Bitmap]´;
ftFmtMemo : tp := ´[Memo Formatado]´;
ftParadoxOle : tp := ´[OLE]´;
ftDBaseOle : tp := ´[dBase OLE]´;
ftTypedBinary : tp := ´[Typed binary field]´;
end;
end;

Espero que ajude
bacalhau