بررسبي وجود يا عدم وجود يك table قبل از اجراي برنامه

[mydelphi]

با سلام
چطور ميشه قبل از اجراي برنامه (Project برنامه) از وجود يا عدم وجود يك table در بانك اطلاعاتي برنامه مطمئن شد......

در صورت عدم وجود يك table در بانك اطلاعات برنامه اجرا نشود...

[Felony]

یک ADOConnection روی فرم برنامتون قرار بدید و به بانک مورد نظر وصل کنید و کد زیر رو در رویداد FormCreate فرم مورد نظر بنویسید :

var
List: TStringList;
begin
List:= TStringList.Create;
try
ADOConnection1.GetTableNames(List, False);
if List.IndexOf('Table1') = -1 then
Application.Terminate;
finally
List.Free;
end;
end;