Criar Tabelas Paradox com Password via Programação

Para Criar uma tabela via programação use os metodos FieldDefs e CreateTable para isso. Veja como criar uma estrutura temporaria:

with TTable.Create(Application) do
begin
Active := False;
DatabaseName := ´C:\TEMP´;
TableName := ´TESTE.TMP´;
TableType := ttDefault;
FieldDefs.Add(´CODCLI´, ftString, 5, False);
FieldDefs.Add(´NOMCLI´, ftString, 40, False);
FieldDefs.Add(´DATCAD´, ftDate, 0, False);
CreateTable;
Free;
end;

8) Para Colocar a senha via programação e bem mais simples


procedure TForm1.FormCreate(Sender: TObject);
begin
Session.AddPassWord(´MyPass´);
Table1.Active := True;
end;

8)