2013/12/26

Convert Excel column to integer funtion with Delphi

See also: How to convert a column number (eg. 127) into an excel column (eg. AA)


Delphi code below:
function ColumnNumber(A_ColAddress: string): Integer;
var
  _Digits: array of Integer;
  _Pos: Integer;
  _Mul, _Res: Integer;
begin
  SetLength(_Digits, Length(A_ColAddress));
  for _Pos := 0 to Length(A_ColAddress)-1 do
  begin
    _Digits[_Pos] := Ord(A_ColAddress[_Pos+1]) - 64;
  end;

  _Mul := 1;
  _Res := 0;
  for _Pos := Length(A_ColAddress)-1 downto 0 do
  begin
    _Res := _Res + (_Digits[_Pos] * _Mul);
    _Mul := _Mul * 26;
  end;

  Result := _Res;
end;

2013/12/01

使用 DataSnap 開發,是否要選擇 HTTPS?

最近和我們家的網管討論 WebService 應該用 TCP/IP 還是 HTTP。

但意外的是,我們家網管推薦使用 HTTPS 開發

但我想他應該沒想到後續的域名、金鑰賞味期限製作有多麻煩

不過更重要的是數位簽章的費用啊啊啊 >"< |||

Web page design tool in Delphi

Delphi 在2009 版開始把 WebSnap 廢棄後,自此就再也沒有自帶「網頁設計工具」。 有的話也只剩下自帶的 IntraWeb Evolution 版本。 以及 3rd party 的 UniGui 等類似 IntraWeb 的 Web Application ...