Delphi7 動態陣列

初學delphi，感覺.......這感覺就是寫**太費勁了，已經習慣了c#那種信手拈來，不能說pascal不適應只能說還是費勁，可能是d7太老了，也可能是我還沒有上道兒，就這麼著吧，下面簡單的寫倆函式作為參考，修改修改可以當c#中的list 用

arr: array of string;

procedure add(s: string);
begin
setlength(arr, length(arr) + 1);
arr[length(arr) - 1] := s;
end;
procedure remove(s: string); //只能刪除第乙個符合的
var i, j: integer;
begin
for i := 0 to length(arr) - 1 do begin
if arr[i] = s then begin
for j := i to length(arr) - 2 do arr[j] := arr[j + 1];
setlength(arr, length(arr) - 1);
break;
end;
end;
end;
procedure removeat(index: integer);
var i: integer;
begin
if length(arr) > index then begin
for i := index to length(arr) - 2 do arr[i] := arr[i + 1];
setlength(arr, length(arr) - 1);
end;
end;

Delphi7遠端除錯

自己的開發機器稱為主機，執行程式的機器稱為目標機 一 在主機編譯執行程式 1 project options linker中的exe and dll options選項組中的include remote debug symbols打上勾，這樣就可以生成rsm為副檔名的檔案，該檔名稱於你的專案同名。2...

Delphi7 視窗停靠效果

實現目的 實現 ainform 中對dockform 的停靠，相當於 中的工具欄停靠。結果先讓大家看看 靠！看不到！說明 在開始停靠的時候我們先了解一下下停靠在 delphi 在delphi7 中原來就有對 form 等有依靠功能，分別是以下屬性 屬性值 說明drawmode dmautomatic...

Delphi7的IDE概述 一

ideograph margin 0cm 10.8pt 0pt 13.2pt text align justify mso para margin top 0cm mso para margin right 9gd mso para margin bottom 0001pt mso para mar...