Array verkleinern

[Luckie]

Zitat von Andreas L.:

Wenn ich meinarray[0] was zuweise bekomme ich ne AV.

Dann machst du was falsch:

Delphi-Quellcode:

var
  DynArray: array of Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(DynArray, Length(DynArray) + 1);
  DynArray[High(DynArray)] := round(random * 100);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(IntToStr(DynArray[High(DynArray)]));
end;

Aber eine Klasse zu vewenden wäre bestimmt günstiger: http://www.michael-puff.de/Developer...er_Klassen.php