تنفيذ شرط سيكويل open or execute

[jeanjamil]

السلام عليكم
كيف اجعل اوامر sql 
Open او exectutesql
في نفس الزر دون مشاكل 
Return result use select الخ
اي اذا لم اكتب select تنفذ executesql والعكس

[Mr.DOS]

سلام عليكم

كود :

var Cmd: string; begin   Cmd := LowerCase(Copy(Trim(Query.Sql.Text), 1, 6));   if Cmd = 'select' then   begin     Query.Open;   end   else   begin     Query.ExecSQL;   end; end;

[أبو معاذ]

سلام عليكم

كود :

var Cmd: string; begin   Cmd := LowerCase(Copy(Trim(Query.Sql.Text), 1, 6));   if Cmd = 'select' then   begin     Query.Open;   end   else   begin     Query.ExecSQL;   end; end;

فكرة رائعة ،
بارك الله فيك.