随笔分类 - Delphi基础

实例三显示乘法口诀表

摘要：procedure TForm1.BitBtn1Click(Sender: TObject); var i,j:Integer; begin for i := 1 to 9 do for j := 1 to 9 do StringGrid1.Cells[i,j]:=IntToStr(i*j); en 阅读全文

posted @ 2021-04-04 16:32 三言两语学编程阅读(95) 评论(0) 推荐(0) 编辑

实例二点击按键更换背景

摘要：var change:Boolean; procedure TForm1.BitBtn1Click(Sender: TObject); begin if (change) then begin Image1.Picture.LoadFromFile('./images/1.bmp'); //1.图片阅读全文

posted @ 2021-04-04 16:28 三言两语学编程阅读(74) 评论(0) 推荐(0) 编辑

实例一 hello world

摘要：procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; //关闭程序 end; 完整文件地址： https://files.cnblogs.com/files/blogs/664406/%E5%AE%9 阅读全文

posted @ 2021-04-04 16:23 三言两语学编程阅读(59) 评论(0) 推荐(0) 编辑

Delphi ACCESS数据库提示 "From子句中的语法错误"

摘要：问题：编译通过，提交时提示“From子句中的语法错误”？？ SQL部分如图所示：通过百度提示：原因在于不能使用 user 表名，你换个表名就可以了，比如，将原来的表名user改成 users 解决办法一：通过修改表名为USERS ，然后调整SQL语句，测试通过解决办法二：不更改表名，将表名用中括阅读全文

posted @ 2021-03-14 19:00 三言两语学编程阅读(235) 评论(0) 推荐(0) 编辑

Delphi中通过插件cnpack 产生的begin。。end 的配对的画线能不能暂时去掉？

摘要：第一步：cnpack——设置——源代码高亮专家——设置——取消勾选允许代码结构匹配连线显示。第二步：去掉系统自带的显示步骤：工具——选项——编辑器——颜色——结构高亮，去掉勾选去掉后的效果：阅读全文

posted @ 2021-03-12 21:33 三言两语学编程阅读(453) 评论(0) 推荐(0) 编辑