2017年05月13日

サンプル

<pre class="brush: pascal">
コードを書く
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  sqlstmt:string;
begin
  sqlstmt:='CREATE TABLE TEST_TBL '+
  ShowMessage('Connected ERR');
end;
//--------------------------------------------------------------------------
</pre>
posted by a23 at 09:32| Comment(0) | 000 入門