2018年11月_2021乐乐

原创未来的路

1.生活就是让别人笑一笑，偶尔也自己笑一笑-杨老师2.坚强，感恩--杨老师3.一件事情要么不做，要么用心去做，用心去做，即便是失败了，自己也能接受。-李老师4.一件事情并不是有了希望才去做，而是做了之后才有希望--李老师5.只要不死，终会出头。--赵兰6：有些话，就是心灵毒奶。记录感觉老天爷自己开了个玩笑的日子...

2018-11-29 15:25:33 135

原创 Form2 引用Form1中的函数

在delphi 设计GUI的过程中，窗体通信是不可缺少的一部分。若想解决Form2调用Form1函数；本文是通过如下步骤实现：在Form1中建立公共函数，在var 下建立 procedure form2_form1(i:Integer); 在函数form2_form1(i:Integer)中调用Form1组件时 Form1.Edit1.text:='GHG'; 在Form2 中implem...

2018-11-26 16:51:31 1538

原创栈

栈：一种存储结构，FILO原则（先进后出）栈有几种基本操作，栈的初始化，判断栈是否存在，栈的增加元素，栈的删除元素，栈的遍历，栈的遍历，最后是栈的摧毁。#include<stdio.h>#include<stdlib.h>#define stack_size 100#define stack_increase_size 10typedef struct ...

2018-11-23 21:27:52 343

原创 python和C数组元素的删除和增加

c 语言版本：https://blog.csdn.net/zzwtyds/article/details/77299871python 版本：>>> a=[1,2,3,4,5]>>> a[1, 2, 3, 4, 5]>>> a.insert(2,'g')>>> a[1, 2, 'g', 3, 4, 5]&...

2018-11-23 15:36:03 116

原创朴素字符串匹配算法

最简单的字符串匹配方法，传说中的在特殊情况的暴力求解：伪代码：naive_string_matcher(t,p): n=len(t) m=len(p) for s =0 to n-m: if p[1..m]==t[s+1..s+m]: print("success!") 具体的代码：str1 = 'a...

2018-11-23 10:29:48 395

转载 C语言 sizeof 、strlen

直接看代码：#include <string.h>#include<stdio.h>#include<stdlib.h>int main(){ char str[20] = "0123456789";int a = strlen(str); //*a = 10*,指的是长度 / int b = sizeof(str);//*b = 20*，...

2018-11-22 10:28:36 84

原创 Form1 如何向Form2传递数据

首先form1有一个全局变量或者函数是在public下然后form2的uses下引用form的单元名这个时候就可以了1.设置框图2.code 2.1 form1的代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...

2018-11-22 10:09:39 3585

转载 Delphi 字符串函数

转发：https://www.cnblogs.com/gameking/archive/2012/11/08/2760206.html

2018-11-21 17:18:50 275

原创 Delphi 文本查找函数（一）

一：function Pos(Substr: string; S: string): Integer;注解：该函数是查找元素第一次出现的位置。 1.... 框图： 2 .....代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contr...

2018-11-21 17:13:19 1235

转载 malloc ，free， realloc 和calloc

这四个函数都在#include<stdlib.h>里面声明。1.malloc形式：void *malloc(size_t size);说明：malloc 分配的内存是连续的存储块，而不是分开的。系统无法想向malloc提供更多的内存，malloc就返回一个NULL指针。2.free形式： void free(void *pointer);说明：free的参数要...

2018-11-21 15:26:02 258

原创 C 语言(int )和（int*）的区别

（int）x是将数据强制转换为int型。而（int *）是强制了指针类型转换&a[1]说的是地址，第二个数组成员的地址；(int*)&a[1]把上面的第二个数组元素的的地址转换成一个整形的指针。 ...

2018-11-21 11:43:34 17972 4

原创 Delphi 如何下调Mianmenu的位置

一：由于Mainmenu通常默认是置顶，如下图所示：二：因此Mianmenu想将顶部的菜单，向下移动一定的距离，单独的通过操作组件Mainmenu是不行的。因此可采用ToolBar+ControlBar+Mainmenu.具体步骤如下1.先用Mainmenu设置好自己需要的菜单，Form1 中menu选项中删掉Mainmenu。2.选择controlBar组件，将contorl...

2018-11-20 21:00:48 454

原创解决Undeclared identifier: 'OpenDialog1'

运行delphi 7发现这个问题，总是不能解决。主要分类两步来解决：1：定义这个OpenDialog1: TOpenDialog;2：delphi 中有一个Dialogs 组件最好是将每一个图标均放置在，Form1中这样用到那一个，就自然不同再定义呢：另外附带一点本文福利，这些在编写delphi程序中如果用到这些功能都需要定义： OpenDialog1:...

2018-11-20 11:25:44 1227

转载 ComboBox 组件使用

ComboBox组件添加数字或者字符，方法一可以添加数字或者字符。而方法二只能添加数字方法一：在standard组件页当中，在对象监视器中有Items 属性栏，单击右边的...号。如图添加内容，点击ok。运行结果如下图所示：方法二：写代码解决https://blog.csdn.net/lovescjinbao/article/details/18054739 ...

2018-11-19 09:36:12 450

原创 Delphi 小知识点

1：每一个组件都有个Parent属性(只有运行时才能看到)，也就是容纳改组件的容器。2：当需要放置多个组件时，shift选中组件是，想取消，则点击左边的鼠标既可。3：如果想运行一个时间可以自由改变大小的区域，可以用Splitter组件。4: 显示编辑多行文本用Memo组件。5：Delphi 可视化编程的一般步骤;设计窗体并将组件放入窗体，设置窗体与组件等对象的属性，在窗体与组件的时...

2018-11-18 22:35:41 298

转载 ChecklistBox的使用总结

转载：https://www.cnblogs.com/shadow-wolf/p/6134290.html https://blog.csdn.net/yyzzhc999/article/details/78089337?foxhandler=RssReadRenderProcessHandler

2018-11-18 21:49:00 844

转载 Delphi 控件交换数据

一：GUI 界面：代码如下：unit Unit3_3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Buttons, CheckLst, StdCtrls, ExtCtrls;t...

2018-11-18 21:48:06 215

转载 Delphi 的按钮组件

Delphi的按钮组建一共包含三种按钮组件，普通按钮（Button）、位图按钮（BitBtn）和快捷按钮（SpeedButton）。普通按钮：使用最多的是淡季时间OnClick。位图按钮：可以显示图片，Glyph 属性通过load加载图片，在Additional 选项卡中。快捷按钮：可以同时显示图像和文字，可以保持按下的状态，不同于普通按钮和位图按钮按下后立刻弹起来。是工具条设计的理想...

2018-11-18 21:01:06 1566

原创 Delphi 递归

由于delphi的过程比较简单，因此重点学习函数，函数中最难的是递归，本文通过实例来学习。框图界面如下：代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;...

2018-11-17 22:20:40 1097

原创 python 递归

个人感觉递归其实就是循环的加强版，循环也是做重复的事情，当有一个出口，满足出口的条件，则递归或者循环停止。学习python 的递归主要是通过实例来掌握，斐波列数，N阶乘和汉诺塔。1：斐波列数就是计算前两个数之和：def fab(n): if n<=1: return 1; elif n==2: ...

2018-11-17 21:44:37 124

原创 Delphi 过程与函数

delphi分为过程和函数：delphi 过程以保留字procedure开始，没有返回值；函数以保留字function开始，有返回值。一：过程的框架：Procedure 过程名（[形参列表]）// 参数可选var //声明常量、变量或另一个过程或函数等begin 语句; end; 界面如图所示：运行前：代码如下：unit ...

2018-11-17 16:12:51 1891

转载 python——，冒泡、归并、快排

array=[2,8,7,1,3,5,6,4]def quick_sort(array, l, r): if l < r: q = partition(array, l, r) quick_sort(array, l, q - 1) quick_sort(array, q + 1, r)def partition(arra...

2018-11-17 12:50:05 139

原创 Delphi 求素数

GUI界面：源代码： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; B...

2018-11-17 11:49:32 435

原创 Deilphi 冒泡排序

代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: ...

2018-11-17 11:20:44 124

原创 Delphi 求前100 的和

while 循环unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedu...

2018-11-17 00:07:59 123

原创 Delphi 计算器

计算器V1:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Edit1: TEdit; E...

2018-11-16 17:37:26 527 2

转载 Delphi 分辨千位、百位、十位和个位数值

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; ...

2018-11-16 15:35:26 531

原创 Delphi Edit 方框不能输入

1.Edit边框不能输入任何信息，发现Edit 设置里面的Event是如下图所示： 2.修改后如下图所示，edit边框就能输入：

2018-11-16 15:22:37 1791

原创 Delphi Label 汉字显示不全

无论label的况怎么调整字体都显示不全，但是字母和数字可以显示完全。如下图所示，图一是程序员想显示的字体，图二是实际的效果图一：图二：解决方法：换种字体就正常了，例如宋体，各种体。...

2018-11-16 11:59:44 539

原创 python--- map函数和lambda函数

1...lambda 函数相当于一个匿名函数，顾名思义就是不用取名字的函数，相当于现实中的匿名信。举例：lambda x，y： x+ym = lambda x,y,z: (x-y)*zprint (m(3,1,2)) 运行结果：42...map函数 map()是 Python 内置的高阶函数，它接收一个函数 f 和一个 list，并通过把函数 f 依次作用在 li...

2018-11-14 22:00:28 1408

转载匈牙利算法

匈牙利算法就是匹配最大度的问题max_node =100bigraph=[[ False for i in range(max_node)]for j in range(max_node)]parent=[False for i in range(max_node)]visited =[ False for j in range(max_node)]result={}m...

2018-11-14 21:36:22 179

转载 Delphi 7 9*9乘法口诀表

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton...

2018-11-14 17:12:53 490

原创 Delphi Form1控制Form2 和文本显示

1. Form1 控制Form2unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ...

2018-11-14 16:45:22 504

原创汇编：冒泡排序

求的一个数组的最大值：.section .datadata_items:.long 3,67,54,99.section .text.globl _start_start: nop movl $0, %edi movl data_items(,%edi,4), %eax movl %eax, %ebx start_loop: cmpl $0, %eax ...

2018-11-13 11:17:33 192

转载 Ubuntu 16.04 常用指令及其常见问题

linux 命令行模式执行命令时：一种是该命令直接显示结果，然后回到命令提示符等待下一个命令的输入；一种是进入该命令的环境，直到结束该命令才回到命令行界面的环境；命令行太长时，用反斜杠（\）来转义回车键，使命令连续到下一行。注意crtl+D 标示键盘输入结束的意思，或者exit【shift】+【PageUP】【PageDown】表示命令行翻页、【Tab】可以补全命令，湖...

2018-11-12 21:13:02 331

原创 python 中 '/' 和 '//'的区别

上述两种符号可以总结为两种形式A/B ：返回整个商的值A//B：返回结果的最小整数例程：>>> 9/24.5>>> 9//24>>> 3//0.56.0>>> 7//0.323.0>>> 7/32.3333333333333335 ...

2018-11-12 16:32:49 415

转载 linux系统调用

转载：1.linux常用查看硬件设备信息命令 https://blog.csdn.net/shaozengwei/article/details/390541692.linux的所有进程https://www.cnblogs.com/zwgblog/p/5971455.html 常见的格式：ps options ps ax显示所有的进程清单3.内核版本,系统运行那...

2018-11-06 17:04:10 111

转载 FPU 操作浮点数

.section .datavalue1: .int 40value2: .float 92.4405value3: .double 221.440321.section .bss .lcomm intl ,4 .lcomm control ,2 .lcomm status ,2 .lcomm result ,4.section ....

2018-11-04 23:14:36 876

转载 FPU 寄存器

FPU 状态寄存器：fstsw 可以把状态寄存器读取到一个双字节内存位置或者AX寄存器中。.section .dataoutput: .asciz "The is %d\n".section .bss .lcomm status ,2.section .text.globl _start_start: nop fstsw %ax f...

2018-11-04 22:00:02 1392

转载 at&t 位测试（test）

TEST 指令最常见的用途是检查EFLAGES寄存器的标志位.section .dataoutput_cpuid: .asciz "This processor supports the CPUIDinstruction\n"output_nocpuid: .asciz "This processor does not support the CPUID ins...

2018-11-04 16:15:57 837

mini_system.DSN

空空如也