文件名称:ActionSpeedConfig.dfm
是朋友给的游戏引擎的源码里的其中一个文件
我用文本打开显示如下: 请问各位这是什么语言的源码????

object frmActionSpeed: TfrmActionSpeed
Left = 239
Top = 294
ActiveControl = ButtonClose
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #32452#21512#25805#20316#36895#24230#35774#32622
ClientHeight = 257
ClientWidth = 318
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
ShowHint = True
PixelsPerInch = 96
TextHeight = 12
object Label5: TLabel
Left = 8
Top = 240
Width = 288
Height = 12
Caption = #21442#25968#35843#25972#21518#65292#22312#28216#25103#20013#20154#29289#23567#36864#21518#29983#25928#65292#38750#31435#21363#29983#25928#12290
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 297
Height = 193
TabOrder = 0
object GroupBox3: TGroupBox
Left = 152
Top = 16
Width = 137
Height = 49
TabOrder = 0
object Label15: TLabel
Left = 11
Top = 24
Width = 54
Height = 12
Caption = #36305#20301#38388#38548':'
end
object EditRunLongHitIntervalTime: TSpinEdit
Left = 68
Top = 20
Width = 53
Height = 21
Hint = #25511#21046#36305#20301#21050#26432#25915#20987#38388#38548#26102#38388#65292#21333#20301#20026'('#27627#31186')'#12290
EditorEnabled = False
Increment = 10
MaxValue = 2000
MinValue = 10
TabOrder = 0
Value = 350
OnChange = EditRunLongHitIntervalTimeChange
end
object CheckBoxControlRunLongHit: TCheckBox
Left = 8
Top = -1
Width = 121
Height = 17
Hint = #26159#21542#23545#36305#20301#21050#26432#36827#34892#25511#21046#12290
Caption = #21551#29992#36305#20301#21050#26432#25511#21046
TabOrder = 1
OnClick = CheckBoxControlRunLongHitClick
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 16
Width = 137
Height = 49
Caption = #32452#21512#25805#20316#38388#38548
TabOrder = 1
object Label2: TLabel
Left = 11
Top = 24
Width = 54
Height = 12
Caption = #38388#38548#26102#38388':'
end
object EditActionIntervalTime: TSpinEdit
Left = 68
Top = 20
Width = 53
Height = 21
Hint = #25511#21046#32452#21512#26222#36890#25805#20316#38388#38548#26102#38388#65292#21333#20301#20026'('#27627#31186')'#12290
EditorEnabled = False
Increment = 10
MaxValue = 2000
MinValue = 10
TabOrder = 0
Value = 350
OnChange = EditActionIntervalTimeChange
end
end
object CheckBoxControlActionInterval: TCheckBox
Left = 8
Top = -1
Width = 121
Height = 17
Hint = #26159#21542#23545#32452#21512#25805#20316#36827#34892#25511#21046#12290
Caption = #21551#29992#32452#21512#25805#20316#25511#21046
TabOrder = 2
OnClick = CheckBoxControlActionIntervalClick
end
object GroupBox4: TGroupBox
Left = 8
Top = 72
Width = 137
Height = 49
TabOrder = 3
object Label1: TLabel
Left = 11
Top = 24
Width = 54
Height = 12
Caption = #36305#20301#38388#38548':'
end
object EditRunHitIntervalTime: TSpinEdit
Left = 68
Top = 20
Width = 53
Height = 21
Hint = #25511#21046#36305#20301#25915#20987#38388#38548#26102#38388#65292#21333#20301#20026'('#27627#31186')'#12290
EditorEnabled = False
Increment = 10
MaxValue = 2000
MinValue = 10
TabOrder = 0
Value = 350
OnChange = EditRunHitIntervalTimeChange
end
object CheckBoxControlRunHit: TCheckBox
Left = 8
Top = -1
Width = 121
Height = 17
Hint = #26159#21542#23545#36305#20301#25915#20987#36827#34892#25511#21046#12290
Caption = #21551#29992#36305#20301#25915#20987#25511#21046
TabOrder = 1
OnClick = CheckBoxControlRunHitClick
end
end
object GroupBox5: TGroupBox
Left = 152
Top = 72
Width = 137
Height = 49
TabOrder = 4
object Label3: TLabel
Left = 11
Top = 24
Width = 54
Height = 12
Caption = #36208#20301#38388#38548':'
end
object EditWalkHitIntervalTime: TSpinEdit
Left = 68
Top = 20
Width = 53
Height = 21
Hint = #25511#21046#36208#20301#25915#20987#38388#38548#26102#38388#65292#21333#20301#20026'('#27627#31186')'#12290
EditorEnabled = False
Increment = 10
MaxValue = 2000
MinValue = 10
TabOrder = 0
Value = 350
OnChange = EditWalkHitIntervalTimeChange
end
object CheckBoxControlWalkHit: TCheckBox
Left = 8
Top = -1
Width = 121
Height = 17
Hint = #26159#21542#23545#36305#20301#25915#20987#36827#34892#25511#21046#12290
Caption = #21551#29992#36208#20301#25915#20987#25511#21046
TabOrder = 1
OnClick = CheckBoxControlWalkHitClick
end
end
object GroupBox6: TGroupBox
Left = 8
Top = 128
Width = 137
Height = 49
TabOrder = 5
object Label4: TLabel
Left = 11
Top = 24
Width = 54
Height = 12
Caption = #36305#20301#38388#38548':'
end
object EditRunMagicIntervalTime: TSpinEdit
Left = 68
Top = 20
Width = 53
Height = 21
Hint = #25511#21046#36305#20301#39764#27861#38388#38548#26102#38388#65292#21333#20301#20026'('#27627#31186')'#12290
EditorEnabled = False
Increment = 10
MaxValue = 2000
MinValue = 10
TabOrder = 0
Value = 350
OnChange = EditRunMagicIntervalTimeChange
end
object CheckBoxControlRunMagic: TCheckBox
Left = 8
Top = -1
Width = 121
Height = 17
Hint = #26159#21542#23545#36305#20301#25915#20987#36827#34892#25511#21046#12290
Caption = #21551#29992#36305#20301#39764#27861#25511#21046
TabOrder = 1
OnClick = CheckBoxControlRunMagicClick
end
end
end
object ButtonSave: TButton
Left = 80
Top = 205
Width = 65
Height = 25
Caption = #20445#23384'(&S)'
TabOrder = 1
OnClick = ButtonSaveClick
end
object ButtonDefault: TButton
Left = 8
Top = 205
Width = 65
Height = 25
Caption = #40664#35748'(&D)'
TabOrder = 2
OnClick = ButtonDefaultClick
end
object ButtonClose: TButton
Left = 240
Top = 204
Width = 65
Height = 25
Caption = #20851#38381'(&C)'
TabOrder = 3
OnClick = ButtonCloseClick
end
object CheckBoxIncremeng: TCheckBox
Left = 160
Top = 208
Width = 73
Height = 17
Caption = #24494#35843#21442#25968
TabOrder = 4
OnClick = CheckBoxIncremengClick
end
end

可能是一个文件看不出什么,再来段

unit ActionSpeedConfig;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;

type
TfrmActionSpeed = class(TForm)
GroupBox1: TGroupBox;
GroupBox3: TGroupBox;
Label15: TLabel;
EditRunLongHitIntervalTime: TSpinEdit;
GroupBox2: TGroupBox;
Label2: TLabel;
EditActionIntervalTime: TSpinEdit;
CheckBoxControlActionInterval: TCheckBox;
CheckBoxControlRunLongHit: TCheckBox;
GroupBox4: TGroupBox;
Label1: TLabel;
EditRunHitIntervalTime: TSpinEdit;
CheckBoxControlRunHit: TCheckBox;
GroupBox5: TGroupBox;
Label3: TLabel;
EditWalkHitIntervalTime: TSpinEdit;
CheckBoxControlWalkHit: TCheckBox;
ButtonSave: TButton;
ButtonDefault: TButton;
ButtonClose: TButton;
CheckBoxIncremeng: TCheckBox;
GroupBox6: TGroupBox;
Label4: TLabel;
EditRunMagicIntervalTime: TSpinEdit;
CheckBoxControlRunMagic: TCheckBox;
Label5: TLabel;
procedure ButtonCloseClick(Sender: TObject);
procedure ButtonDefaultClick(Sender: TObject);
procedure ButtonSaveClick(Sender: TObject);
procedure CheckBoxControlActionIntervalClick(Sender: TObject);
procedure EditActionIntervalTimeChange(Sender: TObject);
procedure CheckBoxControlRunLongHitClick(Sender: TObject);
procedure EditRunLongHitIntervalTimeChange(Sender: TObject);
procedure CheckBoxControlRunHitClick(Sender: TObject);
procedure EditRunHitIntervalTimeChange(Sender: TObject);
procedure CheckBoxControlWalkHitClick(Sender: TObject);
procedure EditWalkHitIntervalTimeChange(Sender: TObject);
procedure CheckBoxIncremengClick(Sender: TObject);
procedure CheckBoxControlRunMagicClick(Sender: TObject);
procedure EditRunMagicIntervalTimeChange(Sender: TObject);
private
{ Private declarations }
boOpened:Boolean;
boModValued:Boolean;
procedure ModValue();
procedure uModValue();
procedure SaveConfig();
procedure RefSpeedConfig();
public
procedure Open();
{ Public declarations }
end;

var
frmActionSpeed: TfrmActionSpeed;

implementation

uses SDK, M2Share;

{$R *.dfm}

{ TfrmActionSpeed }

procedure TfrmActionSpeed.ModValue;
begin
boModValued:=True;
ButtonSave.Enabled:=True;

end;

procedure TfrmActionSpeed.uModValue;
begin
boModValued:=False;
ButtonSave.Enabled:=False;
end;

procedure TfrmActionSpeed.Open;
begin
boOpened:=False;
uModValue();
RefSpeedConfig();

boOpened:=True;
ShowModal;
end;

procedure TfrmActionSpeed.ButtonCloseClick(Sender: TObject);
ResourceString
sExitMsg = '设置已被修改是否不保存设置退出？';
sExitMsgTitle = '确认信息';
begin
if not boModValued then begin
Close;
exit;
end;
if (MessageBox(Handle,PChar(sExitMsg),PChar(sExitMsgTitle) , MB_YESNO + MB_ICONQUESTION) = IDYES) then begin
Close;
end;
end;

procedure TfrmActionSpeed.RefSpeedConfig;
begin
EditActionIntervalTime.Value := g_Config.dwActionIntervalTime;
EditRunLongHitIntervalTime.Value := g_Config.dwRunLongHitIntervalTime;
EditRunHitIntervalTime.Value := g_Config.dwRunHitIntervalTime;
EditWalkHitIntervalTime.Value := g_Config.dwWalkHitIntervalTime;
EditRunMagicIntervalTime.Value := g_Config.dwRunMagicIntervalTime;
CheckBoxControlActionInterval.Checked := g_Config.boControlActionInterval;
CheckBoxControlRunLongHit.Checked := g_Config.boControlRunLongHit;
CheckBoxControlRunHit.Checked := g_Config.boControlRunHit;
CheckBoxControlWalkHit.Checked := g_Config.boControlWalkHit;
CheckBoxControlRunMagic.Checked := g_Config.boControlRunMagic;
end;

procedure TfrmActionSpeed.ButtonDefaultClick(Sender: TObject);
ResourceString
sExitMsg = '是否确认恢复默认设置？';
sExitMsgTitle = '确认信息';
begin
if Application.MessageBox(PChar(sExitMsg),PChar(sExitMsgTitle) , MB_YESNO + MB_ICONQUESTION) <> IDYES then begin
exit;
end;
boOpened:=False;
ModValue();
g_Config.dwActionIntervalTime := 400;
g_Config.dwRunLongHitIntervalTime := 800;
g_Config.dwRunHitIntervalTime := 800;
g_Config.dwWalkHitIntervalTime := 800;
g_Config.dwRunMagicIntervalTime := 900;
g_Config.boControlActionInterval := True;
g_Config.boControlRunLongHit := True;
g_Config.boControlRunHit := True;
g_Config.boControlWalkHit := True;
g_Config.boControlRunMagic := True;

RefSpeedConfig();
boOpened:=True;
end;

procedure TfrmActionSpeed.SaveConfig;
begin
Config.WriteBool('Setup','ControlActionInterval',g_Config.boControlActionInterval);
Config.WriteBool('Setup','ControlWalkHit',g_Config.boControlWalkHit);
Config.WriteBool('Setup','ControlRunLongHit',g_Config.boControlRunLongHit);
Config.WriteBool('Setup','ControlRunHit',g_Config.boControlRunHit);
Config.WriteBool('Setup','ControlRunMagic',g_Config.boControlRunMagic);

Config.WriteInteger('Setup','ActionIntervalTime',g_Config.dwActionIntervalTime);
Config.WriteInteger('Setup','RunLongHitIntervalTime',g_Config.dwRunLongHitIntervalTime);
Config.WriteInteger('Setup','RunHitIntervalTime',g_Config.dwRunHitIntervalTime);
Config.WriteInteger('Setup','WalkHitIntervalTime',g_Config.dwWalkHitIntervalTime);
Config.WriteInteger('Setup','RunMagicIntervalTime',g_Config.dwRunMagicIntervalTime);
end;

procedure TfrmActionSpeed.ButtonSaveClick(Sender: TObject);
begin
SaveConfig();
uModValue();
end;

procedure TfrmActionSpeed.CheckBoxIncremengClick(Sender: TObject);
var
nIncrement:Integer;
begin
if CheckBoxIncremeng.Checked then nIncrement:=1
else nIncrement:=10;

EditActionIntervalTime.Increment := nIncrement;
EditRunLongHitIntervalTime.Increment := nIncrement;
EditRunHitIntervalTime.Increment := nIncrement;
EditWalkHitIntervalTime.Increment := nIncrement;
end;
procedure TfrmActionSpeed.CheckBoxControlActionIntervalClick(
Sender: TObject);
var
boStatus:Boolean;
begin
boStatus := CheckBoxControlActionInterval.Checked;
EditActionIntervalTime.Enabled := boStatus;
CheckBoxControlRunLongHit.Enabled := boStatus;
CheckBoxControlRunHit.Enabled := boStatus;
CheckBoxControlWalkHit.Enabled := boStatus;
CheckBoxControlRunMagic.Enabled := boStatus;

CheckBoxControlRunLongHitClick(Sender);
CheckBoxControlRunHitClick(Sender);
CheckBoxControlWalkHitClick(Sender);
CheckBoxControlRunMagicClick(Sender);

if not boOpened then exit;
g_Config.boControlActionInterval := boStatus;
ModValue();
end;

procedure TfrmActionSpeed.EditActionIntervalTimeChange(Sender: TObject);
begin
if not boOpened then exit;
g_Config.dwActionIntervalTime:=EditActionIntervalTime.Value;
ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlRunLongHitClick(Sender: TObject);
var
boStatus:Boolean;
begin
boStatus:=CheckBoxControlRunLongHit.Checked and CheckBoxControlRunLongHit.Enabled;

EditRunLongHitIntervalTime.Enabled:=boStatus;

if not boOpened then exit;
g_Config.boControlRunLongHit:=boStatus;
ModValue();
end;

procedure TfrmActionSpeed.EditRunLongHitIntervalTimeChange(
Sender: TObject);
begin
if not boOpened then exit;
g_Config.dwRunLongHitIntervalTime:=EditRunLongHitIntervalTime.Value;
ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlRunHitClick(Sender: TObject);
var
boStatus:Boolean;
begin
boStatus:=CheckBoxControlRunHit.Checked and CheckBoxControlRunHit.Enabled;
EditRunHitIntervalTime.Enabled:=boStatus;

if not boOpened then exit;
g_Config.boControlRunHit:=boStatus;
ModValue();
end;

procedure TfrmActionSpeed.EditRunHitIntervalTimeChange(Sender: TObject);
begin
if not boOpened then exit;
g_Config.dwRunHitIntervalTime:=EditRunHitIntervalTime.Value;
ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlWalkHitClick(Sender: TObject);
var
boStatus:Boolean;
begin
boStatus:=CheckBoxControlWalkHit.Checked and CheckBoxControlWalkHit.Enabled;
EditWalkHitIntervalTime.Enabled:=boStatus;

if not boOpened then exit;
g_Config.boControlWalkHit:=boStatus;
ModValue();
end;

procedure TfrmActionSpeed.EditWalkHitIntervalTimeChange(Sender: TObject);
begin
if not boOpened then exit;
g_Config.dwWalkHitIntervalTime:=EditWalkHitIntervalTime.Value;
ModValue();
end;

procedure TfrmActionSpeed.CheckBoxControlRunMagicClick(Sender: TObject);
var
boStatus:Boolean;
begin
boStatus:=CheckBoxControlRunMagic.Checked and CheckBoxControlRunMagic.Enabled;
EditRunMagicIntervalTime.Enabled:=boStatus;

if not boOpened then exit;
g_Config.boControlRunMagic:=boStatus;
ModValue();
end;

procedure TfrmActionSpeed.EditRunMagicIntervalTimeChange(Sender: TObject);
begin
if not boOpened then exit;
g_Config.dwRunMagicIntervalTime:=EditRunMagicIntervalTime.Value;
ModValue();
end;

end.

还有个文件更奇怪,名字叫DataEngine.cfg

里面我用文本打开是这东西:

-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E"F:\GameOfMir\Release\M2Server"
-N"..\Build\M2Server\"
-LE"c:\program files\borland\delphi6\Projects\Bpl"
-LN"c:\program files\borland\delphi6\Projects\Bpl"