大叔-💯 89235678
这个家伙很聪明，居然什么都没有留下
关注数: 332 粉丝数: 472 发帖数: 10,432 关注贴吧数: 157
分享视频
dlephi教程 2-1
delphi教程 2-2
字符串截取 ring):string;//（源字符串，开始字符串，结束字符串） var in_star,in_end:integer; strtmp:string; begin in_star:=AnsiPos(strbegin,strsource)+length(strbegin); strtmp:=copy(strsource,in_star,length(strsource)); in_end:=AnsiPos(strend,strtmp); result:=copy(strsource,in_star,in_star + in_end-in_star -1); end; Delphi代码2、 function GetStr_n(StrSource,StrBegin:string;ACount:Integer):string; //(源字符串，开始字符串，开始字符串后面几个字符) var in_star:integer; begin in_star:=AnsiPos(strbegin,strsource)+length(strbegin); result:=copy(strsource,in_star,ACount); end; //方法2 uses StrUtils; 首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2FStrUtils.pas&urlrefer=d8f4c9d693e33524e9cfd4514263e814功能 返回字符串AText从AStart开始的ACount个字符 说明 其实就是Copy 参考 function http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2FSystem.Copy&urlrefer=2675b7b402b8bb4b6528a3cd05447901例子 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2FEdit3.Text&urlrefer=3a47d7c5659b657348adcba0acafc896:= MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); //去掉字符串中空格 Trim()去掉字符串左右两边的空格和控制符，它的使用语法如下： function Trim(const S: string): string; TrimLeft()用于去除字符串左边的空格，它的使用方法如下： function TrimLeft(const S: string): string; TrimRight()用于去除字符串右边的空格，它的使用方法如下： function TrimRight(const S: string): string; UpperCase()：将字符串小写转为大写 LowerCase()将大写转为小写
DELPHI截取字符串的方法 ring):string;//（源字符串，开始字符串，结束字符串） var in_star,in_end:integer; strtmp:string; begin in_star:=AnsiPos(strbegin,strsource)+length(strbegin); strtmp:=copy(strsource,in_star,length(strsource)); in_end:=AnsiPos(strend,strtmp); result:=copy(strsource,in_star,in_star + in_end-in_star -1); end; Delphi代码2、 function GetStr_n(StrSource,StrBegin:string;ACount:Integer):string; //(源字符串，开始字符串，开始字符串后面几个字符) var in_star:integer; begin in_star:=AnsiPos(strbegin,strsource)+length(strbegin); result:=copy(strsource,in_star,ACount); end; //方法2 uses StrUtils; 首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2FStrUtils.pas&urlrefer=d8f4c9d693e33524e9cfd4514263e814功能 返回字符串AText从AStart开始的ACount个字符 说明 其实就是Copy 参考 function http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2FSystem.Copy&urlrefer=2675b7b402b8bb4b6528a3cd05447901例子 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2FEdit3.Text&urlrefer=3a47d7c5659b657348adcba0acafc896:= MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); //去掉字符串中空格 Trim()去掉字符串左右两边的空格和控制符，它的使用语法如下： function Trim(const S: string): string; TrimLeft()用于去除字符串左边的空格，它的使用方法如下： function TrimLeft(const S: string): string; TrimRight()用于去除字符串右边的空格，它的使用方法如下： function TrimRight(const S: string): string; UpperCase()：将字符串小写转为大写 LowerCase()将大写转为小写
改了LED透镜的效果
改了激光灯的效果
原车LED羽翼大灯效果
奉劝那些准备把羽翼大灯改了的，不要乱改了，原车灯是最好的 一直觉的羽翼大灯不亮，散光，于是改成了激光的，发现激光束就一个点，有时候在墙角开远光拐弯的时候那个激光束点照墙上反射回来映的头疼，然后换成了透镜LED的，发现效果比原车的强不了多少，而且透镜的有个光框，让人觉的不舒服，如果是低配卤素灯可以考虑改下，羽翼大灯就不要改了，没意思，
为什么这么好看的樱桃一点都不甜啊
吧里的人气是好少啊 吧里的人气是好少啊 淅淅零零的几个人
Delphi，从1994到2022，20多个版本，经历了这些变化 一 Delphi，有人说它消失了，也有人说它成为了小众化的软件，也有人说，只是我们不再使用它，在国外，它还是一门很受欢迎的软件； 无论怎样，Delphi曾经是一门非常受欢迎的应用程序开发工具，今天，我们一起来了解它，28年来，它的变化。Delphi是由Borland推出的可视化编程环境，许久之前，了解过Pascal语言的同学，对Delphi就不会觉得陌生；小编在中学的时候，学校里安排选择一门计算机语言作为辅修课，当时学的就是这个，时间一晃，十多年过去了。Delphi是一个集成开发环境，使用的就是由之前Pascal语言发展而来的Object Pascal语言，1994年至今，最新的版本已是RAD Studio 11（XE11）。 Delphi 1.01994年，Borland推出的Delphi 1.0版本，运行于16位的Windows 3.1 系统，从而支持视窗操作系统的应用程序开发。 Delphi 2.01996年，Borland推出2.0的Delphi。它以32位编译器为核心，同时也是第一个32位的系统，支持Windows和C/S开发。 Delphi 3.01997年，Borland推出3.0的Delphi。运行在Windows 95系统，加入了接口的机制，并提从了code insight。 Delphi 4.01998年，Delphi 4.0推出，需要运行在486的计算机上，最低16M的ROM。这个版本加入动态数组和方法覆盖等支持。 Delphi 5.01999年，Delphi 5.0推出。5.0这个版本增强了IDE和调试器及数据库的支持，简化了internet的开发。不少同学是从这个版本开始接触的Delphi，那时候，国内拥有计算机的同学已经不少了。 Delphi 6.0小编第一次听说世界上有Delphi这个软件的时候，就是这个版本。只不过知道的是Pascal，姑且就算是Delphi吧。 这个版本，提供了Web Service。增强了 code complete（代码提示），6.0的这个窗体可以自行调整大小； 新的Object TreeView树形控制面板； 新的internet应用系统的WebSnap控件组； 支持XML/XSL； 6.0的版本在2001年推出，第一批规模以上的用户，应该是这个版本吧。 Delphi 7.02002年，Borland推出了7.0版本的Delphi。这个版本提供了.net的过渡，完善了数据库的支持。 Delphi 8.0
Delphi 数据类型列表 Delphi 数据类型列表 分类 范围 字节 备注 简单类型 序数 整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 .. 4294967295 4 无符号32位 Shortint -128 .. 127 1 有符号8位 Smallint -32768 .. 32767 2 有符号16位 Longint -2147483648 .. 2147483647 4 有符号32位 Int64 -263 .. 263 8 有符号64位 Byte 0 .. 255 1 无符号8位 Word 0 .. 65535 2 无符号16位 Longword 0 .. 4294967295 4 无符号32位 字符 AnsiChar(Char) ANSI字符集 8位 WideChar Unicode字符集 16位 布尔 Boolean False < TrueOrd(False) = 0Ord(True) = 1Succ(False) = TruePred(True) = False 1 ByteBool False <> TrueOrd(False) = 0Ord(True) <> 0Succ(False) = TruePred(False) = True 1 WordBool 2 LongBool 4 枚举 子界 实数 　 Real 5.0×10-324 .. 1.7×10308 8 [精度]15..16 Real48 2.9×10-39 .. 1.7×1038 6 [精度]11..12;向后兼容 Single 1.5×10-45 .. 3.4×1038 4 [精度]7..8 Double 5.0×10-324 .. 1.7×10308 8 [精度]15..16 Extended 3.6×10-4951 .. 1.1×104932 10 [精度]19..20 Comp -263 + 1 .. 263 - 1 8 [精度]19..20 Currency -922337203685477.5808 .. 922337203685477.5807 8 [精度]19..20 字符串 　 　 ShortString 255个字符 2..256B 向后兼容 AnsiString 大约 231 个字符 4B..2GB 8位(ANSI)字符 WideString 大约 230 个字符 4B..2GB 多用户服务和多语言应用程序; 和com定义的BSTR兼容 其他 StringString[0..255]PCharPAnsiStringPWideString 结构类型 集合 　 Set 最多256个元素[0..255] 数组 静态数组 动态数组 记录 　 Record 文件 　 File 类 　 Class 类引用 　 Class reference 接口 　 Interface 指针类型 无类型指针 　 Pointer 有类型指针 预定义类型指针 PAnsiStringPStringPByteArrayPCurrencyPDoublePExtendedPSinglePIntegerPOleVariantPShortStringPTextBufPVarRecPVariantPWideStringPWordArray 过程类型 程序过程类型 　 Procedural 对象过程类型 　 Procedural 变体类型 　 　 Variant OleVariant 　
Delphi 小知识点 1：每一个组件都有个Parent属性(只有运行时才能看到)，也就是容纳改组件的容器。 2：当需要放置多个组件时，shift选中组件是，想取消，则点击左边的鼠标既可。 3：如果想运行一个时间可以自由改变大小的区域，可以用Splitter组件。 4: 显示编辑多行文本用Memo组件。 5：Delphi 可视化编程的一般步骤;设计窗体并将组件放入窗体，设置窗体与组件等对象的属性，在窗体与组件的时间处理过程 中 输入代码 6.窗体与组件 Delphi程序设计是在窗体上进行的。窗体是一- 种容器组件,在窗体上可放置各类组件。本章主要学习了用户可以输人数据的编辑类组件(Edit、MaskEdit、Memo、RichEdit);用来为编辑框及其他组件提供标识的标签类组件Label;用于引起程序命令执行的按钮类组件(Button、BitBtn、SpeedButton);复选框(CheckBox)用来切换状态或参数的两种可能值，复选框常用于GroupBox组件中被分组;放在单选钮组框(RadioGroup)组件中的一组单选钮(RadioButton)组件用来从多个选项中选择一个;列表框( ListBox)可以从一 组选项中选择一个或多个;组合列表框( ComboBox)既可像列表框一样选择，也可编辑;面板(Panel)组件是一种容器类组件，可以用来实现工具栏和状态条等;使用Splitter组件运行时可以自由改变区域的大小。 7：组件的属性和事件 本章介绍了组件的通用属性和事件。Caption表示组件的标题，Name表示组件的名称，此外组件的位置与大小属性，外观与颜色、字体、状态等属性都可在对象监视器中进行修改和设置。 8：第一步：ImageList 中add图片；第二步：修改MainMenu1具体标签的ImageIndex值，默认为-1，修改为到对应的图片。 9：delphi有这个功能的,在菜单 view->component list 在这里你可以快速找到一个控件。 10：TDateTimePicker 可以直接显示日期：11：显示RichEdit 中光标的位置，注意选择事件中onSelectionChange ，代码： procedure TForm1.RichEdit1SelectionChange(Sender: TObject); begin StatusBar1.Panels[0].Text:='位置: '+IntToStr(RichEdit1.CaretPos.Y+1)+'行 '+IntToStr(RichEdit1.CaretPos.X+1)+'列'; end; 12: 有时候Dialog组件再调用某个函数时，需要事件驱动的时候，应该是在Dialog子组件的Events中设置。 13:声明变量用Var ,声明数据类型用type。 14.函数function 返回值用result：Result := total / num; 15.形式参数中如果有多个参数，则用分号分隔，而函数或者过程调用中，实参用逗号分隔。 16，在实际的编程中，并不想使传递给过程和函数的参数值发生改变，这样就可以使用常量参数。常量参数在形式参数中保留字const声明，例如 procedure MyProc(const Value:integer); 求字符串的长度：n:=Length(RichEdit1.Text); RadioButton1.Checked:=true;此类型按钮默认闭合。
临朐夕阳红
我算是看明白了，舅子 姨子 不能对待太好了 我算是看明白了，舅子 姨子 不能对待太好了 不管你对他多好 一旦分手了再他们眼里你也不是人
这是大临朐的什么地方
一点消息也没有可咋办啊 一点消息也没有可咋办啊
过了年就开始找活一直找到现在的，还有必要再找吗？ 过了年就开始找活一直找到现在的，还有必要再找吗？
海浮山小区怎么样，看着法院处理了一批房子
谁体验过，里面都有啥服务
请问大临朐哪里有定制桌子的，想给尺寸定做个桌子和小厨子 请问大临朐哪里有定制桌子的，想给尺寸定做个桌子和小厨子
我发表了一篇视频贴，大伙来看看吧~
听说购车无忧的人放出来了，真的还是假的？ 听说购车无忧的人放出来了，真的还是假的？
请问大临朐现在还有卖骏网一卡通那种实物卡的吗？卡号也行 请问大临朐现在还有卖骏网一卡通那种实物卡的吗？卡号也行
樱桃为什么这么酸 小时候不都是听说 樱桃好吃树难栽 现在吃的樱桃是真酸啊
今天发现轮圈上多了一支铁板大苍蝇，刚跑完的时候刹车轮圈都很烫，苍蝇走的时候应该有些痛苦😖
上联： 弓 虽 强，但 石 更 硬 。求下联？ 上联： 弓 虽 强，但 石 更 硬 。 求下联？
说句良心话，我还是比较支持交警贴条的，虽然我也被贴过 如果没有交警贴条来维持道路秩序的话，我敢说不用半年，小区门口车子会堵的出都出不来，马上路到处都是乱停乱放的车，因为剐蹭引起的交通事故或者纠结会剧增，甚至一些社会人暴发户会大打出手。 东城双语学校那里交警很少过去管，没事的时候可以去看看，一到放学的时候车子停的什么姿势都有，马路中间都乱停，开个宝马的瞧不起开大众，开大众的瞧不起开吉利的， 一个个飞扬跋扈的 都觉的自己刚牛逼，除了天大就是他大。
医生：3床刚做的环切又开线了，唉
总感觉老师对我室友不一般……
为什么女生可以这样蹲？？？
这个咋算的，直接没算明白，常吃外卖的过来看下
我发表了一篇视频贴，大伙来看看吧~
我带我女朋友出去和朋友们聚餐，朋友们嘲笑我女朋友没有胸！我回来越想越觉得她胸确实是小！于是我提出了分手，但是她非得求我不要抛弃她，现在每天都粘着我，想尽办法讨好我。搞得我很烦！下面附带女朋友照片一张！各位吧友出个主意，怎么办？！
这个装备属性咋样
第一次来宾馆没啥经验，要准备点什么吗
好大的风
表哥半个月没回家了，表嫂叫我过来包饺子吃，他是想干嘛？
地铁里，我该怎么打动她
第一次帮女朋友拍照，还算可以吧
这几天有去过济南的吗？明天要去济南接个人。不知道让不让进城 这几天有去过济南的吗？明天要去济南接个人。不知道让不让进城
衣服倒是挺好看，问题是怎么WC啊
吧友来找我玩，不亦乐乎
头像下面带个口罩是啥意思？ 头像下面带个口罩是啥意思？
欢迎大家踊跃将自己珍藏的秘方公布出来 欢迎大家踊跃将自己珍藏的秘方公布出来，
临朐哪里有专业采。耳的地方啊最近耳朵好像发炎了 临朐哪里有专业采。耳的地方啊最近耳朵好像发炎了
表妹转账输错了账号，把6万块转给了一个四川陌生男人，发现后急得要死，打电话找对方追回，结果对方核对后，确认是表妹转错了，立马退款回来。 谁知道对方也是一个粗心人，转回来的时候又多打了一个零，表妹又给他退了回去，一来一往，后来两个人居然恋爱了，说是看中了对方的人品。缘分有时就是这么奇妙！
怎么办，吧友们，在线等
大家好，不懂就问，我替我朋友问一下，现在血流不止该怎么办？
又到了相亲的月份，介绍人说女方对我很满意。百般不愿的接受了大人给的相亲。花了几百块钱买了点礼物，来到了女方家，女方家大概十几个人，白色衣服那个就是相亲对象。不久后，当我看到女方拿出一瓶水来喝，是英文的，怪自己井底之蛙，没见过这种水。
不让放鞭了。又省钱又安全了，真好
这是啥意思
这是个人才啊
我哥派去国外分公司上班了，嫂子让我去吃饺子，我该怎么办？？？
这样有良心的小偷不多见了吧
我考上这种学校，还有救吗
见这样的网友该注意点啥？
有没有比他还牛的
哎样，愁人啊
现在临朐哪个网吧最热闹 现在临朐哪个网吧最热闹
1 下一页