क्या मैं अपनी पिछली सामग्री खोए बिना डेल्फी सरणी का आकार बदल सकता हूं?

Question

मेरे पास गतिशील सरणी है। लेकिन शुरुआत में मैं सरणी की लंबाई नहीं जान रहा हूं। क्या मैं पहले ऐसा कर सकता हूं कि मैंने इसकी लंबाई 1 के रूप में सेट की है और फिर लंबाई बढ़ाएं क्योंकि मुझे पहले से संग्रहीत डेटा खोए बिना चाहिए?
मुझे पता है कि मैं टीएलिस्ट का उपयोग करके ऐसा कार्य कर सकता हूं। लेकिन मैं जानना चाहता हूं कि मैं इसे सरणी के साथ कर सकता हूं या नहीं?

Answer 1

गतिशील Arrays को निहित डेटा खोए बिना बड़े आकार में आकार में बदला जा सकता है।

निम्नलिखित प्रोग्राम इसे क्रिया में प्रदर्शित करता है।

program Project7; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 
var 
A : Array of Integer; 
I : Integer; 
begin 
    for I := 0 to 19 do 
    begin 
    SetLength(A,I+1); 
    A[I] := I; 
    end; 
    for I := Low(A) to High(A) do 
    begin 
    writeln(A[I]); 
    end; 
    readln; 
end.