Delphi

程序员如何把控自己的职业

可紊 提交于 2020-08-08 11:02:48
这篇文章的主要内容主要是我今年3月份在腾讯做的直播,主要是想让一些技术人员对世界有一个大体的认识,并且在这个认识下能够有一个好的方法成就自己。而不是在一脸蒙圈的状态下随波逐流,而日益迷茫和焦虑。直播完后,腾讯方面这我的直播形成文字的形式发出来,我觉得我可以再做一个精编版。所以,有了这篇文章,希望对你有帮助。 对我来说,在我二十多年的工作经历来看,期间经历了很多技术的更新换代,整个技术模式、业务模式也是一直变来变去,我们这群老程序员成长中所经历的技术比今天的程序员玩的还更杂更多。我罗列一下我学过的,而且还被淘汰掉的技术,大家先感受一下。 - MIS应用开发:FoxPro,PowerBuilder,Delphi - OA:Lotus Notes,VBScripts - 微软:ODBC/ADO,COM/DCOM,MFC/ATL,J++ - 服务器:AIX,HP-UX,SCO Unix - Web:CGI,ISAPI,SOAP - RPC:CICS,Tuxedo - J2EE:Websphere,Weblogic - DB:Sybase,Informix 我想说的是,无论过去还是今天,我们这些后浪和你们前浪所面对的技术的挑战和对技术的焦虑感是相似的,我们那个时候不但玩996,还玩封闭开发(就是一周只能回家一天)。当然,唯一好的东西,就是比起今天的程序员来说,我们那个年代没有像微信、微博

How to copy a sub node structure from one XML file to another XML file (merge two XML files)?

吃可爱长大的小学妹 提交于 2020-08-08 07:02:13
问题 I have the following two XML files: File1 <?xml version="1.0"?> <main> <node1> <subnode1> <value1>101</value1> <value2>102</value2> <value3>103</value3> </subnode1> <subnode2> <value1>501</value1> <value2>502</value2> <value3>503</value3> </subnode2> </node1> </main> File2 <?xml version="1.0"?> <main> <node1> <subnode1> <value1>454</value1> <value2>471</value2> <value3>498</value3> </subnode1> <subnode2> <value1>723</value1> <value2>645</value2> <value3>823</value3> </subnode2> </node1> <

WriteBinaryStream compressed to INI file?

ε祈祈猫儿з 提交于 2020-08-08 06:29:33
问题 In Delphi 10.4, I try to save a valid TPicture compressed to an INI file, trying to replicate the ZLibCompressDecompress example from the documentation: procedure TForm1.SavePictureToIniFile(const APicture: TPicture); // https://stackoverflow.com/questions/63216011/tinifile-writebinarystream-creates-exception var LInput: TMemoryStream; LOutput: TMemoryStream; MyIni: System.IniFiles.TMemIniFile; ThisFile: string; LZip: TZCompressionStream; begin if FileSaveDialog1.Execute then ThisFile :=

WriteBinaryStream compressed to INI file?

≯℡__Kan透↙ 提交于 2020-08-08 06:29:16
问题 In Delphi 10.4, I try to save a valid TPicture compressed to an INI file, trying to replicate the ZLibCompressDecompress example from the documentation: procedure TForm1.SavePictureToIniFile(const APicture: TPicture); // https://stackoverflow.com/questions/63216011/tinifile-writebinarystream-creates-exception var LInput: TMemoryStream; LOutput: TMemoryStream; MyIni: System.IniFiles.TMemIniFile; ThisFile: string; LZip: TZCompressionStream; begin if FileSaveDialog1.Execute then ThisFile :=

Delphi 10.2.2 IDE font size

╄→гoц情女王★ 提交于 2020-08-06 05:15:07
问题 I would like to change the Font Size used in Delphi 10.2.2 Tokyo because it's too big. I use 125% scaling in Windows 10. I found this: System Registry Keys for IDE Visual Settings | Customizable Values But it doesn't work. I also have Delphi XE8, and this solution from Embarcadero's website works, but not in 10.2.2. Any ideas? 回答1: When we added theme support to the IDE in 10.2.2, for the Dark Theme, these settings became unused. That's because themes carry font information. It's a useful

简单的OPC与C#通讯,别想复杂了

◇◆丶佛笑我妖孽 提交于 2020-08-05 20:39:19
简单的OPC与C#通讯,别想复杂了 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using OPCAutomation; namespace OPC { public partial class Form1 : Form { OPCServer ObjOPCServer; OPCGroups ObjOPCGroups; OPCGroup ObjOPCGroup; string OPCServerName; public Form1() { try { InitializeComponent(); OPCServerName = "{Here comes your OPC server’s name,(OPC服务器名称)}"; ObjOPCServer = new OPCServer(); ObjOPCServer.Connect(OPCServerName, "";); ObjOPCGroups = ObjOPCServer.OPCGroups;

Delphi - How to create a stacked bar series during runtime?

南楼画角 提交于 2020-08-05 09:57:24
问题 I would like to create 2 series that stack upon each other using the Teechart series in Delphi during runtime. Essentially I want to have 2 series, each with 2 entries, or data points, and the corresponding data points, i.o.w series1 datapoint1 and series 2 datapoint 1, should stack upon each other to form a single bar. I have tried to look for a precedure or property to change to no avail. Thanks ahead of time! Regards, Romans 回答1: Minimal example: var S1, S2: TBarSeries; begin S1 :=

Delphi 的绘图功能[1]

不问归期 提交于 2020-08-05 09:19:46
//过程: Arc BrushCopy Chord CopyRect Draw DrawFocusRect Ellipse Ellipse FillRect FloodFill FrameRect LineTo Lock MoveTo Pie Polygon Polyline PolyBezier PolyBezierTo Rectangle Rectangle Refresh RoundRect StretchDraw TextOut TextRect TextRect Unlock //函数: HandleAllocated TextExtent TextHeight TextWidth TryLock //属性: ClipRect Handle LockCount CanvasOrientation PenPos Pixels TextFlags Brush CopyMode Font Pen //事件 OnChange OnChanging 来源: oschina 链接: https://my.oschina.net/u/4340310/blog/4407170

景观生态学原理| 6 景观生态分类与评价

回眸只為那壹抹淺笑 提交于 2020-08-05 09:05:52
6.1 景观生态分类 景观生态学是以人类与地表景观的相互作用为基本出发点,研究景观生态系统的结构、功能及变化规律,并进行有关评价、规划及管理的应用研究。 6.1.1 景观生态分类的发展 1 从土地分类到景观生态分类 土地分类:将各土地单位按质地共同性或相似性作不同程度的抽象、概括与并归,获得分类级别高低不同的各种土地分类单位 发生法:着眼于土地的形成过程,以发生的关联与相似性为依据进行分类,地质、气象分类 景观法:通过土地空间形态相似、相异性的识别进行土地分类的方法 2 景观生态分类现状 1. 国际研究现状 北美学派:注重景观格局与生态功能,强调景观空间异质性和景观镶嵌体,对景观分类较少重视, 多是将土地利用分类体系直接转换为景观类型 欧洲学派:注重严谨的景观分类与分级结合的景观分类体系,包括自然景观、半自然景观、半农业景观、农业景观、乡村景观、城郊景观和城市工业景观等 2. 国内研究现状 主要关注景观生态分类的时间应用,解决区域实际生态环境问题 存在问题:主要考虑的还是土地的生态属性和空间结构,在本质上仍然属于发生法和景观法的土地分类,没有把景观的功能特征切实纳入分类体系中 3. 发展趋势 两种思路: 从传统土地分类角度出发,融入生态学属性 基于景观是相互作用的生态系统做成的镶嵌体的思想,基于生态系统类型进行分类 景观生态分类应该注重景观生态功能、过程 6.1.2

What does it mean WizardForm.TypesCombo.OnChange(WizardForm.TypesCombo) in Inno Setup?

♀尐吖头ヾ 提交于 2020-08-03 05:49:47
问题 In documentation for TComboBox = class(TCustomComboBox) there's this: property OnChange: TNotifyEvent; read write; , where TNotifyEvent = procedure(Sender: TObject); . Judging from that OnChange has no parameters, only the returned value. In Delphi OnChange event has the Sender: TObject parameter. Why is that allowed to type the following then and what does it mean if it's not the same as Sender: TObject ? WizardForm.TypesCombo.OnChange(WizardForm.TypesCombo) (taken from Inno Setup Remember