請問各位一個觀念問題 我在 public 建立一個動態陣列 var adata: array of string; 然後在程式中, 因需要會時常做 setlength(adata, length(adata) 1); i:= length(adata); adata[i]:= 'my string'; 也就是不特定時間(當user有執行到某一行為時), 就會重設陣列值, 再把一特定字串給予該adata值, 我的疑問題, 如果程式不斷的做setlength來改變陣列值(一次運作中可能會有數十次的變動), 那對記憶體的配置是否會造成影響, 例如說資源耗竭現象, 但我又不可能先做setlength(adata,0)來釋放, 因為我必須保有先前的值, 但我實測的作業中似乎查覺不出有任何資源的耗損(我曾測試到一次運作1000次的setlength) , 好像是沒有影響, 但不知各位網友對這方面是否有更好的經驗指點! 謝謝! 另外, 如果我設定陣列值為10個, 而我想移除第6個陣列值, 並使其陣列值成為9個, 原來的第7個變為第6個, 有沒有最簡單的方式可以做到, 我現在能想到的是指定一個 b陣列, 將 a陣列一個一個複製到 b, 然後除掉 a[5]的陣列後, 再把 b陣列重新轉入 a陣列 (a:=b) ps:本案一定要使用動態設定陣列, 而且一定要用陣列來做! 發表人 - P.D. 於 2002/10/14 16:52:56

引言: 請問各位一個觀念問題 我在 public 建立一個動態陣列 var adata: array of string; 然後在程式中, 因需要會時常做 setlength(adata, length(adata)+1); i:= length(adata); adata[i]:= 'my string'; 也就是不特定時間(當user有執行到某一行為時), 就會重設陣列值, 再把一特定字串給予該adata值, 我的疑問題, 如果程式不斷的做setlength來改變陣列值(一次運作中可能會有數十次的變動), 那對記憶體的配置是否會造成影響, 例如說資源耗竭現象, 但我又不可能先做setlength(adata,0)來釋放, 因為我必須保有先前的值, 但我實測的作業中似乎查覺不出有任何資源的耗損(我曾測試到一次運作1000次的setlength) , 好像是沒有影響, 但不知各位網友對這方面是否有更好的經驗指點! 謝謝!

這個問題與這個 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21717 有點類似，同樣是不會有資源浪費的問題。

引言: 另外, 如果我設定陣列值為10個, 而我想移除第6個陣列值, 並使其陣列值成為9個, 原來的第7個變為第6個, 有沒有最簡單的方式可以做到, 我現在能想到的是指定一個 b陣列, 將 a陣列一個一個複製到 b, 然後除掉 a[5]的陣列後, 再把 b陣列重新轉入 a陣列 (a:=b) ps:本案一定要使用動態設定陣列, 而且一定要用陣列來做!

如果一定要用陣列來做！那您所說的方法就是唯一的方法。 如果可以不用陣列來作，那方法就很多種，最簡單的是改用 TStringList，用它的 Add/Insert/Delete 就可以動態新增/插入/刪除比陣列要好用得多，而其 Strings[Index] 的屬性用起來也與陣列無異！ 沒空更新的網頁...

C及指標教學,計算機概論,資訊管理導論... http://coolsite.to/dllee

介紹Shells,LiteStep,GeoShell.... http://coolsite.to/ushells

引言: 如果一定要用陣列來做！那您所說的方法就是唯一的方法。 如果可以不用陣列來作，那方法就很多種，最簡單的是改用 TStringList，用它的 Add/Insert/Delete 就可以動態新增/插入/刪除比陣列要好用得多，而其 Strings[Index] 的屬性用起來也與陣列無異！

其實最早我即是以TStringList來做, 但因為我要的型態很多種而很多個欄位要指定, 很麻煩而且記憶體吃得很大, 所以我才會用陣列來做, 該陣列是屬於記錄型態(array of TRecord), 這樣我只要指定一個陣列就包含了我要的所有欄位內容, 在日後的維護及程式的可讀性會具有較可塑性! 謝謝!

 
type dataNode = record
    data : char;
    isDeleted : bool;
end;    type TArrSimLL = class
    private
        dataArray : array of dataNode;
        srcPos : integer;    // reserved for FindNext;
        topNode : integer;
        function srcIndex(indexNumber:integer):integer;// find the real index Postion
        procedure reAllocMemory(arrayNumber:integer);
    public
        constructor Create(arrayNumber:integer);
        destructor Destroy;override;
        procedure Add(index:integer; idata:char);
        procedure Append(idata:char);
        procedure delete(index:integer);
        function find(fData:char):integer;
        function Travel:string;
    end;
//---------------TArrSimLL Class Func-----------------------//
//==========private=========//
function TArrSimLL.srcIndex(indexNumber:integer):integer;
var
    loop : integer;
    jmpNumber : integer;
begin
    jmpNumber:=0;
    for loop:=0 to indexNumber-1 do
    begin
        if dataArray[loop].isDeleted then jmpNumber:=jmpNumber 1;
    end;
    Result:=jmpNumber indexNumber-1;
end;
procedure TArrSimLL.reAllocMemory(arrayNumber:integer);
var
    newDataArray : array of dataNode;
    bkpLoop : integer;
    nIndex : integer;
begin
    setLength(newDataArray,arrayNumber);
    nIndex:=0;
    for bkpLoop:=0 to arrayNumber-1 do
    begin
        with newDataArray[bkpLoop] do
        begin
            isDeleted:=False;
            data:=#0;
        end;
    end;
    for bkpLoop:=0 to Length(dataArray)-1 do
    begin
        if not dataArray[bkpLoop].isDeleted then
        begin
            newDataArray[nIndex].data:=dataArray[bkpLoop].data;
            nIndex:=nIndex 1;
        end;
    end;
    srcPos:=-1;
    topNode:=nIndex-1;
    setLength(dataArray,arrayNumber);
    dataArray:=@newDataArray[0];
    newDataArray:=nil;
end;
//==========private end======//
//==========public===========//
constructor TArrSimLL.Create(arrayNumber:integer);
begin
    srcPos:=-1;
    topNode:=-1;
    setLength(dataArray,arrayNumber);
end;
destructor TArrSimLL.Destroy;
begin
    inherited;
//doing nothing
end;
procedure TArrSimLL.Add(index:integer; idata:char);
var
    bkpLoop : integer;
begin
    if topNode=Length(dataArray)-1 then reAllocMemory(Length(dataArray)*2);
    if( (index>-1) and (index<=topNode 1) ) then
    begin
        if not dataArray[index].isDeleted then
        begin
            for bkpLoop:=topNode downto index do
            begin
                with dataArray[bkpLoop] do
                begin
                    dataArray[bkpLoop 1].data:=data;
                    dataArray[bkpLoop 1].isDeleted:=isDeleted;
                end;
            end;
            dataArray[index].data:=idata;
            dataArray[index].isDeleted:=False;
            topNode:=topNode 1;
        end
        else
        begin
            dataArray[index].data:=idata;
            dataArray[index].isDeleted:=False;
        end;
    end
    else ShowMessage('index is out of bound');
end;
procedure TArrSimLL.Append(idata:char);
begin
    if topNode=Length(dataArray)-1 then reAllocMemory(Length(dataArray)*2);
    topNode:=topNode 1;
    dataArray[topNode].data:=idata;
    dataArray[topNode].isDeleted:=False;
end;
procedure TArrSimLL.delete(index : integer);
var
    dLoop : integer;
    jmp : integer;
begin
    jmp:=0;
    for dLoop:=0 to index do
    begin
        if dataArray[dLoop].isDeleted then jmp:=jmp 1;
    end;
    jmp:=jmp index;
    if jmp    最近的作業..順便貼上來..
在The Tomes of Delphi Algorithms and Data Structures有更好的作法..
只是礙於作業題目限制所以就沒用了..
不過這個方法我覺得稍微改一下，應該可以用在你的需求上..:)    = Delphi - Emulator =
        

------
= Delphi - Emulator =

引言:

引言: 如果一定要用陣列來做！那您所說的方法就是唯一的方法。 如果可以不用陣列來作，那方法就很多種，最簡單的是改用 TStringList，用它的 Add/Insert/Delete 就可以動態新增/插入/刪除比陣列要好用得多，而其 Strings[Index] 的屬性用起來也與陣列無異！

其實最早我即是以TStringList來做, 但因為我要的型態很多種而很多個欄位要指定, 很麻煩而且記憶體吃得很大, 所以我才會用陣列來做, 該陣列是屬於記錄型態(array of TRecord), 這樣我只要指定一個陣列就包含了我要的所有欄位內容, 在日後的維護及程式的可讀性會具有較可塑性! 謝謝!

不知道您有沒有利用過 TStringList 中的 Objects[Index] ？ 我都利用它來存一個 Record ，利用 AddObject(String,Object) 來加入，而 Strings[Index] 就變成它的索引，可以利用 IndexOf(String) 自動去找，不用自己寫程式 很方便說... 發現了 ><>< src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=6939849&CC=155211">