delphi 进销存源码（Delphi编译错误,源代码如下：）

本文目录

• Delphi编译错误,源代码如下：
• 如何将Delphi编写的程序转换成源码,详细点
• DELPHI源码如何编译为可执行文件
• 我有一个delphi的源码，编译的时候有错：找不到se_controls.pas
• 谁有可以运行的delphi+access或者其他数据库的药品进销存系统源代码，做毕业设计用的，急求，价格可谈
• 如何直接在编辑框解析简单的delphi源码脚本

Delphi编译错误,源代码如下：

程序中使用TXXXX属于“类引用”，类类型通常在设计类的时候用。象这里，应该改成
Form10.canvas.textout(.....);

如何将Delphi编写的程序转换成源码,详细点

【概括介绍】

MCGS组态软件是一款适用于windows平台，快速构造和生成上位机监控的工具，mcgs组态软件下载集现场采集、数据处理和控制设备等多种功能于一身，为客户提供全方位服务。

【软件特色】

免费：超强功能的无限点组态软件免费用

兼容：7.6软件向下兼容，支持全系列产品，兼容Win7-64位系统

低耗：应用于嵌入式计算机，仅占16M系统内存

通讯：支持串口、网口等多种通讯方式，支持MPI直连、PPI187.5K

驱动：提供了常用800多种设备的驱动

报表：多种数据存盘方式，多样报表显示形式，满足不同现场需求

曲线：支持实时、历史、计划等多种曲线形式，同时历史曲线的显示性能提升了10倍

动画：可实现逼真的动画效果，同时支持JPG、BMP图片，满足对容量和画质的不同需求

配方：配方名称支持中文，任意读写，支持配方导入导出，在线操作

下载：支持高速网络在线下载，支持U盘离线更新工程

安全：可设置工程密码、操作权限密码、运行期限等安全机制

简化：新增公共窗口，去除双击功能，简化组态流程

开放：用户可以自己编写驱动程序、应用程序，支持个性化定制，内置打印机功能

稳定：优化启动属性，内置看门狗，易用，可在各种恶劣环境下长期稳定运行

功能：提供中断处理，定时扫描可达毫秒级，提供对mcgsTpc串口、内存、端口的访问

存储：高压缩比的数据压缩方式，保证数据完整性，铁电存储初值，100亿次以上擦写

【MCGS组态软件组成】

主控窗口：是工程的主窗口或主框架。在主控窗口中可以放置一个设备窗口和多个用户窗口，负责调度和管理这些窗口的打开或关闭。主要的组态操作包括：定义工程的名称，编制工程菜单，设计封面图形，确定自动启动的窗口，设定动画刷新周期，指定数据库存盘文件名称及存盘时间等。

设备窗口：是连接和驱动外部设备的工作环境。在本窗口内配置数据采集与控制输出设备，注册设备驱动程序，定义连接与驱动设备用的数据变量。

用户窗口：本窗口主要用于设置工程中人机交互的界面，诸如：生成各种动画显示画面、报警输出、数据与曲线图表等。

实时数据库：是工程各个部分的数据交换与处理中心，它将MCGS工程的各个部分连接成有机的整体。在本窗口内定义不同类型和名称的变量，作为数据采集、处理、输出控制、动画连接及设备驱动的对象。

运行策略：本窗口主要完成工程运行流程的控制。包括编写控制程序（ifthen脚本程序），选用各种功能构件，如：数据提取、定时器、配方操作、多媒体输出等。

DELPHI源码如何编译为可执行文件

编译Delphi要用到 dcc32.exe，此文件位于 Delphi安装文件夹\bin里面
命令行运行，说明如下：
Syntax: dcc32
-A《unit》=《alias》 = Set unit alias -LU《package》 = Use package
-B = Build all units -M = Make modified units
-CC = Console target -N《path》 = DCU output directory
-CG = GUI target -O《paths》 = Object directories
-D《syms》 = Define conditionals -P = look for 8.3 file names also
-E《path》 = EXE output directory -Q = Quiet compile
-F《offset》 = Find error -R《paths》 = Resource directories
-GD = Detailed map file -U《paths》 = Unit directories
-GP = Map file with publics -V = Debug information in EXE
-GS = Map file with segments -VR = Generate remote debug (RSM)
-H = Output hint messages -W = Output warning messages
-I《paths》 = Include directories -Z = Output ’never build’ DCPs
-J = Generate .obj file -$《dir》 = Compiler directive
-JP = Generate C++ .obj file --help = Show this help screen
-K《addr》 = Set image base addr --version = Show name and version
Compiler switches: -$《letter》《state》 (defaults are shown below)
A8 Aligned record fields P+ Open string params
B- Full boolean Evaluation Q- Integer overflow checking
C+ Evaluate assertions at runtime R- Range checking
D+ Debug information T- Typed @ operator
G+ Use imported data references U- Pentium(tm)-safe divide
H+ Use long strings by default V+ Strict var-strings
I+ I/O checking W- Generate stack frames
J- Writeable structured consts X+ Extended syntax
L+ Local debug symbols Y+ Symbol reference info
M- Runtime type info Z1 Minimum size of enum types
O+ Optimization
如果要编译一个项目有多个文件，或者包涵资源文件，一般使用图形开发环境进行编译。

我有一个delphi的源码，编译的时候有错：找不到se_controls.pas

用Delphi编译的时候，每一个单元都对应一个pas文件，所以你找不到这个pas文件，只能说明几种情况，你的编译文件夹下缺失了这个单元文件，或者你在重新编译另存的时候没有把这个文件保存过来，你还是找找你这个源码的来源地，然后把pas文件拷过来，要是没有pas文件，你就把相应的这部分的代码源码保存并命名为se_controls.pas；要是都没有的话，要么这个Delphi源码你放弃好了；要么在主文件里面的代码去掉USE这个单元的代码。在编译的主文件中你创建一个新的单元，里面代码就会增加一句use unit1,Unit2。。。。。。之类的，去掉那个，还有其他单元里面有引用到这个单元的代码也要去掉，不过很麻烦就是了。建议你另找寻新源代码。

谁有可以运行的delphi+access或者其他数据库的药品进销存系统源代码，做毕业设计用的，急求，价格可谈

您好，1、在我国，随着医药卫生体制改革的深入，医药连锁经营的推行以及日趋激烈的商业角逐，越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。
2、在医药行业中，医药经营企业的物流管理以及相应的财务处理、信息处理，长期以来一直采用手工操作，但随着产业结构调整、全新的市场竞争环境，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。这就要求医药管理摆脱过去人手操作的烦琐过程，对所有的医药管理数据实行智能管理，促使医药管理朝着科学化和规范化的方向前进。
3、随着计算机技术的普及，在医药行业中，医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率，以赢得市场竞争的胜利。因而医药管理信息系统已经成为各医药经营企业实现医药管理网络化和信息化的必备工具，是医药经营企业规模经营管理不可缺少的部件之一。同时，软件开发环境的高度集成和数据库技术的日益成熟成为开发医药管理信息系统的技术基础，大大降低了系统的开发成本。系统开发工具的智能化、人性化，使得所开发的系统充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。市场的需求和技术的支持，最终会导致越来越多的优秀医药管理软件的出现，并在竞争中得到不断的完善和优化。

如何直接在编辑框解析简单的delphi源码脚本

uses
Math;
procedure TForm1.Button1Click(Sender: TObject);
var
lst:TStrings;
begin
lst:=TStringList.Create;
try
lst.Text:=StringReplace(StringReplace(memo1.Text, ’:’, ’’, );
memo2.Text:=IntToStr((Max(StrToInt(lst.Values)));
finally
lst.free;
end;
end;