Fórum Como obter Inf. dos campos numa tabela Paradox. #178304

Caro Pablo,


Quando você estiver escrevendo a tabela, se você usar um DataModule, então podera usar o recurso do Delphi que auto completa o código.

se não será assim:
Ex.
se o nome do campo for Nome
Table1nome.value;

se o nome do campo for Idadee
Table1Idaded.value;


Espero ter podido ajudar,

Qualquer coisa

tecrogerio@hotmail.com

Estimado Pablo, eu tenho uma coisa dessas mas estou num local sem acesso ao computador. Se for urgente, manda um mail para virtual.viegas@netc.pt que eu devolvo a procedure

abraço do bacalhau

JÁ CHEGUEI!! Cá vai o código:

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;