1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
unit fsformunit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TFsForm = class(TForm) public PdName: String; procedure Parse(const S: String); virtual; abstract; end; implementation end.