DeWeb 开发简要指南

DeWe是一个可以直接将Delphi程序快速转换为网页应用的工具

使用DeWeb, 开发者不需要学习HTML、JavaScript、Java、PHP、ASP、C#等新知识用Delphi搞定一切。

DeWeb开发的网页支持所有客户端,包括手机、平板等。...

阅读全文

Delphi莫明其妙错误的问题及解决

今天发现了一个 莫明其妙的错误 ,现将解决方案和大家分享下

用Delphi 10.1 打开 Delphi 10.2 的一个工程,运行时发生莫明其妙的错误,报内存错误

断点调试后,发现在某处错误。 把该...

阅读全文

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

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

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.
阅读全文