Delphi

(一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿： ExcelApp.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' ); 5) 设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值： ExcelApp.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： ExcelApp.ActiveSheet.Rows

按照Embarcadero的说法：Windows平台只能使用VCL，Windows、iOS和Android都可以使用FMX，并且VCL和FMX不能同时在一个程序中。FMX的用法与VCL有一定的差异，先从最简单的说起： 应用程序的关闭退出 在VCL中，关闭程序的主窗体也就意味着程序的主循环结束，主程序自然而然结束。所以在主窗体中使用窗体的关闭函数（Close）即可，如下： procedure TfrmMain.btncloseClick(Sender: TObject); begin Close; end; 在FMX中，由Activity替代了Form的概念，虽然TForm类仍然存在，但MainForm通过关闭函数无法结束程序，使用Application.Terminate均无效，调整为： uses FMX.Platform.Android; procedure TForm2.SpeedButton1Click(Sender: TObject); begin MainActivity.finish; end; 此时程序直接关闭了，如果需要在退出前询问一下，可以参考VCL中的做法，在按钮事件中仍然使用关闭函数，在OnCloseQuery事件中询问是否退出，在OnClose事件中实现程序的关闭，如下： uses FMX.Platform.Android; procedure

var s:string; ps:Pchar; b:pbyte; len:integer; begin s:=edit1.Text; //字符串 ps:=pchar(s); //转成pchar类型, len:=length(s);//取字符串长度,占用多少字节 getmem(b,len);//申请内存,pchar,pbyte在使用前都必须要申请内存,因为他们是指针. move(ps^,b^,len);//这里 ps^意思是pchar指向内存数据的第一个字节地址,B^是表示申请内存的第一个字节地址,这样就可以一个一个字节的移到b里去了. memo1.Text:=pchar(b);//显示. freemem(b); end; 有些人遇到的困惑是为什么 move(s,b,len)不行呢?同样我也遇到这样的困惑. 看了一样move的函数源码才明白. procedure Move( const Source; var Dest; count : Integer ); {$IFDEF PUREPASCAL} var S, D: PChar; I: Integer; begin S := PChar(@Source);//取内存地址 D := PChar(@Dest);//取内存地址 if S = D then Exit; if Cardinal(D) > Cardinal(S) then

文本文件读写 ******(转载自万一的 Delphi 博客)***** 前言: Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关联: AssignFile(VarTxt, FileName); FileName 如果省略路径将默认当前目录。 2.初始化读写有三种方式: (1) Reset: 只读打开, 指针移到文件头; (2) Rewrite: 创建新文件并打开, 只写; (3) Append: 从尾部追加, 指针当然在文件尾。 文件不存在时使用 Reset 或 Append 会引发一个I/O异常。 最后用 CloseFile 关闭文件。 为保持兼容，Delphi 也允许用户用 Assign 建立关联, 用 Close 关闭文件。 -------------------------------------------------------------------------------- //读写示例: unit Unit1; interface uses

procedure TForm1.Button1Click(Sender: TObject); var fi:TextFile; //system单元中有textfile数据类型的定义 a1:string; i:integer; strsql:string; begin i:=1; strsql:=''; AssignFile(fi,'e:\22.txt'); Reset(fi); while not Eof(fi) do begin Readln(fi,a1); strsql:=strsql+a1; if (i mod 2=0) then begin //showmessage(strsql); strsql:=''; end; i:=i+1; end; CloseFile(fi); end; 这里的关键是：while not eof(fi) do ，在这个循环里可以逐条取得数据。 Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关联: AssignFile

var: 　　 传递的是参数的地址 out: 　　 以返回值的形式返回结果，类似函数的效果；可以实现一个函数返回多个值 来源： https://www.cnblogs.com/Coder-MIFir/p/10898121.html