Frage zu setlength() und Übergabevariablen

[mintpc]

Hallo zusammen,

ich habe 2 Fragen:

1) Gehe ich richtig in der Annahme, dass bei setlength(a,10) der Inhalt des Arrays a gelöscht wird?

2) Warum ist es nicht möglich, eine Objektvariable und eine Übergabevariable wie im Beispiel EINS gleich zu benennen?
Falls es zu einem Namensmissverständnis kommen würde, könnte doch einfach die Übergabevariable zählen, wie in Beispiel ZWEI.


Beispiel : EINS (gibt eine Fehlermeldung wegen Namensgleichheit)

Code: Alles auswählen

TTest = class
    a : integer;
    constructor create (a: integer);
  end;
 
   procedure TTest.create(a: integer);
   begin
     a := a;
   end;

Beispiel ZWEI: (Gibt keine Fehlermeldung)

Code: Alles auswählen

var
  a : integer;
 
   procedure testen (a: integer);
   begin
     a := a;
   end;

Vielen Dank schonmal

mintpc

[theo]

Zu 2: Das hängt vom Modus ab. Mit {$mode delphi} ist es erlaubt. Der Mode objfpc ist strikter gegenüber solchen "Verwirrspielen".

Zu 1: Nicht zwangsläufig, ich würde aber sicherheitshalber davon ausgehen. Da weiss vllt. jemand anderes mehr.

[mschnell]

1) Gehe ich richtig in der Annahme, dass bei setlength(a,10) der Inhalt des Arrays a gelöscht wird?

Das wäre ja blöd. Man möchte ein dynamisches array ja auch vergrößern und verkleinern können. Deshalb vermute ich, dass der die ersten 10 Elemente unverändert bleiben.

-Michael

[mintpc]

Danke für die Antworten.

mintpc

[willi4willi]

Zu 1.

versuche das mal:

Code: Alles auswählen

program TestArray;
 
var a : array of integer;
    i : integer;
 
begin
  for i:=0 to 10 do
  begin
    setlength(a,i+1);  // Vergrößere immer um 1
    a[i]:=i*3;         // fülle Element
  end;
  for i:=0 to 10 do writeln(i,' --> ',a[i]); // alles ist da!
  readln;
  setlength(a,6);                            // verkleinere Array
  for i:=0 to 5 do writeln(i,' --> ',a[i]);  // ersten 6 Werte sind auch noch da
  readln;                                    // aber der restl. Speicher ist frei
  setlength(a,11);                           // vergrößere wieder
  for i:=0 to 10 do writeln(i,' --> ',a[i]); // ersten 6 Werte sind o.k. der Rest undefiniert
  readln;                                    // wenn noch was drin steht, ist das Zufall
 
end.

Viele Grüße
Willi4willi

Edit: Ja, kleiner Fehler. Natürlich sind das im Beispiel 11 bzw 6 Elemente. Danke für den Hinweis!

[Eclipticon]

Da wird's aber Probleme geben, weil du bei jedem Array ein Element zu viel abfragst: ein dynamisches Array der Länge 10 hat die Elemente 0 bis 9. Aus diesem Grund würde ich immer mit low() und high() arbeiten

[Eclipticon]

Da wird's aber Probleme geben, weil du bei jedem Array ein Element zu viel abfragst: ein dynamisches Array der Länge 10 hat die Elemente 0 bis 9. Aus diesem Grund würde ich immer mit low() und high() arbeiten

[Euklid]

mintpc: Beim Befehl setlength bleiben die Array-Inhalte vollständig erhalten, sofern Du das Array nicht kleiner machst.

- Euklid