顯示具有 DELPHI 標籤的文章。顯示所有文章

Delphi 程式開發之軟體移植 (Delphi Source code migration)

Delphi 程式開發之軟體移植

協助遷移使用任何版本的 Delphi構建的任何類型的軟體程式

在 Windows 95 上運行的 Delphi 1.0

DELPHI軟體程式遷移服務

Delphi Software migration services

我們協助執行所有類型的軟體遷移

您的軟體可能是使用 Delphi 5 或 Delphi 7 編寫的，並且可能仍能正常工作。

但是我們必須考慮作業系統升級所帶來的風險，特別是如果您將軟體提供給客戶。

如同以下案例的風險：

每個新的 Windows 版本都會破壞一些現有的功能，尤其是在 UI 部分；
某些介面或 API 可能已過時；
無法存取最新的操作系統功能或是實現的成本太高；
3rd 方組件供應商停止提供對您的 Delphi 版本的支持；
甚至有些供應商已經不存在了，但您仍然需要對這些組件進行更新。

假定您的軟體從 Delphi 5、7 和其他版本等舊版 Delphi 遷移到最新版本。

如果想遷移軟體程式，我們可以以最可行的方式遷移您的軟體程式碼。

並非在所有情況下都能順利遷移。

在初步分析之後，我們可以選擇重新轉寫或將舊程式遷移到新版本。

如果你的機台或軟體是用舊版DELPHI版本所撰寫，若想要遷移程式碼到新的作業系統上執行

歡迎與我聯絡: cmf6214@gmail.com

Quick Sort -delphi

 procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi, Mid, T: Integer;
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2];

    repeat

      while   A[Lo] 　＜     Mid    do Inc(Lo);

      while A[Hi]      ＞　  Mid do Dec(Hi);

      if Lo 　＜= 　Hi then
      begin
       
        T := A[Lo];
        A[Lo] := A[Hi];
        A[Hi] := T;
        Inc(Lo);
        Dec(Hi);
      end;
    until　　 Lo ＞ Hi;

    if Hi ＞　　 iLo then QuickSort(A, iLo, Hi);
    if Lo ＜　 iHi then QuickSort(A, Lo, iHi);

 end;

//==============================================
SEE AS:

procedure SelectionSort(var A: array of Integer);
var
I, J, T: Integer;
begin
for I := Low(A) to High(A) - 1 do
    for J := High(A) downto I + 1 do
      if A[I] ＞ A[J] then
      begin

        T := A[I];
        A[I] := A[J];
        A[J] := T;

      end;
end;

//=================================
// see as:

Bubble Sort - delphi

Quick Sort -delphi

Bubble Sort - delphi

procedure BubbleSort(var A: array of Integer);
var
I, J, T: Integer;
begin

for I := High(A) downto Low(A) do
    for J := Low(A) to High(A) - 1 do
      if A[J] > A[J + 1] then
      begin

        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;

      end;
end;

//=================================
// see as:

CMF資源回收場