The unit DbAccess.
Interface
USES the
System. Collections. Generic;
Type
Public DatabaseSchema=class
Public Tables: List
Public Views: List
Public constructor Create;
end;//class DatabaseSchema
Implementation
The constructor DatabaseSchema. Create;
The begin
Tables:=List
Views:=List
end;
End.
CodePudding user response:
You put your TableSchema and ViewSchema as AnsiString and Integer types, written by Tlist, it is ok to readCodePudding user response:
You can use TObjectList