1.ç¨delphiå计ç®å¨
2.Delphi实现的源码阴阳历转换源码具体是如何操作的?
3.Android登录界面源代码delphi xe10
4.熊猫烧香病毒源代码
ç¨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;
SpeedButton: TSpeedButton;
SpeedButton: TSpeedButton;
SpeedButton: TSpeedButton;
StaticText1: TStaticText;
SpeedButton0: TSpeedButton;
SpeedButton: TSpeedButton;
SpeedButton: TSpeedButton;
GroupBox1: TGroupBox;
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButtonClick(Sender: TObject);
procedure SpeedButtonClick(Sender: TObject);
procedure SpeedButtonClick(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;
end;
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;
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语言,实现生肖与阴阳历之间的实例英文打字练习游戏源码下载转换。 Delphi源码揭秘</ 在Delphi的源码源码单元——Unit1中,程序员精心编写的实例代码犹如一把钥匙,打开了阴阳历转换的源码神秘之门。对象Form1的实例设计巧妙地将左上角的坐标设定为Left=,Top=,源码其简洁的实例界面背后隐藏着强大的功能。 在线阴阳历转换工具,源码不仅提供直观的实例操作界面,更深层次地展示了历法体系的源码灵活性。只需轻轻一按,无论是qt qq源码查询生肖对应的阴历日期,还是反过来找出特定阳历日期的生肖属相,都变得轻而易举。 实用价值与学习资源</ 这篇文章分享的不仅仅是代码片段,更是对历法转换背后原理的深入理解和实践。无论您是编程爱好者,还是对传统中国历法好奇的探索者,这里都有您需要的工具和知识。 通过这个在线阴阳历转换器,获取excel源码我们期待您能够更好地理解和欣赏中国历法的丰富内涵,让这古老的智慧在现代社会中焕发新的活力。希望这份分享能为您的生活增添一份独特的文化韵味。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)的asp源码挂号位置在未压缩状态下为EB8,压缩时为BC,大小(IconSize)为字节,是其伪装身份的标志。
感染标志:**熊猫烧香使用独特标记$,作为其感染目标的识别符。
垃圾码(Catchword):**一个包含反日言论的长字符串,被用作破坏文件时的乱码混淆手段。
病毒的ionic商城源码行动机制中,ExtractFile函数负责将病毒从宿主程序中分离,FillStartupInfo则为后续邮件传播做好准备。而SendMail虽未详尽,但可推测其核心作用在于通过电子邮件传播病毒。 恶意感染过程**:InfectOneFile 函数巧妙地避开自身,选择性地感染PE文件,一旦触发,将宿主程序、感染标记和主图标无缝嵌入。编写者的精细操作可见一斑。 源代码中,一个关键部分展示了病毒如何在感染后破坏文件,SmashFile通过插入乱码来混淆和破坏目标文件。执行完毕后,程序会删除目标文件并检测可写驱动器,进一步扩大感染范围。 最后,主程序流程开始,根据操作系统类型(Win9x或WinNT)采取不同的策略。在Win9x系统上,病毒会注册自身服务,而在WinNT系统中,它会分离病毒文件、设置启动参数并创建新进程,同时执行感染和邮件发送操作。 熊猫烧香的源代码揭示出其复杂的策略和破坏力,提醒我们在面对此类恶意软件时,网络安全的防线必须更加坚固。每个函数和操作都反映了病毒制造者背后的精心策划,为网络安全专家提供了深入研究和防范的线索。