Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: Array als Referenz einer Methode übergeben
22. Nov 2009, 14:31
Genau. Wenn Du wieder testen kannst, versuch es mal damit (klitzekleine Änderung):
Delphi-Quellcode:
type tNumArray = Array of Byte;
procedure AddNumbers(var a:tNumArray);
begin
SetLength(a,High(a)+3); // add 2 numbers
a[High(a)-1]:=44;
a[high(a) ]:=55;
end;
procedure TfoTest03.FormShow(Sender:TObject);
var i : Integer;
NumArray : tNumArray; //nun als lokale Variable
begin
SetLength(NumArray,Listbox1.Items.Count);
for i:=0 to Listbox1.Items.Count-1 do // array aus listbox1
NumArray[i]:=StrToInt(Listbox1.Items[i]); // füllen
AddNumbers(NumArray); // array erweitern
for i:=0 to high(NumArray) do // array in listbox2
Listbox2.Items.Add(IntToStr(NumArray[i])) // anzeigen
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|