|
||
|
摘要：
interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IniFiles; //加个INIFILES单元type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; But 阅读全文
posted @ 2013-09-11 20:14 ╰★张志峰★╮ 阅读(620) 评论(0) 推荐(0)
摘要：
delphi读写文本文件 在工作中遇到了这样一个问题，使用PLSQL将一个表的数据转化成一些列的insert语句存储到一个.sql文本中，我本来想使用access数据库中的查询视图一次执行这些语句，可是查询视图只能一次执行一条insert语句，如果手工执行将是一件很痛苦的事情。于是就自己想编写一个程序，让程序逐条读取insert语句，然后再执行语句。在网络上搜集了一些资料然后自己编写了一个逐行读取txt文本文件的程序，在这里和大家共享。 procedure TForm1.Button1Click(Sender: TObject);varfi:TextFile; //system单元中有text 阅读全文
posted @ 2013-09-10 20:30 ╰★张志峰★╮ 阅读(4742) 评论(0) 推荐(0)
摘要：
delphi操作文本文件的方法简介减小字体 增大字体 作者佚名来源不详发布时间2008-5-31 10:31:16发布人xuedelphi1 文件类型和标准过程 Delphi同Object Pascal一样支持三种文件类型，即：文本文件、记录文件、无类型文件。1.1文本文件 文本文件类型的变量用如下方法声明：varTextFileVar: Text ; 文本文件是以行为单位进行读、写操作的。由于每一行长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。而且文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 1.1.1 文本文件的打开、... 阅读全文
posted @ 2013-09-10 20:25 ╰★张志峰★╮ 阅读(2683) 评论(0) 推荐(0)
摘要：
Delphi中文本文件的操作相关知识内容: 在对文本文件进行任何处理之前，首先要打开此文本文件。声明变量：通过此变量可以来引用一个文本文件。 打开一个文件需要两步：首先是 AssignFile(),它可以将文件变量与一个文件关联起来。例如：这时，你可以进行第二步：打开文件。有三种方式打开文件：使用Rewrite()过程创建并打开文件；对于一个已存在的文件，此操作将使文件被覆盖；使用Reset()过程只读地打开一个文件；使用Append() 过程向已存在的文件追加文本。 注意Reset()将以可读写方式打开类型文件和无类型文件。可以使用CloseFile()来关闭一个已打开的文件。 下面是各种. 阅读全文
posted @ 2013-09-04 20:11 ╰★张志峰★╮ 阅读(710) 评论(0) 推荐(0)
摘要：
Delphi实现AnsiString与WideString的转换函数分类：Delphi2013-01-26 16:23460人阅读评论(0)收藏举报[delphi]view plaincopy在Delphi下，AnsiString和WideString的存储与管理各有不同，这里提供互相转换的函数一对。///WideString->AnsiStringfunctionWideStringToAnsiString(conststrWide:WideString;CodePage:Word):AnsiString;varLen:integer;beginResult:='';i 阅读全文
posted @ 2013-09-04 15:19 ╰★张志峰★╮ 阅读(3723) 评论(0) 推荐(1)
摘要：
一般来说，String与widestring 的转换是系统自动进行的，但是，考虑如下字符串 s:=#2+#3+#0+#10+#0+#1+#164+#59;，显然S的长度为8，然后执行如下代码 var S,S2:string; I: Integer; WS:widestring; begin s:=#2+#3+#0+#10+#0+#1+#164+#59; showmessage(inttostr(Length(S))); //显示为8，正常 WS := S; showmessage(inttostr(Length(WS))); //显示为7。。。 S := WS; showmessage(int 阅读全文
posted @ 2013-09-03 20:26 ╰★张志峰★╮ 阅读(11213) 评论(0) 推荐(2)
摘要：
delphi 调用Webservice ，停止服务的时候总是爱提示：Internal Server ErrorHTTP status code: 500HTTP error message: Can't execute C:\Program Files\Borland\Delphi7\Bin\serverinfo.exe 1813解决方法： 1.. 把进程中的serverinfo.exe停止。这样在重启一下服务， 一般就解决了。 阅读全文
posted @ 2013-09-03 19:20 ╰★张志峰★╮ 阅读(753) 评论(0) 推荐(0)
摘要：
procedure TForm6.btn1Click(Sender: TObject);var ABar:TdxBar; ABarItem:TdxBarItem; ABarSubItem:TdxBarSubItem; ABarItemLink:TdxBarItemLink; ABarButton:TdxBarButton;begin Self.dxBarManager1.Style:=bmsOffice11; //设置样式 bmsFlat|bmsOffice11|bmsStandard|bmsUseLookAndFeel|bmsXP|bmsEnhanced Self.dxBarManager1 阅读全文
posted @ 2013-09-02 11:03 ╰★张志峰★╮ 阅读(2288) 评论(0) 推荐(1)
摘要：
delphi调用java编写的webserviceJAVApojo:public class GroupInfo implements Serializable{ private static final long serialVersionUID = 7646885719123155790L; private int groupId; //组id private String groupName; //组名称 private int parentGroupId; //上级组id}方法：public List getAllGroupInfo(String username, String p. 阅读全文
posted @ 2013-08-30 17:59 ╰★张志峰★╮ 阅读(1503) 评论(0) 推荐(0)
摘要：
Delphi 使用自定义消息1、先用Const定义一个常量，例如const WM_MyMessage=WM_USER+$200;2、在要实现的unit中定义一个私有方法procedure doMyMessage(var msg:TMessage);message WM_MyMessage;3、实现这个私有方法procedure TForm1.doMyMessage(var msg:TMessage);begin//if msg.Msg= WM_MyMessage thenshowmessage('好啊')elseshowmessage('不好');end;4、最 阅读全文
posted @ 2013-08-30 15:12 ╰★张志峰★╮ 阅读(3241) 评论(0) 推荐(0) |
||
浙公网安备 33010602011771号