📄 unit3.pas
字号:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, StdCtrls, Buttons, ExtCtrls, ShellApi, ToolWin, ComCtrls;
type
TForm3 = class(TForm)
CoolBar1: TCoolBar;
Image2: TImage;
Label5: TLabel;
CoolBar2: TCoolBar;
BitBtn1: TSpeedButton;
BitBtn2: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Image2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Image2Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'http://www.i307.net', ' ', '',SW_SHOWNORMAL)
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form3.Close();
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
var
helpfp: TextFile;
helpname: string;
SysTmpDir: pchar;
begin
GetMem(SysTmpDir,100);
GetTempPath( 100, SysTmpDir );
helpname:=SysTmpDir+'OilRecHelp.htm';
FreeMem(SysTmpDir);
AssignFile(helpfp, helpname ); //打开文件
rewrite( helpfp );
writeln( helpfp,'<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">');
writeln( helpfp,'<title>计算方法</title></head><body><pre>');
writeln( helpfp,'<font color=#9900FF>总耗油量 ＝ 所有记录的加油量 － 第一次的加油量 ');
writeln( helpfp,'总油费 ＝ 所有记录的加油金额 － 第一次的加油金额');
writeln( helpfp,'总里程 ＝ 最后一条记录的里程 － 第一条记录的里程');
writeln( helpfp,'总天数 ＝ 最后一条记录的日期 － 第一条记录的日期');
writeln( helpfp,'平均油耗 ＝ （总耗油量 × 100） ÷ 总里程</font><br><br>');
writeln( helpfp,'如果某次加油满，且下次也加满，则：');
writeln( helpfp,'<font color=#9900FF>本箱百公里油耗 ＝ （下次加油量 × 100） ÷ （下次加满时的里程 － 本次加油时里程）</font>');
writeln( helpfp,'例如：100公里时加满，到600公里时加油40升满，则第一箱油的油耗是：（40 × 100） ÷ （600 － 100） ＝ 8.0 ');
writeln( helpfp,'解释：在100公里到600公里这一阶段使用的油是第一次加的，使用量等于第二次的加油量40升。<br><br>');
writeln( helpfp,'如果某次加油满，下次没加满，但若干次后又有一次加满，则：');
writeln( helpfp,'<font color=#9900FF>两次加满之间的油耗 ＝ （两次加满之间的加油量（含后一次不含前一次） × 100） ÷ （后一次加满时里程 － 前一次加满时里程）</font>');
writeln( helpfp,'例如：100公里时加满，到500公里时加油30升不满，到1100公里时加油50升满，则第一箱油和第二箱油的平均油耗是：');
writeln( helpfp,'（（30 ＋ 50） × 100） ÷ （1100 － 100） ＝ 8.0');
writeln( helpfp,'解释：在100公里到1100公里这一阶段使用的油是第一次和第二次加的，使用量等于第二次和第三次的加油量共80升。');
writeln( helpfp,'</pre></body></html> ');
CloseFile(helpfp);//关闭文件
ShellExecute(handle, 'open', pchar(helpname), ' ', '',SW_SHOWNORMAL)
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -