longqcc

摘要： uses Clipbrd; Clipboard.SetTextBuf(PChar(str)); 菊子曰：我在用着的博客编辑软件 阅读全文

摘要： //ShowMessage: begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1} Application.Title := '警告'; {如果修改工程标题...} ShowMessage('提示内容'); {标题是'警告'} ShowMessage('第一行' + #13#10 + '第二行'); {提示信息... 阅读全文

摘要： uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss); //C:\Documents and Settings\wy\My Documents... 阅读全文

摘要： 前言: Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关联: Assig... 阅读全文

摘要： 执行一个外部程序并等待他的结束 //下面的函数执行一个程序并且等他的结束。 //在外部程序结束运行之前，不能做任何操作！ //EXL:WinExecW('C:\Windows\NOtePad.exe', '', sw_show); Function WinExecW(CMD, WorkDir: PChar; Visialbe: integer):DWORD; var StartupInfo: TS... 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2:... 阅读全文

摘要： var s: string; begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 } s :=... 阅读全文

摘要： var s: string; begin //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间 s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05} {指令 c 表示用短格式显示日期与时间} s := FormatDateTime('d', Now); {返回: 19... 阅读全文

摘要： delphi的取整函数round、trunc、ceil和floor 1.Round（四舍六入五留双） 功能说明：对一个实数进行四舍五入。(按照银行家算法) 例： var i, j: Integer; begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2 end; 在Delphi中使用Round函数得到的答案有时与我们所预期的会不... 阅读全文

摘要： var s: string; begin //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended s := FormatFloat('###.###',12.3456); //返回: 12.346 s := FormatFloat('000.000',12.3456); //返回: 012.346 s := FormatFloat('#.#... 阅读全文