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