【idea源码怎么搜索】【股票分享源码大全】【java实战源码spi】delphi 源码实例-皮皮网

【idea源码怎么搜索】【股票分享源码大全】【java实战源码spi】delphi 源码实例

2024-11-27 21:57:03 来源：消息队列简单源码分类：知识

1.ç¨delphiåè®¡ç®å¨
2.Delphi实现的源码阴阳历转换源码具体是如何操作的？
3.Android登录界面源代码delphi xe10
4.熊猫烧香病毒源代码

delphi 源码实例

ç¨delphiåè®¡ç®å¨

è¿æ¯æºä»£ç ï¼

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton: TSpeedButton;

StaticText1: TStaticText;

SpeedButton0: TSpeedButton;

SpeedButton: TSpeedButton;

GroupBox1: TGroupBox;

procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

restart: Boolean;

isfirst: Boolean;

fir_num,sec_num: String;

sign: integer;

result: real;

save: String;

implementation

{ $R *.dfm}

function count(sign: integer):real;

begin

case sign of

1: result:=strtofloat(fir_num)+strtofloat(sec_num); //ä¸ºå å·æ¶

2: result:=strtofloat(fir_num)-strtofloat(sec_num); //ä¸ºåå·æ¶

3: result:=strtofloat(fir_num)*strtofloat(sec_num); //ä¸ºä¹å·æ¶

4: begin

try

result:=strtofloat(fir_num)/strtofloat(sec_num); //ä¸ºé¤å·æ¶

except

ShowMessage('éè¯¯!');

form1.close;

end; //é¤æ°ä¸º0æ¶,ååºå¼å¸¸å¤ç

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

i: integer;

begin

if restart then //å¦ææ¯éæ°å¼å§è¾å¥,åæ¸é¤åæ¥çæä½æ°,å¹¶è®¾ç½®isfirstä¸ºTrue

begin

isfirst:=True;

fir_num:='';

sec_num:='';

restart:=False;

end;

if isfirst then //å¦ææ¯ç¬¬ä¸ä¸ªæä½æ°

begin

if (sender as TSpeedButton).Caption='.' then //å¦æè¾å¥çæ¯å°æ°ç¹

begin

if (strlen(pChar(fir_num))<=0) then //å¦æç¬¬ä¸ä¸ªæä½æ°å¹¶æªè¾å¥

fir_num:='0.'

else

for i:= 1 to strlen(pChar(fir_num)) do

if fir_num[i]='.' then exit;

//å¦æç¬¬ä¸ä¸ªä¸å·²å«æå°æ°ç¹èåè¾å¥å°æ°ç¹,åéåº

end;

if (strlen(pChar(fir_num))>0) and (fir_num[1]='0') then //å¦ææé«ä½ä¸º0

begin

if ((sender as TSpeedButton).Caption='.') then

fir_num:='0.'

else

begin

if strlen(pChar(fir_num))>1 then //å¦ææ¯å°æ°,åç»§ç»è¾å¥

fir_num:=fir_num+(sender as TSpeedButton).Caption

else

fir_num:=(sender as TSpeedButton).Caption;

//å¦æä¸æ¯å°æ°,åå»ææé«ä½ç0

end;

end

else

fir_num:=fir_num+(sender as TSpeedButton).Caption;

StaticText1.Caption:=fir_num;

end

else

begin

if (sender as TSpeedButton).Caption='.' then //å¦æç¬¬äºä¸ªæä½æ°å¹¶æªè¾å¥

begin

if (strlen(pChar(sec_num))<=0) then

sec_num:='0.'

else

for i:= 1 to strlen(pChar(sec_num)) do

if sec_num[i]='.' then exit;

//å¦æç¬¬äºä¸ªä¸å·²å«æå°æ°ç¹èåè¾å¥å°æ°ç¹,åéåº

end;

if (strlen(pChar(sec_num))>0) and (sec_num[1]='0') then //å¦ææé«ä½ä¸º0

begin

if ((sender as TSpeedButton).Caption='.') then

sec_num:='0.'

else

begin

if strlen(pChar(sec_num))>1 then //å¦ææ¯å°æ°,åç»§ç»è¾å¥

sec_num:=sec_num+(sender as TSpeedButton).Caption

else

sec_num:=(sender as TSpeedButton).Caption;

//å¦æä¸æ¯å°æ°,åå»ææé«ä½ç0

end;

end

else

sec_num:=sec_num+(sender as TSpeedButton).Caption;

StaticText1.Caption:=sec_num;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StaticText1.Caption:='0.'; //è®¾ç½®StaticText1åå§æ¾ç¤ºä¸º0.

restart:=False;

Isfirst:=True;

fir_num:='';

sec_num:='';

end;

procedure TForm1.SpeedButtonClick(Sender: TObject);

begin

if (fir_num<>'') and (sec_num<>'') then

//å¦æä¸¤åæä½æ°é½ä¸ä¸ºç©º

begin

result:=count(sign); //è°ç¨å½æ°,è¿åè®¡ç®ç»æ

fir_num:=floattostr(result);

sec_num:='';

StaticText1.Caption:=floattostr(result);

end;

sign:=(sender as TSpeedButton).Tag;

isfirst:=False;

restart:=False;

end;

procedure TForm1.SpeedButtonClick(Sender: TObject);

begin

if (sec_num<>'') then

//å¦æç¬¬äºä¸ªæä½æ°ä¸ä¸ºç©ºåè¿åç»æ

begin

result:=count(sign);

fir_num:='';

fir_num:=fir_num+floattostr(result);

StaticText1.Caption:=floattostr(result);

sec_num:='';

end;

restart:=true;

end;

procedure TForm1.SpeedButtonClick(Sender: TObject);

begin

restart:=True;

fir_num:='';

sec_num:='';

self.StaticText1.Caption:='0.';

end;

procedure TForm1.SpeedButtonClick(Sender: TObject);

begin

Close;

end;

end.

Delphi实现的阴阳历转换源码具体是如何操作的？

探索中国传统历法的魅力：阴阳历转换器详解</

在数字化的世界里，了解并掌握阴阳历的实例转换无疑增加了生活中的文化趣味。今天，源码我们为您揭秘如何通过编程手段，实例特别是源码使用Delphi语言，实现生肖与阴阳历之间的实例idea源码怎么搜索转换。

Delphi源码揭秘</

在Delphi的源码源码单元——Unit1中，程序员精心编写的实例代码犹如一把钥匙，打开了阴阳历转换的源码神秘之门。对象Form1的实例设计巧妙地将左上角的坐标设定为Left=，Top=，源码其简洁的实例界面背后隐藏着强大的功能。

在线阴阳历转换工具，源码不仅提供直观的实例操作界面，更深层次地展示了历法体系的源码灵活性。只需轻轻一按，无论是股票分享源码大全查询生肖对应的阴历日期，还是反过来找出特定阳历日期的生肖属相，都变得轻而易举。

实用价值与学习资源</

这篇文章分享的不仅仅是代码片段，更是对历法转换背后原理的深入理解和实践。无论您是编程爱好者，还是对传统中国历法好奇的探索者，这里都有您需要的工具和知识。

通过这个在线阴阳历转换器，java实战源码spi我们期待您能够更好地理解和欣赏中国历法的丰富内涵，让这古老的智慧在现代社会中焕发新的活力。希望这份分享能为您的生活增添一份独特的文化韵味。

Android登录界面源代码delphi xe

[示例介绍]

[示例屏幕截图] #8:8:f:8:2:9delphi xe android:2:9:8:8:8:d:d:1:d:c:1:c:e:1:1:2:9:7:8:7:5delphi xe android:4:4:5:5:5#

[核心代码]过程Tfmbody.InitFrame（）;

开始

{ fmapp: = Tfmapp.Create（自己）;

fmapp.Parent: = TabItem1;

fmapp.Align: = TAlignLayout.Client;

fmmsg: = Tfmmsg.Create（自己）;

fmmsg.Parent: = TabItem2;

fmmsg.Align: = TAlignLayout.Client;

fmtel: = Tfmtel.Create（自己）；

fmtel.Parent: = TabItem3;

fmtel.Align: = TAlignLayout.Client;

fmsetting: = Tfmsetting.Create（自己）；

fmsetting.Parent: = TabItem4;

fmsetting.Align: = TAlignLayout.Client;}

end;

过程Tfmbody.UnInitFrame（）;

开始

{ fmapp.DisposeOf;

fmmsg.DisposeOf;

fmtel.DisposeOf;

fmsetting.DisposeOf;}

end;

结束.

熊猫烧香病毒源代码

揭示熊猫烧香病毒的神秘面纱：Delphi源代码解析

**病毒核心代码片段**:

在熊猫烧香这款臭名昭著的病毒中，其Delphi编写的源代码揭示出一项狡猾的策略。以下是一些关键部分的概述：

病毒体结构：病毒体大小（HeaderSize）惊人地达到了,字节，足以容纳其恶意功能。主图标（IconOffset）的视频后台管理源码位置在未压缩状态下为EB8，压缩时为BC，大小（IconSize）为字节，是其伪装身份的标志。

感染标志：**熊猫烧香使用独特标记$，作为其感染目标的识别符。

垃圾码（Catchword）：**一个包含反日言论的长字符串，被用作破坏文件时的乱码混淆手段。

病毒的软件开放端源码行动机制中，ExtractFile函数负责将病毒从宿主程序中分离，FillStartupInfo则为后续邮件传播做好准备。而SendMail虽未详尽，但可推测其核心作用在于通过电子邮件传播病毒。

恶意感染过程**:InfectOneFile 函数巧妙地避开自身，选择性地感染PE文件，一旦触发，将宿主程序、感染标记和主图标无缝嵌入。编写者的精细操作可见一斑。

源代码中，一个关键部分展示了病毒如何在感染后破坏文件，SmashFile通过插入乱码来混淆和破坏目标文件。执行完毕后，程序会删除目标文件并检测可写驱动器，进一步扩大感染范围。

最后，主程序流程开始，根据操作系统类型（Win9x或WinNT）采取不同的策略。在Win9x系统上，病毒会注册自身服务，而在WinNT系统中，它会分离病毒文件、设置启动参数并创建新进程，同时执行感染和邮件发送操作。

熊猫烧香的源代码揭示出其复杂的策略和破坏力，提醒我们在面对此类恶意软件时，网络安全的防线必须更加坚固。每个函数和操作都反映了病毒制造者背后的精心策划，为网络安全专家提供了深入研究和防范的线索。

【idea源码怎么搜索】【股票分享源码大全】【java实战源码spi】delphi 源码实例

热门资讯

推荐资讯