procedure TForm1.btnBorrarTablasClick(Sender: TObject);
var
i: Integer;
TS: TStrings;
begin
TS:= TStringList.Create;
try
with IBQuery1 do
begin
SQL.Clear;
SQL.Add('SELECT RDB$RELATION_NAME AS TBLNAME ');
SQL.Add('FROM RDB$RELATIONS ');
SQL.Add('WHERE RDB$VIEW_BLR IS NULL ');
SQL.Add('AND (RDB$SYSTEM_FLAG IS NULL OR RDB$SYSTEM_FLAG = 0)');
Open;
while not Eof do
begin
TS.Add(FieldByName('TBLNAME').AsString);
Next;
end;
for i:= 0 to TS.Count -1 do
begin
Close;
SQL.Text:= 'DELETE FROM ' + TS[i];
ExecSQL;
end;
end;
finally
TS.Free;
end;
end;