htmlobjectlist.pas

帮助编写程序

{*******************************************************}
{                                                       }
{                动 态 网 页 编 辑 器                   }
{                                                       }
{       Copyright (C) 00,00 Justep Corporation          }
{                                                       }
{*******************************************************}
unit HTMLObjectList;

interface
uses
  classes;

type
  PTHTMLObjectType = ^THTMLObjectType;
  THTMLObjectType = record
    Name: string;
    HTMLText: string;
  end;

  function GetHTMLText(HTMLObjectListNum: Integer): string;

implementation

var
  HTMLObjectTypeList: TList;

procedure CreateHTMLObjectTypeList;
var
  lTHTMLObjectType: PTHTMLObjectType;
begin
  HTMLObjectTypeList := TList.Create;
  lTHTMLObjectType := New(PTHTMLObjectType);       //1单行文本
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=Text>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //2多行文本
  lTHTMLObjectType.Name := 'TextArea';
  lTHTMLObjectType.HTMLText := '<TEXTAREA rows=2 cols=20 name=textareal>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //3密码框
  lTHTMLObjectType.Name := 'PasswordBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=password type=password>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //4文件选择框
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=file type=file>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //5标准按钮
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=button type=button value=Button>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //6重置按钮
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=button type=reset value=Reset>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //7提交按钮
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=button type=submit value=Submit>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //8复选框
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=checkbox type=checkbox>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //9单选按钮
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<INPUT name=radio type=radio>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //10列表框
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<SELECT name=select size=2>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //11下拉选框
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<SELECT name=select <OPTION selected></OPTION></SELECT>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //12图形
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<SELECT name=select <OPTION selected></OPTION></SELECT>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //13标准换行
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<br>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //14清除左边距
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<br clear="left">';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //15清除右边距
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<br clear="right">';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //16清除两个边距
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<br clear="all">';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
  lTHTMLObjectType := New(PTHTMLObjectType);       //17水平线
  lTHTMLObjectType.Name := 'TextBox';
  lTHTMLObjectType.HTMLText := '<HR>';
  HTMLObjectTypeList.Add(lTHTMLObjectType);
end;

procedure DestroyHTMLObjectTypeList;
var
  i: Integer;
begin
  if HTMLObjectTypeList <> nil then
  begin
    for i := 0 to HTMLObjectTypeList.Count - 1 do
      Dispose(HTMLObjectTypeList.Items[i]);
    HTMLObjectTypeList.Free;
  end;
end;

function GetHTMLText(HTMLObjectListNum: Integer): string;
begin
  try
    Result := THTMLObjectType(HTMLObjectTypeList.Items[HTMLObjectListNum]^).HTMLText;
  except;
    Result := '';
  end;
end;

initialization
  CreateHTMLObjectTypeList;

finalization
  DestroyHTMLObjectTypeList;

end.