War doch schon fast richtig. Nur irgendwie lernst du nicht dazu? Eben hatten wir doch SetLength und rate mal was jetzt fehlt?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a: array of real;
i: integer;
begin
SetLength(a,ListBox1.Count);
for i:=0 to ListBox1.Count-1 do
a[i]:=StrToFloat(ListBox1.Items[i]);
end;