Category Archives: 原创

原创

一个更简洁的根据函数名执行函数的例子!

比前面发的更简洁! 不需要定义类, 一个函数搞定

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject) ;procedure MyFunc(AText: String) ;privateend;varForm1: TForm1;procedure ExecMethod(OnObject: TObject; MethodName: string;AMsg:String) ;implementation{$R *.dfm}procedure ExecMethod(OnObject: TObject; MethodName: string;AMsg:String) ;typeTExec = procedure(AText:String) of object;varRoutine : TMethod;Exec: TExec;beginRoutine.Data := Pointer(OnObject) ;Routine.Code := OnObject.MethodAddress(MethodName) ;if NOT Assigned(Routine.Code) then Exit;Exec := TExec(Routine) ;Exec(AMsg);end;procedure TForm1.MyFunc(AText: String) ;beginShowMessage(AText) ;end;procedure TForm1.Button1Click(Sender: TObject) ;beginExecMethod(Form1, 'MyFunc','ShowMyFunc') ;end;end.
阅读全文

多无人机综合仿真系统

一架有人机带三架无人机,搜索发现目标, 并实施打击

主要以二战末期的“亚眠营救”为假想背景。

德军在1944年初的大搜捕使法国北部的抵抗组织遭到严重破坏。大批法国北部的抵抗组织成员被德军逮捕。有情报显示...

阅读全文