Dynamische Arrays ... kleines Problem!

[sonicfire]

Danke, Luke!

Quasi so

Delphi-Quellcode:

Procedure TForm1.LoadTheWave(FileName: String; out Value: TSmallIntArray; Start: Integer = 0);
begin
  with TFilestream.Create(Filename, fmOpenRead) do
    try
      Position := Start;
      setlength(Value, Size-Position);
      ReadBuffer(Value,length(Value));
    finally
      Free;
    end;
end;

Aber das gibt wieder einen Stream- RuntimeError!