como puedo generar un indice en paradox
hola, estoy programando en Delphi 5, con paradox, necesito estar creando Bases de datos, pero no se como generar los indices, ni el primario ni secundarios en runtime, para generar las bases de datos utilizo elcodigo:
if not Table1.Exists then
begin
Table1.Active := FALSE;
Table1.DatabaseName := 'nombre';
Table1.TableType := ttParadox;
Table1.TableName := ENom_Cat.Text;
with Table1.FieldDefs do
begin
Clear;
Add('COD_VEHIC' , ftFloat , 0, FALSE);
Add('AÑO' , ftString , 4, FALSE);
Add('MANUFACTURERO' , ftString , 30, FALSE);
end;
Table1.CreateTable;
{para copiar registros}
if TVehiculos.Active = False then
Exit;
with BatchMove1 do
begin
Source := TVehiculos;
Destination := Table1;
Mode := batCopy;
Execute;
ShowMessage(IntToStr(MovedCount) + ' Registros copiados');
end;
pero no se como generar los indices, me podrian ayudar por favor
gracias
|