译命令,程序类型为控制台方式
var // 定义变量,定义字符串型变量MyMessage
MyMessage 'Hello world!'; // 赋值字符串'Hello world!'
// 在标准输出终端打印变量MyMessage
end.
// 程序结束
4. 简述以下程序每一语句的作用。 procedure TForm1.BitBtn1Click(Sender: TObject); begin with Image1 do begin Canvas.Brush.Color := clRed; Canvas.Brush.Style := bsDiagCross; Canvas.Ellipse(0, 0, Image1.Width, Image1.Height); end; end; 解答: procedure TForm1.BitBtn1Click(Sender: TObject); //定义鼠标点击位图按钮后执行的动作 begin // with Image1 do begin // Image1 Canvas.Brush.Color := clRed; // Canvas.Brush.Style := bsDiagCross; Canvas.Ellipse(0, 0, Image1.Width, // 在画布上以(0,0),Image1.Height)的椭圆 end; //Image1到此结束 end; // 5. begin
* FROM employees.db');
=''丁一''');
end;
解答:
procedure TObject); //定义鼠标点击按钮后执行的动作
begin // 过程开始
Query1.Close; //修改SQL语句之前先关闭数据库
查询Query1
Query1.SQL.Clear; // 清除旧的SQL语句
Query1.SQL.Add('SELECT * FROM employees.db'); //添加新的SQL语句(选择数据表)
Query1.SQL.Add('WHERE =''丁一'''); //添加新的SQL语句 (查询满足条件)
Query1.Open; //执行SQL语句,打开数据库查询Query1
end; // 过程结束