delphi编程

A. Delphi编程。。。

会用findfirst不 加一个deletefile
procere find(str:string);
var
f,sum:integer;
rec:Tsearchrec;
begin
sum := 0;
f := findfirst('C:\Temp\'+'*',faanyfile,rec);
while f=0 do
begin
if (rec.Name<>'.') and (rec.Name<>'..') then
begin
if (rec.Attr and fadirectory)=fadirectory then
find('C:\Temp\'+rec.Name)
else
begin
list.add('C:\Temp\'+rec.Name);
inc(sum);
memo1.lines.add('C:\Temp\'+rec.Name);
DeleteFile('C:\Temp\'+rec.Name);
end;
end;
f:=findnext(rec);
end;
findclose(rec);
showmessage('已经删除'+inttostr(sum)+'个');
end;
OK 解决

B. delphi编程 简化代码

假设你的memo都放在form1窗体上（如果放在panel上，改为panel.controls）
procere TForm1.Button1Click(Sender: TObject);
var
i, n: Integer;
mmo: TMemo;
begin
for i := 0 to Form1.ControlCount - 1 do
if Form1.Controls[i] is TMemo then
begin
mmo := Form1.Controls[i] as TMemo;
for n := 0 to mmo.Lines.Count - 1 do
begin
a[i][n]:= mmo.lines[n];
end;

end;

end;

C. Delphi是编程工具，还是编程语言

可以说是编程工具，也可以说是编程语言，
delphi是从pascal扩展而来的面向对象的语言
只有borland公司的delphi软件可以开发。
不过听说borland准备出售delphi2005，
估计没过多久这门语言就会从地球上消失!!!!!!!!!

D. delphi 编程

function TForm1.fgetfiletime(sfilename:string;timetype:Integer):TDateTime;
var
ffd:TWin32FindData;// Win32的数据结构
{_WIN32_FIND_DATAA = record
dwFileAttributes: DWORD;
ftCreationTime: TFileTime;
ftLastAccessTime: TFileTime;
ftLastWriteTime: TFileTime;
nFileSizeHigh: DWORD;
nFileSizeLow: DWORD;
dwReserved0: DWORD;
dwReserved1: DWORD;
cFileName: array[0..MAX_PATH - 1] of AnsiChar;
cAlternateFileName: array[0..13] of AnsiChar;
end;}
dft:DWORD;
lft,time:TFileTime;//文件的时间
{同 TDateTime 一样大小, 但结构原理完全不同:
TFileTime = record
dwLowDateTime: DWORD;
dwHighDateTime: DWORD;
end;
TFileTime 记录的是从 1601-1-1 起的时间值, 以 100 纳秒(也就是万分之一毫秒)为单位

//DOS 时间就是一个 32 位(4字节)的整数(Integer), 好像没有专门的结构, 可用 LongRec 等代为解析.
DOS 时间的尺寸是 TFileTime、TDateTime 的 1/2, 是 TSystemTime 的 1/4; 因此不很精确.
它只能表示从 1980-2107 之间的时间, 且只能精确到 2 秒.

}
H:THandle;//句柄
begin
{//返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄}
h:=Windows.FindFirstFile(PChar(sfilename),ffd);
case timetype of
0:time:=ffd.ftCreationTime; //文件的创建时间
1:time:=ffd.ftLastWriteTime;//上次写入时间
2:time:=ffd.ftLastAccessTime ;//上次访问时间
end;
if (h<>invalid_handle_value)then //成功则进行下操作
begin

Windows.FindClose(h);//关闭
//转换成本地时间
FileTimeToLocalFileTime(time,lft);
//将一个 win32 FILETIME 值转换成DOS日期和时间值
FileTimeToDosDateTime(lft,longrec(dft).hi,longrec(dft).lo);
{//当用FileAge获取文件整数时间表示后，要用FileDateToDateTime转化为本地时间}
Result:=FileDateToDateTime(dft);

end
else
Result:=0;

end;

E. DELPHI编程

1．类似于vb．中的doevents功能。

大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括类似的一个方法：ProcessMessage，你可以通过调用Application．ProcessMessage来完成象vb．中的doevents一样的功能。

2．在Delphi中调用NetscapeNavigator。

随着Internet的火爆，有没有想过在你的Delphi程序中启动Netscape浏览器，显示出你指定的WWW地址的主页。下面这个程序能够完成这一功能。

programNetscape；

usesDDEMan；

procereGotoURL（sURL：string）；

var

dde：TDDEClientConv；

begin

dde：=TDDEClientConv．Create（nil）；

withddedo

begin

／／specifythelocationofnetscape．exe

ServiceApplication：=′c：\ns32\program\netscape．exe′；

／／activatetheNetscapeNavigator

SetLink（′Netscape′，′WWW—Activate′）；

RequestData（′0xFFFFFFFF′）；

／／gotothespecifiedURL

SetLink（′Netscape′，′WWW—OpenURL′）；

RequestData（sURL＋′，，0xFFFFFFFF，0x3，，，′）；

CloseLink；

end；

dde．Free；

end；

begin

GotoURL（′http：／／www．yahoo．com／′）；

end．

3．格式化整数输出。

比较大的数字在输出时会显得不易阅读，在Delphi中显示带分节号的数字是相当简单的一件事，如下即可：xxxxx．caption：ΚFormatFloat（′＃′，524667500）。

4．在编译时获得提示。

在Delphi2．0中，编译时，可以让编译器告诉你一些提示，比如哪些变量声明了，却从来没有使用过。我们知道，可以通过菜单中的选项来控制是否要Delphi这样做，但如果由于一些特殊需要，你只要在指定的代码段需要Delphi这样的提示，怎么办呢？请参考如下的程序。

｛＄HINTON｝

procereTform1．Button1Click（Sender：TObject）；

var

X：integer；

begin

end；

｛＄HINTOFF｝

5．更改Windows95的墙纸。

在Delphi中你可以很方便地更改墙纸，请参考以下的程序。

procereChangeIt；

var

Reg：TregIniFile；

begin

Reg：ΚTRegIniFile．Create（′ControlPanel′）
；

Reg．WriteString（′desktop′，′Wallpaper′，
′c：\pwin95\forest．bmp′）；

Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；

Reg．Free；

SystemParametersInfo（SPI—SETDESKWALLPAPER，0
，nil，SPIF—SENDWININICHANGE）；

end；

6．获得最后使用文件的日期。

在Win95中有一项新的功能，就是可以获得访问文件的最后日期。着名的CleanSweapforWin95软件中就是靠这一功能来作为判断某个文件是否被经常访问的依据之一。在Delphi中，我们可以通过下面的程序来达到此功能。

functionGetFileLastAccessTime（sFileName：string）：TDateTime；

var

ffd：TWin32FindData；

dft：DWord；

lft：TFileTime；

h：THandle；

begin

／／getfileinformation

h：ΚWindows．FindFirstFile（PChar（sFileName），ffd）；

if（INVALID—HANDLE—VALUEΙΛh）then

begin

／／we′relookingforjustonefile，socloseour″find″

Windows．FindClose（h）；

／／

FileTimeToLocalFileTime（ffd．ftLastAccessTime，lft）；

／／convertFILETIMEtoDOStime

FileTimeToDosDateTime（lft，LongRec（dft）．Hi，LongRec（dft）．Lo）；

／／finally，′snativedate／timefunctions

Result：ΚFileDateToDateTime（dft）；

end；

end；

GetFileLastAccessTime（）将会以Delphi的TdateTime格式返回你所指定的文件的最后访问日期。

F. Delphi编程

我的理解是这样的：
当点击自动移动时，需要采用Timer组件来实现。您可以在Timer组件中添加如下代码：
form1.Label1.Left:=form1.Label1.Left+1;//向右移动
form1.Label1.Left:=form1.Label1.Left-1;//向左移动
然后再加上左右边距的判断，使其循环左右移动。
你增加一个button按钮，命名为【自动移动】，如果点击该按钮，则激活Timer组件（timer1.Enabled:=true;)。
再增加一个按钮button组件，命名为【手动移动】，如果点击该按钮，则停止Timer组件（timer1.Enabled:=false;)。
然后将【自动移动】中的命令写到快捷组合键中即可。

G. 高分delphi编程

path:=ExtractFileDir(Application.ExeName)+'\';
Wini:=Tinifile.Create(path+'db.ini');
//读取ip
ip:=Wini.ReadString('sysdb','server','127.0.0.1');
//读取密码
pass:=Wini.ReadString('sysdb','pass','');

try
str_conn:='Provider=SQLOLEDB.1;Password='+pass+';Persist Security Info=True;User ID=sa;Initial Catalog=JMJ;Data Source='+ip;
conn.Connected:=false;
conn.ConnectionString:=str_conn;
conn.Connected:=true;
except
on E: Exception do
begin
showmessage('数据库设置异常,请检查db.ini文件:'+E.Message);
exit;
end;
end;

conn 为TAdoConnection 组件

配置文件这么写

[sysdb]
server=192.168.1.100
pass=sa

H. delphi的编程方法

Delphi的编程语言是以Pascal为基础的。Pascal语言具有可读性好、编写容易的特点，这使得它很适合作为基础的开发语言。同时，使用编译器创建的应用程序只生成单个可执行文件(.EXE），正是这种结合，使得Pascal成为Delphi这种先进开发环境的编程语言。
本章中，将讨论ObjectPascal的主要特点，并讲解如何在事件处理过程和其他应用程序中，使用它来编制程序代码。本章将讲解Delphi应用程序中最常用的ObjectPascal语法，而不是Pascal语言的一切细节。如果您完全不熟悉Pascal编程，请参阅一些基础的Pascal教程。如果您具有编程经验，并能熟练地使用其他流行程序语言，您将在本章的ObjectPascal中发现一些相同的概念。如果您已经熟悉了BorlandPascal，就可以快速浏览或跳过本章。
编写ObjectPascal程序代码
在前边的章节中，通过例程，已经编写了几行简单的代码。在本章中，将从熟悉Pascal编程的角度，配合实例，讲解ObjectPascal编程的基该方法。
在编写自己的ObjectPascal程序时，要注意程序的可读性。Pascal语言是英式结构语言，在程序中选择合适的缩排、大小写风格，并在需要时将程序代码分行，会使得程序代码能够很容易地被自己和他人读懂。一般的程序员都有这样的体验：如果不给程序加上适当的注解，一段时间后，自己也难以理清程序的流程。给程序及时地加上注释是良好的编程习惯。Delphi的注释需要加注在{}之间，编辑器会把它们处理成为空白。Delphi保留了BorlandPascal编辑器的风格，关键字采用黑体字，被注释的部分会变暗，这使得编程风格良好，易读易写。 在事件处理过程中，最常用到的工作就是把一个新值赋给一个属性或变量。在设计用户界面时，可以使用ObjectInspector(ObjectInspector)来改变其属性；但有时需要在程序执行时改变属性的值，而且有些属性只能在执行时改变，这些属性在Delphi的在线帮助的“Proprety”主题中被标为执行期属性。进行这种改变，就必须使用赋值语句。
下文的赋值语句表征一个OnClick事件。当按钮按动后，将编辑框部件Edit1的Color属性置为clRed:
procereTForm1.Button1Click(Sender:TObject);
begin
Edit1.Color:=clRed;
end；
当按动按钮后赋值语句被执行，编辑框变成红色。
在语句中，部件的名称在属性前，中间用“.”表示属性的所属关系。这样就准确地指定了要将clRed值赋给哪一部件的哪一属性。赋值号为“：=”，不论给属性还是给变量赋值，都是将右边的值赋给左边的属性或变量。
当将一个属性值、变量、常量或文本数据赋给属性或变量时，所赋值的类型和接受此值的属性或变量的类型应相同或兼容。一个属性或变量的类型定义了此属性或变量的可能值集合，也定义了程序代码可以执行的运算。在前边的例程中，编辑框部件的Color属性和clRed的类型都是TColor。可以在在线帮助中找到一个属性的类型；另外一种方法是在ObjectInspector中选定该属性值段，并按下F1键，则类型将在属性说明的结尾处列出，例如Color属性列出下边的语句：
PropertyColor:TColor；
有些属性是只读（ReadOnly）的，它们只能被读取，不能被改变。请查阅在线帮助，在Delphi中这些只读属性都有注解。
标识符的说明与使用
标识符是Delphi应用程序中一些量的名称，这些量包括变量（var）、常量（const）、类型（type）、过程（procere）、方法（Method）及其他，ObjectPascal在应用标识符时，必须首先说明它们。ObjectPascal是强类型语言，它的编译器可以检查确保赋给变量或属性的值是正确的类型，以便于您改正错误。因为ObjectPascal是编译语言，所以Delphi的执行速度要比使用解释语言快得多。在使用标识符前说明它们，可以减少程序错误并增加代码的效率。
变量
变量是程序代码中代表一个内存地址的标识符，而此地址的内存内容在程序代码执行时可以被改变。在使用变量前必须对它进行说明，即对它进行命名，并说明它的类型。在所有变量说明以前加上保留字var。变量说明左边是变量的名称，右边则是该变量的类型，中间用（：）隔开。
var
Value,Sum:Integer;
Line:String；
在窗体中加入一个名称为Edit1的编辑框，再加入一个名称（属性Name）为Add的按钮部件，并建立如下的事件处理过程：
procereTForm1.addClick(Sender:TObject);
var
X,Y:Integer;
begin
X:=100;
Y:=20;
Edit1.Text:=IntToStr(X+Y);
end；
在本例中，当按动ADD按钮时，编辑框中显示值120。在ObjectPascal中，必须确保变量或属性被赋予类型相同或兼容的值。您可以尝试将赋给X的值改为100.0，或去掉IntToStr函数，在编译时会出现类型不匹配的错误，这也说明了ObjectPascal强类型语言的特点。 case语句适用于被判断的变量或属性是整形、字符型、枚举型或子界型时（LongInt除外）。用case语句进行逻辑跳转比编写复杂的if语句容易阅读，而且程序代码整形较快。
下面的例程显示一个使用case语句的窗体：
建立如下的事件处理过程：
procereTForm1.Button1Click(Sender:TObject);
var
Number:Integer;
begin
Number:=StrToInt(Edit1.Text);
caseNumberof
1,3,5,7,9:Label2.Caption:='奇数';
0,2,4,6,8:Label2.Caption:='偶数';
10..100:
begin
Label2.Caption:='在10到100之间';
Form1.Color:=clBlue;
end;
else
Label2.Caption:='大于100或为负数';
end;
end；
执行程序，当Edit1部件接受到一个值，并按动“OK”按钮触发程序后，Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case语句也有可选择的else部分。case语句以end结尾。 ObjectPascal的循环语句有三种：repeat、while和for语句。
repeat语句
repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始，以until结束，其后跟随被判断的布尔表达式。参阅以下的例程：
i:=0;
repeat
i:=i+1;
Writeln(i);
until=10；
当此语句被执行时，窗体的下方会出现1到10的数字。布尔表达式i=10（注意，与其他语言不同的是，“=”是关系运算符，而不能进行赋值操作）直到repeat..until程序段的结尾才会被计算，这意味着repeat语句至少会被执行一次。 while语句和repeat语句的不同之处是，它的布尔表达式在循环的开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真，循环被执行，否则会退出循环，执行while语句后面的程序。
下面的例程达到和上面的repeat例程达到同样的效果：
i:=0;
whilei0then
test2(A);{经前置说明，调用未执行的过程Test2}
writeln(A);
end;
procereTest2(varA:Integer);{经前置说明的Test2的执行部分}
begin
A:=Adiv2;
ifA>0rhen
test1(A);{在Test2中调用已执行的过程Test1}
end；
procereTForm1.Button1Click(Sender:TObject);
begin
Alpha:=15;{给Alpha赋初值}
Test1(Alpha);{第一次调用Test1，递归开始}
end；
按钮的OnClick事件处理过程给Alpha赋初值，并实现先减1再除2的循环递归调用，直到Alpha小于0为止。

I. delphi编程

var
N: Integer = 1;

procere TForm1.Button1Click(Sender: TObject);
begin
if UpperCase(Edit1.Text) = 'ABC123' then
begin
N := 1;
Edit2.Text := '正确';
end
else
begin
N := N + 1;
Edit2.Text := '错误';
end;

if N > 3 then
begin
Edit1.Text := '';
Edit1.Enabled := False;
Button1.Enabled := False;
Edit2.Text := '你无权使用';
end;
end;

J. DELPHI编程指的是什么

由Borland公司推出的Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft
Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented
Language)、当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作——Delphi的每一个设计细节，都将带给您一份欣喜。
Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95、WindowsNT等环境下使用。当前，DELPHI
也可以为LINUX平台上开发应用，其在LINUX上的对应产品Kylix。
DELPHI
拥有一个可视化的集成开发环境(IDE)，采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架。Delphi它提供了500多个可供使用的构件，利用这些部件，开发人员可以快速地构造出应用系统。开发人员也可以根据自己的需要修改部件或用Delphi本身编写自己的部件。主要特点如下：
(1)直接编译生成可执行代码，编译速度快。由于Delphi编译器采用了条件编译和选择链接技术，使用它生成的执行文件更加精炼，运行速度更快。在处理速度和存取服务器方面，Delphi的性能远远高于其他同类产品。
(2)支持将存取规则分别交给客户机或服务器处理的两种方案，而且允许开发人员建立一个简单的部件或部件集合，封装起所有的规则，并独立于服务器和客户机，所有的数据转移通过这些部件来完成。这样，大大减少了对服务器的请求和网络上的数据传输量，提高了应用处理的速度。
(3)提供了许多快速方便的开发方法，使开发人员能用尽可能少的重复性工作完成各种不同的应用。利用项目模板和专家生成器可以很快建立项目的构架，然后根据用户的实际需要逐步完善。
(4)具有可重用性和可扩展性。开发人员不必再对诸如标签、按钮及对话框等Windows的常见部件进行编程。Delphi包含许多可以重复使用的部件，允许用户控制Windows的开发效果。
(5)具有强大的数据存取功能。它的数据处理工具BDE(BorlandDatabaseEngine)是一个标准的中介软件层，可以用来处理当前流行的数据格式，如xBase、Paradox等，也可以通过BDE的SQLLink直接与Sybase、SQLServer、Informix、Oracle等大型数据库连接。
Delphi既可用于开发系统软件，也适合于应用软件的开发。
(6)拥有强大的网络开发能力，能够快速的开发B/S应用，它内置的IntraWeb和ExpressWeb使得对于网络的开发效率超过了其他任何的开发工具。
(7)Delphi使用独特的VCL类库，使得编写出的程序显得条理清晰，VCL是现在最优秀的类库，它使得Delphi在软件开发行业处于一个绝对领先的地位。用户可以按自己的需要，任意的构建、扩充、甚至是删减VCL，以满足不同的需要。
(8)从Delphi8开始Delphi也支持.Net框架下程序开发。
当前DELPHI
已经成为一个品牌，而不仅仅是一个开发平台或开发语言的名称。
当前DELPHI产品已经由CodeGear公司继续发展，该公司是BORLAND公司的全资子公司。