代码生成器 代码生成器

_ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '100'; _ShpFormat.Caption := '强制连接线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '191'; _ShpFormat.Caption := '图幅范围线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '192'; _ShpFormat.Caption := '资料范围线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '193'; _ShpFormat.Caption := '0.10mm黑线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '194'; _ShpFormat.Caption := '0.12mm黑线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '195'; _ShpFormat.Caption := '0.15mm黑线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '196'; _ShpFormat.Caption := '0.20mm黑线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '197'; _ShpFormat.Caption := '0.25mm黑线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '198'; _ShpFormat.Caption := '0.30mm黑线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '199'; _ShpFormat.Caption := 'TILE线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '291'; _ShpFormat.Caption := '海图'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '292'; _ShpFormat.Caption := '资料范围'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '299'; _ShpFormat.Caption := '图像'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '511001'; _ShpFormat.Caption := '三角点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '511002'; _ShpFormat.Caption := '埋石点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '511003'; _ShpFormat.Caption := '水准点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '511004'; _ShpFormat.Caption := '独立天文点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '511005'; _ShpFormat.Caption := '测站点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521001'; _ShpFormat.Caption := '孤峰'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521002'; _ShpFormat.Caption := '峰丛'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521003'; _ShpFormat.Caption := '独立石'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521004'; _ShpFormat.Caption := '高程点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521005'; _ShpFormat.Caption := '比高标记点'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521006'; _ShpFormat.Caption := '火山口'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521007'; _ShpFormat.Caption := '沙地'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521101'; _ShpFormat.Caption := '首曲线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521102'; _ShpFormat.Caption := '计曲线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521103'; _ShpFormat.Caption := '间曲线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521104'; _ShpFormat.Caption := '草绘等高线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521105'; _ShpFormat.Caption := '山形线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521106'; _ShpFormat.Caption := '示坡线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521107'; _ShpFormat.Caption := '陡石山(线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521108'; _ShpFormat.Caption := '土质陡崖(宽不依)'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521109'; _ShpFormat.Caption := '土质陡崖边线(代替宽依)'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521110'; _ShpFormat.Caption := '石质陡崖(宽不依)'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521111'; _ShpFormat.Caption := '石质陡崖边线(单面坡)'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521112'; _ShpFormat.Caption := '冰川边线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521113'; _ShpFormat.Caption := '熔岩流边线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521114'; _ShpFormat.Caption := '干河'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineColor := clBlue; _ShpFormat := FShpFormats.Add; _ShpFormat.CodeName := '编码'; _ShpFormat.Code := '521115'; _ShpFormat.Caption := '沙地边线'; _ShpFormat.AreaColor := clBlue; _ShpFormat.LineCol