2012年6月9日
人物经验
摘要： 下1级经验的地址=eax*4+00B408A8下级人物的经验值=[下1级经验的地址]eax=人物的等级lv =[[[B3F6CC]+1c]+34]+48cExpMin =[[[B3F6CC]+1c]+34]+49cExpMaxAddr =lv*4+00B408A8ExpMax=[ExpMaxAddr]经验百分比 =(ExpMin/ExpMax)*100 //带1个小数点通过 Wiz 发布 阅读全文
posted @ 2012-06-09 21:27 XE2011 阅读(286) 评论(0) 推荐(0)
Image进度条 图片
摘要： unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage, ... 阅读全文
posted @ 2012-06-09 19:05 XE2011 阅读(234) 评论(0) 推荐(0)
delphi 使用parent让进度条上显示文字
摘要： 使用parent让进度条上显示文字 procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Font.Color:=clRed;Label1.Transparent:=True;Label1.Alignment:=taCenter;Label1.Parent:= ProgressBar1;Label1.... 阅读全文
posted @ 2012-06-09 13:56 XE2011 阅读(447) 评论(0) 推荐(0)
ini写配置信息
摘要： //列表框//文本框//编辑框//组合框//单选框//检查框unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;Button1: TButton;Button2: TButton;Memo1: TMemo;Button3: TButton;Button4: TButton;ComboBox1: TComboBo 阅读全文
posted @ 2012-06-09 13:51 XE2011 阅读(236) 评论(0) 推荐(0)
写入文件
摘要： procedure TForm1.Button1Click(Sender: TObject);varF:TextFile;fName:string;beginfName:='error.txt';AssignFile(F,fName);if FileExists(fName)then Append(F)else Rewrite(F);Writeln(F,'this is string');CloseFile(F);end;通过 Wiz 发布 阅读全文
posted @ 2012-06-09 13:50 XE2011 阅读(150) 评论(0) 推荐(0)