Помогите

[kurmanbek]

Здраствуйте помогите пожалуйста
Я только начал изучать Delphi я долго капался но не могу найти ошибку
на 13том строчке выдает ошибку пожалуйста помогите плииз

1 procedure TForm1.BitBtn1Click(Sender: TObject);
2 begin
3 if  OpenDialog1.Execute=false then exit;
4 if stream<>0 then
5 Bass_StreamFree(stream);

6 stream:=Bass_streamCreateFile(false,PChar(OpenDialog1.FileName),0,0,0);

7 if stream=0 then
8 ShowMessage('Îøèáêà ôàéë íå çàãðóæåí!')
9 else
10 begin
    11 Panel1.Caption:=ExtractFileName(OpenDialog1.FileName);
    12 ScrollBar1.Min:=0;
    13 ScrollBar1.Max:=Bass_ChannelGetlength(stream,0)-1;
    ScrollBar1.Position:=0;
end;

end;

[Nintra GrayWorker]

kurmanbek
Вы фигню написали.
(На делфи редко пишу, но пройти не смог)

Сообщение от kurmanbek

ScrollBar1.Max:=Bass_ChannelGetleng th(stream,0)-1;

Ну чо здесь: пробел? Вся трабла в том, что ты в коде не увидел лишний пробел?

ScrollBar1.Max:=Bass_ChannelGetleng (ЗДЕСЯ)th(stream,0)-1;

[Аватар]

Нормально там с пробелом, то движок форума так рвет длинные строки не взятые в тег code. А вот расчет нуля вторым параметром, там какой тип должен быть? Может попробовать BASS_POS_BYTE

[Nintra GrayWorker]

Аватар,, а что эта функция делает?

Сообщение от kurmanbek

Bass_ChannelGetlength(stream,0)-1;

[Аватар]

http://www.un4seen.com/doc/#bass/BAS...GetLength.html