uses Comobj; procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0); end; Delphi_TTS_1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl

Delphi过程函数传递参数的几种方式  在Delphi过程.函数中传递参数几个修饰符为Const.Var.Out. 另一种不加修饰符的为默认按值传递参数. 一.默认方式以值方式传递参数 procedure TForm1.ProcNormal(Value: string); begin OrigNum:=Value+' Me'; lblReturn.Caption:=OrigNum;//OrigNum为'Hello Me' lblOrig.Caption:=Value;//Value为'Hell

关于 Delphi Xe10 FMX 启动参数  需要在启动窗口前来调用 也就是在bar文件修改 如果参数多可以用json来 uses system.SysUtils; var param: string; begin if FindCmdLineSwitch('p') then FindCmdLineSwitch('p', param); Application.Initialize; Application.CreateForm(TdmLoginCore, dmLoginCore); App

http://bbs.csdn.net/topics/390513469/ unit uThread; interface uses Classes; type Th = class(TThread) private { Private declarations } protected procedure Execute; override; end; 以上是创建的一个多线程 我在另外一个单元里Unit1有一个函数 function Myfun(username,password:string)

Delphi的参数可以分为:默认参数(传值).var(传址).out(输出).const(常数)四类 可以对比C/C++的相关知识,类比学习. 1.默认参数是传值,不会被改变,例子 function MyFun(x : Integer) : Integer; begin Inc(x); Result := x; end; 2.var参数是传址,会被改变,例子 function MyFunVar(var x : Integer) : Integer; begin Inc(x); Result :=

在实际工作中,常遇到对Ini参数的修改,显示与保存问题. 如果手工写代码,会有很大的工作量. 本例把ini文件的参数与控件绑定起来,以达到方便使用的目的. 本例程共有2个单元 uSimpleParam->TSimpleParam;//本功能 uSimpleList->TSimpleList;用泛型实现的TList,更实用一点 源码下载 //用法: const csEditSimpleParam = 'EditSimpleParam'; csCheckBoxParam = 'CheckBoxPa

今天一同事问我为什么有些过程函数里面有Var而有些没有,不解,遂到网上百度,得解.快哉,快哉. 在Delphi过程.函数中传递参数几个修饰符为Const.Var.Out.另一种不加修饰符的为默认按值传递参数. 以下是我百度出来的八种Delphi过程函数的传递方式. 一.默认方式以值方式传递参数 procedure TForm1.ProcNormal(Value: string); begin OrigNum:=Value+' Me'; lblReturn.Caption:=OrigNum;//O

今天看了多年前的一个帖子,发现回答不合理,有些还将其归为delphi的bug.其实主要是没有灵活应用参数. ADOQUERY查询时,这样不行,结果不正确. WITH ADOQUERY1 DO BEGIN   CLOSE;SQL.CLEAR;   SQL.ADD('SELECT * FROM TABLE1 WHERE TA001=:MONTH AND TA002=:MONTH');   PARAMETERS.ParamByName('MONTH').Value :=EDIT1.TEXT;   OP

Delphi代码 ************************************************************************************************************************************ unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dial

参数可以分为: 默认参数(传值).var(传址).out(输出).const(常数)四类 {默认参数是传值, 不会被改变} function MyF1(x: Integer): Integer; begin Inc(x); Result := x; end; {var参数是传址, 会被改变} function MyF2(var x: Integer): Integer; begin Inc(x); Result := x; end; {out参数是为支持Com的, 和 var 的结果是一样的,

ClientDataSet1.CommandText := sSQL;   ClientDataSet1.Params.Clear; ClientDataSet1.CommandText :='SELECT * FROM test WHERE ID=:TID and Code=:Code ';   //传参后面加一个空格 ClientDataSet1.Params.ParamByName(; ClientDataSet1.Params.ParamByName('; //每个":Code &quo

{ paper selections } {$EXTERNALSYM DMPAPER_LETTER} DMPAPER_LETTER = 1; { Letter 8 12 x 11 in } {$EXTERNALSYM DMPAPER_FIRST} DMPAPER_FIRST = DMPAPER_LETTER; {$EXTERNALSYM DMPAPER_LETTERSMALL} DMPAPER_LETTERSMALL = 2; { Letter Small 8 12 x 11 in } {$EX

Delphi过程函数传递参数的八种方式

17.4.1 使用Params属性为参数赋值   TQuery部件具有一个Params属性,它们在设计时不可用,在程序运行过程中可用,并且是动态建立的,当为TQuery部件编写动态SQL 语句时, Delphi 会自动地建立一个数组Params,数组Params是以0下标开始的,依次对应动态SQL 语句中的参数, 也就是说动态SQL语句中第一个参数对应Params[0],第二个参数对应params[1],依此类推. 例如:一个TQuery部件Query1,我们为它编写的动态SQL语句是:   I

Delphi调用OLE类实现TTS方式语音朗读 直接看代码: unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Comobj, Dialogs, StdCtrls, RzButton; type TFrmMain = class(TForm) btnStart: TRzBitBtn; mmMsg: TMemo; procedure btnSta

发现Delphi中关于函数参数部分的内容还是比较多的,暂时说到这篇随笔为止吧,以后再继续讨论一下函数的参数部分的内容. 一 工程文件 program DefaultParameter; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in 'unit1.pas'; var nVar:integer; strVar:string; i:integer; nVarArray:array of integer; begin { 1. 调用具有默认参数的方法 } //不提

1 BASM概念简要  汇编语句由指令和零至三个表达式构成.表达式由常数(立即数).寄存器和标识符构成.例如: movsb        // 单指令语句 jmp @Here    // 一个表达式: 标识符 add eax,1    // 两个表达式: 寄存器和立即数 // 三个表达式: 寄存器, 标识符(内存地址), 立即数 imul edx, [ebx].RandSeed, 08088405H 一段BASM代码以ASM关键字开始,END关键字结束.中间有任意多个汇编语句. BASM代码通常

-Duser.name=Z.yu 固定码率的例子:=======================================================================固定码率 联合立体声 128kbps编码:% lame sample.wav sample.mp3 固定码率 联合立体声 128kbps编码,较高质量:(推荐) % lame -h sample.wav sample.mp3 快速编码,较低质量(无噪音修整)% lame -f sample.wav samp

Delphi内嵌ASM简易教程 作者:heiying2006-03-19 18:33分类:默认分类标签: 前言 Delphi作为一个快速高效的开发平台,使用的人越来越多,但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多,因为这方面的资料太少了,另一方面,它还需要有基本的汇编语言知识,关於汇编语言的教程,那实在太多了,如果你对汇编语言不熟的话,建议你下载相交的教程先读读.因此,本文假定您已经熟悉了汇编语言. (注,下文中的函数与过程统称为函数.)一．如何在Delphi程序中增加一段汇编代码

以下讨论均基于Delphi XE8,主要是利用DELPHI新版的功能,如:Unicode,泛型,匿名函数等[XE2 后应该都支持]. 用新特性的好处是少写代码,提高效率.本博客不再讨论Delphi旧版,旧版资料太多,无需太多重复. 本博客不讨论第三方控件,因为Delphi没落已成事实,第三方控件很难再去支持新版,但Delphi本身作为非程序员的工具,还是非常合适的. 非程序员要用DELPHI生存(生存是指用Delphi熟练正确地解决问题)下来,请参考以下技能:(本文会不断更内容并加上实例代码)