Fast data transfer to MS Excel

Fast data transfer to MS Excel


var
  xls, wb, Range: OLEVariant;
  arrData: Variant;
begin
  {create variant array where we'll copy our data}
  arrData := VarArrayCreate([1, yourStringGrid.RowCount, 1, yourStringGrid.ColCount], varVariant);

  {fill array}
  for i := 1 to yourStringGrid.RowCount do
    for j := 1 to yourStringGrid.ColCount do
      arrData[i, j] := yourStringGrid.Cells[j-1, i-1];

  {initialize an instance of Excel}
  xls := CreateOLEObject('Excel.Application');

  {create workbook}
  wb := xls.Workbooks.Add;

  {retrieve a range where data must be placed}
  Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1, 1],
                                  wb.WorkSheets[1].Cells[yourStringGrid.RowCount, yourStringGrid.ColCount]];

  {copy data from allocated variant array}
  Range.Value := arrData;

  {show Excel with our data}
  xls.Visible := True;
end;

轉貼至:http://www.scalabium.com/faq/dct0144.htm

GetEnvironmentVariable 取系統環境變數

GetEnvironmentVariable

%ALLUSERSPROFILE%：All Users設定檔的資料夾位置。

%APPDATA%：目前使用者的Application Data資料夾位置。

%CD%：目前的工作資料夾。

%CLIENTNAME%：目前使用者的NETBIOS電腦名稱。(連線到Terminal的電腦名稱)

%CMDCMDLINE%：處理目前命令提示字元視窗命令的cmd.exe的完整路徑。

%CMDEXTVERSION%：目前Command Processor Extensions的版本。

%COMPUTERNAME%：電腦名稱。

%COMSPEC%:：命令提示字元視窗的解譯程式路徑，通常與%CMDCMDLINE%相同。

%CommonProgramFiles%：Common Files資料夾的路徑。

%DATE%：目前的系統日期。

%ERRORLEVEL%：最近執行過的命令的錯誤碼；非零的值表示發生過的錯誤碼。

%HOMESHARE%：目前使用者共用資料夾的網路路徑。

%HomeDrive%：使用者目錄的磁碟機。

%HomePath%：使用者家目錄。

%LOGONSEVER%：目前使用者所登入的網路控制器名稱。

%NUMBER_OF_PROCESSORS%：電腦的處理器數量。

%OS%：作業系統名稱，其值固定為Windows_NT

%PATHEXT%：作業系統是為執行檔的副檔名。

%PROCESSOR_ARCHITECTURE%：處理器的架構名稱，例如x86。

%PROCESSOR_IDENTFIER%：說明處理器的文字（不一定會有此環境變數）。

%PROCESSOR_LEVEL%：處理器的model number。

%PROCESSOR_REVISION%：處理器的revision number。

%PROMPT%：目前解譯程式的命令提示字串。

%Path%：執行檔的搜尋路徑。

%ProgramFiles%：應用程式目錄，預設是C:\Program Files。

%RANDOM%：顯示0到32767之間的十進位整數亂數。

%SESSIONNAME%：連上終端伺服器的session names。

%SystemDirectory%：系統目錄，預設是C:\WINNT\System32或C:\WINDOWS\System32。

%SystemDrive%：系統磁碟機，預設是C:。

%SystemRoot%：系統根目錄，預設是C:\WINNT或C:\WINDOWS。

%TIME%：目前的系統時間。

%Temp%、%Tmp%：暫存檔目錄。

%USERPROFILE%：目前使用者的設定檔路徑。Ex: C:\Users\Administrator

%UserDomain%：包含使用者帳號的網域名稱，或者電腦名稱。

%UserName%：使用者帳號名稱。

%WinDir%：Windows目錄，預設是C:\WINNT或C:\WINDOWS。

轉貼至: https://jck11.pixnet.net/blog/post/13459124-windows%E7%B3%BB%E7%B5%B1%E5%85%A7%E5%BB%BA%E7%9A%84%E5%B8%B8%E8%A6%8B%E7%92%B0%E5%A2%83%E8%AE%8A%E6%95%B8

Ex:

  GetEnvironmentVariable('USERPROFILE'); //Ex: c:\users\administrator

填補/移除路徑字串後面的路徑符號(Slash)

IncludeTrailingPathDelimiter('C:\Windows\Temp');  //Ex: C:\Windows\Temp  -> C:\Windows\Temp\

ExcludeTrailingPathDelimiter('C:\Windows\Temp');  //Ex: C:\Windows\Temp\  -> C:\Windows\Temp