Fmod - Array Fehler

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,
habe einen seltsammen fehler entdeckt:
ich wollte die Music Länger herrauslesen mit folgender funktion:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TFmodAudio.GetMusicLenght(index:Integer):Integer;
var
  Module: PFMusicModule;
  Stream: PFSoundStream;
begin
  Module:=MusicList[index].Module;
  Stream:=MusicList[index].Stream;
          
  if Stream <> NIL then
    result:=FSOUND_Sample_GetLength( Stream)
  else begin
    if Module <> NIL then
/H      result:=FMUSIC_GetNumOrders(Module)
  end;

problem ist nur das er immer 0 raushat also habe ich das halte punkte gesetzt und zwar da wo jetzt das /H steht anschließend habe ich Strg + F7 gedrückt un etwas rumgespielt zwar: MusicList[0] // OK die liste in diesem fall hatte sie nur einen eintrag

dann müsste das ja jetzt mit einer fehlermeldung abbrechen:
MusicList[1] tutst aber nicht da steht was drin und wenn ich 2 habe steht da irgenein datensalat drin:

markieren

Quelltext

1:
2:
3:

0 = ($596C58, nil, 0, True, 'D:\Daten\music\MIDI\1CLASSIC.MID', '', '', False)
1 = ($23E, $432064, 14229272, True, '', '', '', False)
2 = (nil, nil, 1, True, 'Ÿ#A'#0'#A'#0'·#A'#0#2#0#0#0'X'#$18'‹â†ìYEÍkO‚AQíÂ#A'#0'('#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'À'#0#0#0#0#0#0'FÒ#A'#0','#0#0#0#0#0#0#0'‹Àh$A'#0'Þ#A'#0#0#0#0#0'˜$A'#0#$1C'%A'#0#0#0#0#0#0#0#0#0'ª$A'#0#$C'%A'#0'0'#0#0#0'ø'#$18'A'#0'xœA'#0'p3@'#0'Ì•A'#0'x3@'#0'l3@'#0'´0@'#0'Ð0@'#0'T•A'#0'ðAA'#0'€˜A'#0#$C'AA'#0'X™A'#0'$˜A'#0'h™A'#0'`šA'#0'œA'#0'x™A'#0'p™A'#0'˜œA'#0#8'•A'#0#$E#0#0#0#0#0#1#0#0#0'(#A'#0#8#0#0#0#$10#0'ýÿüÿûÿÿÿúÿùÿøÿ÷ÿöÿõÿôÿóÿòÿþÿñÿðÿ'#$C'™A'#0#$14'™A'#0#$18'™A'#0'0™A'#0'd™A'#0'4™A'#0'<™A'#0'@™A'#0'L™A'#0'ø™A'#0#$C'šA'#0'(œA'#0'8™A'#0#$1C'™A'#0#8'™A'#0'PœA'#0#$A'TComponent'#$1C'%A'#0#7#$A'TComponenth$A'#0'l'#$19'A'#0#2#0#7'Classes'#2#0'(#A'#0#8#0#0'ÿ'#$18#0#0'þ'#0#0#0#0#0#0#0'€'#0#0#0'€'#0#0#4'Name<'#$10'@'#0#$C#0#0'ÿ'#$C#0#0'ÿ'#1#0#0#0#0#0#0'€'#0#0#0#0#1#0#3'Tag@'#0'È%A'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'è%A'#0#$14#0#0#0' '#$10'@'#0'd3@'#0'p3@'#0't3@'#0'x3@'#0'l3@'#0'´0@'#0'Ð0@'#0'dA'#0'`A'#0'˜A'#0'øA'#0'ÌA'#0'üA'#0#$1C'A'#0'°A'#0#4'žA'#0#$10'TBasicActionLink@'#0'H&A'#0#0#0#0#0#0#0#0#0#0#0#0#0'¬&A'#0#0#0#0#0#0#0#0#0'&A'#0'˜&A'#0'T'#0#0#0#$1C'$A'#0'xœA'#0'p3@'#0'Ì•A'#0'x3@'#0'l3@'#0'´0@'#0'Ð0@'#0'TžA'#0'ðAA'#0'€˜A'#0#$C'AA'#0'X™A'#0'´žA'#0'h™A'#0'`šA'#0'œA'#0'x™A'#0'p™A'#0'˜œA'#0#$10'žA'#0'tŸA'#0#$18'ŸA'#0'¬žA'#0'ÜžA'#0'°žA'#0'üžA'#0#1#0'ïÿàžA'#0#$C'TBasicAction@'#0'¬&A'#0#7#$C'TBasicActionH&A'#0#$18'%A'#0#2#0#7'Classes'#0#0'‹ÀÔ&A'#0#$E#$E'TIdentMapEntry'#8#0#0#0#1#0#0#0'”'#$10'@'#0#4#0#0#0'SVW‹ù‹ò‹Ø‹Ï‹Ö‹ÃèD7ÿÿ_^[ÃQf‰'#4'$f‰T$'#2'‹'#4'$ZÃU‹ìSVW‹ù‹ò‹Ø‹E'#$C'P‹E'#8'P‹Ï‹Ö‹Ãèõ6ÿÿ_^[]Â'#8#0'‹ÀU‹ìSVW‹ù‹ò‹Ø‹E'#$C'P‹E'#8'P‹Ï‹Ö‹Ãèñ6ÿÿ_^[]Â'#8#0'‹Àƒ8ÿu'#6'ƒx'#4'ÿt'#3'3ÀÃ°'#1'Ã@'#0'Ì'A'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Ì'A'#0#$14#0#0#0' '#$10'@'#0'd3@'#0'p3@'#0't3@'#0'x3@'#0'l3@'#0'´0@'#0'Ð0@'#0'ˆ)A'#0#9'TRegGroup‹À$(A'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'$(A'#0'$'#0#0#0' '#$10'@'#0'd3@'#0'p3@'#0't3@'#0'x3@'#0'l3@'#0'´0@'#0'Ð0@'#0'°,A'#0#$A'TRegGroups‹@'#$C'è¼'#$11#0#0'Ã@'#0'SVWUƒÄø‰T$'#4'‰'#4'$3í‹'#4'$‹@'#$C'‹p'#8'N…ö|8F3ÿ‹'#4'$‹@'#$C'‹×èæ'#$12#0#0'‹Ø‹Ó‹D$'#4'èÑ'#$A'ÿÿ„Àt'#$13'…ít'#$D'‹Õ‹ÃèÀ'#$A'ÿÿ„Àt'#2'‹ëGNuË‹ÅYZ]_^[ÃU‹ìQSVW‰Mü‹ú‹]'#8'…ÿt'#$D'‹Ó‹Çè„ÿÿÿ‹ðë'#2'3öƒ}ü'#0't'#$E'‹Ó‹Eüènÿÿÿ‹Øë'#2'3Û…öu'#$D'…Ûu'#4'3Àë!‹Eüë'#$1C'…Ûu'#4'‹Çë'#$14'‹Ó‹ÆèR'#$A'ÿÿ„Àt'#4'‹Çë'#3'‹Eü_^[Y]Â'#4#0'@'#0'U‹ìQSVW„Òt'#8'ƒÄðè!'#$B'ÿÿ‹ùˆUÿ‹Ø3Ò‹Ãè½'#7'ÿÿ²'#1'¡è'#$17'A'#0'è±'#7'ÿÿ‰C'#4'²'#1'¡'#4#$1C'A'#0'è¢'#7'ÿÿ‰C'#8'²'#1'¡è'#$17'A'#0'è“'#7'ÿÿ‹ð‰s'#$C'‹Æ‹×è'#$10#0#0'‹Ã€}ÿ'#0't'#$F'è$'#$B'ÿÿd'#5#0#0#0#0'ƒÄ'#$C'‹Ã_^[Y]Ã‹ÀSVè'#$19#$B'ÿÿ‹Ú‹ð‹Ó€âü‹Æèm'#7'ÿÿ‹F'#4'èu'#7'ÿÿ‹F'#8'èm'#7'ÿÿ‹F'#$C'èe'#7'ÿÿ„Û~'#7'‹ÆèÎ'#$A'ÿÿ^[Ã@'#0'SVWUQ‰'#$14'$‹è‹E'#4'‹p'#8'N…ö|!F3Û‹E'#4'‹Óèf'#$11#0#0'‹ø‹'#$14'$‹ÇèŠ'#6'ÿÿ„Àu%CNuâ‹E'#8'‹'#$14'$‹'#8'ÿQT‹Ø…Û|'#$E'‹E'#8'‹Ó‹'#8'ÿQ'#$18'‹øë'#2'3ÿ‹ÇZ]_^[ÃSVWUQ‹ê‹øÆ'#4'$'#1'‹G'#$C'‹X'#8'K…Û|'#$1E'C3ö‹G'#$C'‹Öè'#3#$11#0#0'‹Ð‹Åèò'#8'ÿÿ„Àu'#8'FKuåÆ'#4'$'#0'Š'#4'$Z]_^[ÃU‹ìÄôþÿÿSV3É‰Mü‹ò‹Ø3ÀUh'#7'+A'#0'dÿ0d‰ •üþÿÿ‹ÆèÑ'#5'ÿÿ•üþÿÿEüè''#$16'ÿÿ‹Uü‹Ãè'#$15'ÿÿÿ…Àt0‹Eü‰…ôþÿÿÆ…øþÿÿ'#$B'…ôþÿÿPj'#0'‹'#$D'¼1F'#0'²'#1'¡'#0#$14'A'#0'è&ŠÿÿèÁ'#$D'ÿÿ‹Ö‹C'#4'è'#3#$F#0#0'3ÀZYYd‰'#$10'h'#$E'+A'#0'Eüèf'#$13'ÿÿÃéd'#$D'ÿÿëð^[‹å]ÃSV‹ò‹Ø‹Ö‹C'#4'èˆ'#$10#0#0'…À'#$F'À^[ÃSV‹Ú‹ð…Ût'#$10'‹Æè³$ÿÿ;Øt'#5'3À^[Ã°'#1'^[ÃSVW‹ú‹ð‹F'#$C'‹X'#8'Kƒû'#0'|%‹Ó‹F'#$C'èç'#$F#0#0'‹×è¼ÿÿÿ„Àt'#$A'‹Ó‹F'#$C'èÂ'#$E#0#0'KƒûÿuÛ‹F'#4'‹X'#8'Kƒû'#0'|%‹Ó‹F'#4'è¶'#$F#0#0'‹×è‹ÿÿÿ„Àt'#$A'‹Ó‹F'#4'è‘'#$E#0#0'KƒûÿuÛ‹F'#8'‹'#$10'ÿR'#$14'‹ØKƒû'#0'|%‹Ó‹F'#8'‹'#8'ÿQ'#$18'‹×èVÿÿÿ„Àt'#$A'‹Ó‹F'#8'‹'#8'ÿQHKƒûÿuÛ_^[Ã‹ÀSVWUQ‰'#$14'$‹ø‹G ;'#4'$t1‹'#4'$‰G ‹G'#4'‹p'#8'N…ö| F3í‹G'#4'‹Õè0'#$F#0#0'‹Ø‹'#$14'$‹ÃèüýÿÿˆC'#$10'ENuãZ]_^[Ã@'#0'SVW„Òt'#8'ƒÄðèõ'#7'ÿÿ‹Ú‹ø3Ò‹Çè”'#4'ÿÿ²'#1'¡è'#$17'A'#0'èˆ'#4'ÿÿ‰G'#4'G'#8'Pèl4ÿÿ‹'#$D'ø'#$18'A'#0'²'#1'¡€'A'#0'èŠüÿÿ‹ð‹G'#4'‹Öèf'#$D#0#0'ÆF'#$10#1'‹Ç„Ût'#$F'èû'#7'ÿÿd'#5#0#0#0#0'ƒÄ'#$C'‹Ç_^[Ã@'#0'SVWUèï'#7'ÿÿ‹Ú‹ðF'#8'Pèî2ÿÿ‹F'#4'‹h'#8'M…í|'#$16'E3ÿ‹F'#4'‹×èr'#$E#0#0'è9'#4'ÿÿGMuí‹F'#4'è-'#4'ÿÿ‹Ó€âü‹Æè'#$11#4'ÿÿ„Û~'#7'‹ÆèŠ'#7'ÿÿ]_^[ÃSVWUQ‰'#$14'$‹è3ö‹E'#4'‹X'#8'K…Û|%C3ÿ‹E'#4'‹×è '#$E#0#0'‹'#$14'$R‹Î‹Ð¡€'A'#0'èZûÿÿ‹ðGKuÞ‹ÆZ]_^[ÃSVWUQ‰'#$14'$‹è3ÿ‹E'#4'‹X'#8'K…Û|%C3ö‹E'#4'‹ÖèÜ'#$D#0#0'€x'#$10#0't'#$A'‹'#$14'$èFüÿÿ‹ø…ÿu'#4'FKuÞ‹ÇZ]_^[ÃU‹ìÄôþÿÿ3À‰…ôþÿÿ3ÀUh'#$17'.A'#0'dÿ0d‰ •øþÿÿ‹E'#8'‹@üè¨'#2'ÿÿ…øþÿÿ‰EøÆEü'#4'EøPj'#0'•ôþÿÿ¡ 2F'#0'è'#$15'-ÿÿ‹ôþÿÿ²'#1'¡'#0#$14'A'#0'èS†ÿÿèª'#$A'ÿÿ3ÀZYYd‰'#$10'h'#$1E'.A'#0'…ôþÿÿèV'#$10'ÿÿÃéT'#$A'ÿÿëí‹å]Ã‹ÀU‹ìƒÄèSVW‰Mü‰Uô‰Eø‹Uü‹EøèËþÿÿ‰Eðƒ}ð'#0'u'#7'UèDÿÿÿY‹Uô‹EðèÔùÿÿ‹Eø‹@'#4'‹@'#8'H…À|z@‰EèÇEì'#0#0#0#0'‹Eø‹@'#4'‹UìèÍ'#$C#0#0'‹ø;}ðtR‹G'#4'‹X'#8'Kƒû'#0'|F‹G'#4'‹Óè°'#$C#0#0'‹ð‹Uô‹Æèœ'#4'ÿÿ„Àt&‹Ö‹EøèRþÿÿ;Eðu'#$17'‹G'#4'‹Óèw'#$B#0#0'‹Eð‹@'#4'‹Öè'#$1E#$B#0#0'KƒûÿuºÿEìÿMèu‘_^[‹å]ÃƒÀ'#8'PèÇ0ÿÿÃ‹ÀS‹Ú‹Óè'#$A'þÿÿ…Àt'#7'‹Óè_ûÿÿ[ÃSVWUQ‹ê‹øÆ'#4'$'#1'‹G'#4'‹X'#8'K…Û|'#$1C'C3ö‹G'#4'‹Öè'#$1B#$C#0#0'‹ÕèØûÿÿ„Àu'#8'FKuçÆ'#4'$'#0'Š'#4'$Z]_^[Ã@'#0'SVWU‹ê‹ø‹G'#4'‹X'#8'K…Û|'#$1F'C3ö‹G'#4'‹ÖèÜ'#$B#0#0'‹@'#$C'‹Õè.'#$C#0#0'…À}'#$1C'FKuä‹Í²'#1'¡€'A'#0'èxùÿÿ‹Ð‹G'#4'èV'#$A#0#0']_^[ÃƒÀ'#8'Pè71ÿÿÃ‹ÀSVWU‹ê‹ø‹G'#4'‹X'#8'Kƒû'#0'|5‹G'#4'‹Óè‚'#$B#0#0'‹ð‹Õ‹Æèsûÿÿ‹F'#$C'ƒx'#8#0'u'#$11'‹Æè3'#1'ÿÿ‹G'#4'‹ÓèM'#$A#0#0'KƒûÿuË]_^[Ã‹ÀU‹ìƒÄôSVW„Òt'#8'ƒÄðè+'#4'ÿÿ‰MôˆUû‰Eü3Ò‹EüèÄ'#0'ÿÿ²'#1'¡è'#$17'A'#0'è¸'#0'ÿÿ‹Uü‰B'#4'¡\HF'#0'è¨þÿÿ3ÀUhÿ0A'#0'dÿ0d‰ ƒ}ô'#0'u'#$B'¡\HF'#0'‹@ ‰Eô¡\HF'#0'‹@'#4'‹p'#8'N…ö|3F3ÿ¡\HF'#0'‹@'#4'‹×èË'#$A#0#0'‹Ø‹Uô‹Ãè—ùÿÿ„Àt'#$D'‹Eü‹@'#4'‹ÓèR'#9#0#0'GNuÐ€}'#8#0't;¡\HF'#0'‹@'#4'‹p'#8'N…ö|+F3ÿ¡\HF'#0'‹@'#4'‹×è‚'#$A#0#0'‹Ø€{'#$10#0't'#$D'‹Eü‹@'#4'‹Óè'#$11#9#0#0'GNuØ3ÀZYYd‰'#$10'h'#6'1A'#0'¡\HF'#0'è¦þÿÿÃél'#7'ÿÿëî‹Eü€}û'#0't'#$F'è„'#3'ÿÿd'#5#0#0#0#0'ƒÄ'#$C'‹Eü_^[‹å]Â'#4#0'‹ÀSVèu'#3'ÿÿ‹Ú‹ð‹F'#4'èÝÿþÿ‹Ó€âü‹ÆèÁÿþÿ„Û~'#7'‹Æè:'#3'ÿÿ^[Ã@'#0'U‹ìƒÄøSVW‰Uü‹ø3À‰Eø¡\HF'#0'èsýÿÿ3ÒUhÓ1A'#0'dÿ2d‰"‹G'#4'‹X'#8'K…Û|)C3ö‹G'#4'‹Öè±'#9#0#0'‹Uüè!øÿÿ‰Eøƒ}ø'#0't'#7'èŸ'#7'ÿÿë#FKuÚ3ÀZYYd‰'#$10'hÚ1A'#0'¡\HF'#0'èÒýÿÿÃé˜'#6'ÿÿëî‹Eø_^[YY]Ã‹@È'#9'Àt'#3'‹@'#2'ÃU‹ìƒÄôS3Ò‰Uô‹Ø3ÀUhP2A'#0'dÿ0d‰ ‰]øÆEü'#$B'EøPj'#0'Uô¡d2F'#0'èÖ(ÿÿ‹Mô²'#1'¡'#8#$15'A'#0'è'#$17'‚ÿÿèn'#6'ÿÿ3ÀZYYd‰'#$10'hW2A'#0'Eôè'#$1D#$C'ÿÿÃé'#$1B#6'ÿÿëð[‹å]ÃU‹ìQS‹Ø¡\HF'#0'èüÿÿ3ÀUh¢2A'#0'dÿ0d‰ ‹Ó¡\HF'#0'èÉúÿÿ‰Eü3ÀZYYd‰'#$10'h©2A'#0'¡\HF'#0'è'#3'ýÿÿÃéÉ'#5'ÿÿëî‹Eü[Y]ÃSV‹ð‹Æè¡ÿÿÿ‹Ø…Ûu'#7'‹Æè(ÿÿÿ‹Ã^[Ã@'#0'U‹ìS‹Ø¡\HF'#0'è'#$C'üÿÿ3ÀUh53A'#0'dÿ0d‰ ë'#$1D'‹Ó¡\HF'#0'èüûÿÿ;'#$1D'ø'#$18'A'#0't'#$19'‹Ãèýþÿ‹Ø‹Ó¡\HF'#0'è÷ûÿÿ„ÀtÓ3ÀZYYd‰'#$10'h<3A'#0'¡\HF'#0'èpüÿÿÃé6'#5'ÿÿëî[]ÃU‹ìS‹Ø¡\HF'#0'èœûÿÿ3ÀUh‚3A'#0'dÿ0d‰ ‹Ó¡\HF'#0'èFüÿÿ3ÀZYYd‰'#$10'h‰3A'#0'¡\HF'#0'è#üÿÿÃéé'#4'ÿÿëî[]ÃU‹ìS‹Ø¡\HF'#0'èPûÿÿ3ÀUhÎ3A'#0'dÿ0d‰ ‹Ó¡\HF'#0'èžûÿÿ3ÀZYYd‰'#$10'hÕ3A'#0'¡\HF'#0'è×ûÿÿÃé'#4'ÿøkR'#$B#0#0#0#0'RequestLicKey'#0#4#0#$E#0#4#0#3#0#3#0#0#0#0#0'÷ÿ'#$19#0'´„Ö'#$A'p„Ö'#$A',lR'#$B#0#0#0#0'CreateInstanceLic'#0#3#0#$F'l'#2#0#$15#0'ÿÿ'#0#0#0#0'÷ÿ'#$1A#0#$1C'tÖ'#$A'àsÖ'#$A'TlR'#$B#0#0#0#0'Create'#0#$B#$10#0'b'#0#7#0'R'#$B#0#0#0#0'ÿÿ'#$1B#0'8vÖ'#$A'üuÖ'#$A'|lR'#$B'|lR'#$B'Destroy'#0#$E'kB'#0#7#0'R'#$B#0#0#0#0#4#0#$1C#0'øvÖ'#$A'´vÖ'#$A'¬lR'#$B#0#0#0#0'CreateComObject'#0#$E'k'#2#0#$E#0'R'#$B#0#0#0#0'÷ÿ'#$1D#0#4'yÖ'#$A'¼xÖ'#$A'àlR'#$B#0#0#0#0'RegisterClassObject'#0#$E#$15'B'#0#5#0'R'#$B#0#0#0#0#5#0#$1E#0'$zÖ'#$A'àyÖ'#$A#$10'mR'#$B#0#0#0#0'UpdateRegistry'#0#$B#$11'm'#2#0#$E#0#0#0#0#0#0#0'ÿÿ'#$1F#0#4'h×'#$A'8mR'#$B'PmR'#$B'ˆjR'#$B'ClassID'#0#0#0#0'€„fR'#$B',hR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#$17#2#0#9#0#0#0#0#0#0#0'ÿÿ '#0#4'e×'#$A'|mR'#$B'”mR'#$B' jR'#$B'ClassName'#0'R'#$B#0#0#0'€„fR'#$B'XhR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#0#2#0#2#0'R'#$B#0#0#0#0'ÿÿ!'#0'g×'#$A'ÀmR'#$B'ØmR'#$B'diR'#$B'ComClass'#0'mR'#$B#0#0#0'€„fR'#$B#0'hR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#0#2#0#$11#0#1#0#0#0#0#0'ÿÿ"'#0'˜ÐÖ'#$A#4'nR'#$B#$1C'nR'#$B#0#0#0#0'ComServer'#0'R'#$B#0#0#0'€„fR'#$B'ÔgR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#4#2#0#8#0#0#0#0#0#0#0'ÿÿ#'#0#4'e×'#$A'HnR'#$B'`nR'#$B'´hR'#$B'Description'#0#0#0#0'€„fR'#$B'„hR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#$1A#2#0#$1A#0'Í'#2#0#0#0#0'ÿÿ$'#0#4'h×'#$A'ŒnR'#$B'¤nR'#$B#0#0#0#0'ErrorIID'#0#0#0#0#0#0#0'€„fR'#$B'´hR'#$B'´hR'#$B#0#0#0#0#0#0#0'€'#$11'('#2#0#$1C#0'R'#$B#0#0#0#0'ÿÿ%'#0'ôh×'#$A'ÐnR'#$B'ènR'#$B',hR'#$B'LicString'#0#0#0#0#0#0'€„fR'#$B#$C'iR'#$B#$C'iR'#$B#0#0#0#0#0#0#0'€'#$11#0#2#0#$15#0'R'#$B#0#0#0#0'ÿÿ&'#0#4'e×'#$A#$10'oR'#$B'(oR'#$B',lR'#$B'ProgID'#0#0#0#0#0'€„fR'#$B'ôiR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11'o'#2#0#$15#0#1#0#0#0#0#0'ÿÿ''#0#$C'fR'#$B'ToR'#$B'loR'#$B'ènR'#$B'Instancing'#0#$B#0#0#0'€„fR'#$B'àhR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#0#2#0#$14#0'R'#$B#0#0#0#0'ÿÿ('#0'¤c×'#$A'˜oR'#$B'°oR'#$B#0#0#0#0'ShowErrors'#0#$B#0#0#0'€„fR'#$B'diR'#$B'diR'#$B#0#0#0#0#0#0#0'€'#$11'%'#2#0#$B#0#0#0#0#0#0#0'ÿÿ)'#0'¤c×'#$A'äoR'#$B'üoR'#$B#0#0#0#0'SupportsLicensing'#0#0#0#0#0#0'€„fR'#$B'iR'#$B'iR'#$B#0#0#0#0#0#0#0'€'#$11#0#2#0#$A#0#3#0#0#0#0#0'ÿÿ*'#0'<fR'#$B',pR'#$B#0#0#0#0#$C'iR'#$B'ThreadingModel'#0#0#0#0#0'€„fR'#$B'ÄiR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#8#3#0#0#0#0#0#0#4#0#0#0#0#0#0#0'\pR'#$B'l'#0#0#0#7#3'('#0#0#0#0#0#4#0#0#0'¬OÖ'#$A'DqR'#$B'ÄpR'#$B'X6×'#$A'P`R'#$B#0#0#0#0#0#0#0#0'$'#0#0#0'xOÖ'#$A#4#0'ÿÿ'#0#0#$12#0#0#0#0#0'¤pR'#$B#0#0#0#0#0#0#0#0#0#0#0#0'àD×'#$A' '#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'ŒpR'#$B#0#0#0#0#0#0#0#0#0#0#0#0'DqR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#$E#0#4#0#3#0#3#0#0#0#0#0'÷ÿ'#1#0'†Ö'#$A'P†Ö'#$A#0#0#0#0#0#0#0#0'GetClassInfo'#0#3#0#0#8#3#0#0#0#0#0#0#4#0#0#0'ÜOÖ'#$A'\pR'#$B#0#0#0#0#8#3#0#0#0#0#0#0#4#0#0#0#0#0#0#0'¤qR'#$B''#0#0#0#7#3'/'#0#0#0#0#0#4#0#0#0'DPÖ'#$A'lrR'#$B'ìqR'#$B'X6×'#$A'„fR'#$B#0#0#0#0#0#0#0#0'P'#0#0#0#$C'PÖ'#$A#6#0'ÿÿ'#0#0#$12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'ÀrR'#$B#0#0#0#0#0#0#0#0'ørR'#$B#0#0#0#0#0#0#0#0'lrR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'˜rR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'(sR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#$D'÷'#0#0#8#0#0#0#0#0#0#0'ø('#1#0'XE×'#$A'L'#0#0#0'˜rR'#$B#0#0#0#0'FClassInfo'#0'o'#$F'g'#2#0#$15#0#0#0#0#0#0#0'÷ÿ'#2#0'|‡Ö'#$A'<‡Ö'#$A'ÀrR'#$B#0#0#0#0'Create'#0'g'#$E'h'#2#0#2#0''#4#0#0#0#0'÷ÿ'#3#0'¬‰Ö'#$A'`‰Ö'#$A'ørR'#$B#0#0#0#0'GetInterfaceTypeInfo'#0#3#0#0#$E#0'b'#0#5#0#0#0#0#0#0#0#5#0#4#0'œ‹Ö'#$A'T‹Ö'#$A'(sR'#$B#0#0#0#0'UpdateRegistry'#0#0#$11#1#2#0#$1A#0#0#0#0#0#0#0'ÿÿ'#5#0'XE×'#$A'TsR'#$B#0#0#0#0#0#0#0#0'ClassInfo'#0#0#0#0#0#0'€¤qR'#$B'lrR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#9#7'C'#0#0#0#0#0#8#0#0#0'|PÖ'#$A'`\R'#$B'œsR'#$B#0#0#0#0'X6×'#$A#0#0#0#0#0#0#0#0#0#0#0#0#$10#0#0#0#1's'#1#0'»'#1#0#0#0#0#0#0#0#0#0#0'|h×'#$A#0#0#0#0'ÄsR'#$B#0#0#0#0'Sink'#0'#R'#$B#1''#3#0'½'#1'R'#$B#0#0#0#0'Self¤c×'#$A#0#0#0#0#0#0#0#0#0#0#0#0'Connecting'#0#0#8#3#0#0#0#0#0#0#4#0#0#0#0#0#0#0#8'tR'#$B'Ž'#0#0#0#7#3'$'#0#0#0#0#0#4#0#0#0#$10'QÖ'#$A'ðtR'#$B'ptR'#$B'X6×'#$A'\pR'#$B#0#0#0#0#0#0#0#0'0'#0#0#0'àPÖ'#$A#9#0'ÿÿ'#0#0#$12#0#0#0#0#0'PtR'#$B#0#0#0#0#0#0#0#0#0#0#0#0'@k×'#$A','#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'|uR'#$B'hvR'#$B#0#0#0#0#0#0#0#0'4vR'#$B'¬vR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'¨uR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#$1C'uR'#$B#0#0#0#0#0#0#0#0#0#0#0#0'ðtR'#$B#0#0#0#0'LuR'#$B#4'vR'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#$D'l'#0#0#$13#0'ÿÿ'#0#0#0#0#0#0#1#0'|h×'#$A'$'#0#0#0#$1C'uR'#$B#0#0#0#0'FEventSink'#0#0#$D't'#0#0#$F#0'R'#$B#0#0#0#0#1#0#2#0'LwR'#$B'('#0#0#0'LuR'#$B#0#0#0#0'FAutoFactory'#0'elf'#$E#0'D'#0#$15#0#3#0#0#0#0#0#4#0#3#0#$18'Ö'#$A'ÜŽÖ'#$A'|uR'#$B#0#0#0#0'GetIDsOfNames'#0#3#0#$E#1'D'#0#0#0#0#0#0#0#0#0#5#0#4#0'œÖ'#$A'dÖ'#$A'¨uR'#$B#0#0#0#0'GetTypeInfo'#0#$E#0'D'#0#$B#0'ÿÿ'#0#0#0#0#6#0#5#0'Ü‘Ö'#$A'œ‘Ö'#$A'ÜuR'#$B#0#0#0#0'GetTypeInfoCount'#0'Ë'#3'Ý'#$E'$D'#0#5#0'Ø'#$A#0#0#0#0#7#0#6#0'¸’Ö'#$A'„’Ö'#$A#4'vR'#$B'ðvR'#$B'Invoke'#0#0#$E#0#4#0#$16#0'Ý'#7#0#0#0#0'÷ÿ'#7#0'ÜŒÖ'#$A' ŒÖ'#$A'4vR'#$B#0#0#0#0'EventConnect'#0#0#5#0#$E'ûD'#0#4#0#0#0#0#0#0#0#8#0#8#0'ÈÖ'#$A'ˆÖ'#$A'hvR'#$B#0#0#0#0'EventSinkChanged'#0'ÿ³'#0#$11#0#4#0#1#0#0#0#0#0#0#0'ÿÿ'#9#0'LwR'#$B'”vR'#$B'¬vR'#$B#0#0#0#0'AutoFactory'#0#0#0#0'€'#8'tR'#$B#$1C'uR'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#0#4#0#5#0#0#0#0#0#0#0'ÿÿ'#$A#0'|h×'#$A'ØvR'#$B'ðvR'#$B'ÜuR'#$B'EventSink'#0#0#0#0#0#0'€'#8'tR'#$B'ðtR'#$B'ðtR'#$B#0#0#0#0#0#0#0'€'#$E'!b'#0#5#0#0#0#0#0#0#0#0#0#$B#0'„ŽÖ'#$A'LŽÖ'#$A#0#0#0#0#0#0#0#0'Initialize'#0#0#8#3#0#0#$19#0#5#0#4#0#0#0'<QÖ'#$A#8'tR'#$B'¸×³'#0#$D#0#0#0#$1B#0#3#0#4#0#0#0#0#0#0#0'LwR'#$B'¬´Ø'#$A' '#1#0#0'\wR'#$B#0#0#0#0#0#0'Ö'#$A#$1B'x'#3#0'”wR'#$B'X6×'#$A'¤qR'#$B'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0'ÿÿh~Ù'#0#$1E#0#0#0'\²A'#0#0#0#0#0#0#0#0#0#0#0#0#0'Ô$Ù'#0#0#0#0#0'6'#0#0#0'P'#$1C'A'#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0#$19#0#5#0'pyR'#$B#0#0#0#0'DxR'#$B'¸×³'#0#$C#0#0#0#$1B#0#3#0' xR'#$B#0#0#0#0#0#0#0#0'¬´Ø'#$A'€'#1#0#0'ðwR'#$B#0#0#0#0#0#0#0#0#$1B'x'#3#0#0#0#0#0#0#0#0#0#0#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0#$19#$14#5#0'XE×'#$A'P'#0#0#0'DxR'#$B'¸×³'#0#$B#0#0#0#$1B'T'#3#0'eInfo'#0#3#0#$D#1#0#0'¬´Ø'#$A'`'#1#0#0'\xR'#$B#0#0#0#0#0#0#0#0#$1B'x'#3#0#0#0#0#0'FDispInt´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0'Eveÿÿÿÿ'#0#0#0#0#0#0#0#0#$19#0#5#0#0#0#0#0'ÈC'#4#0'XE×'#$A'¸×³'#0#$A#0#0#0#$1B#0#3#0'FEventTypeIn¬´Ø'#$A'@'#1#0#0'àxR'#$B#0#0#0#0#0#0#5#0#$1B'”'#3#0'´”Ö'#$A'øxR'#$B#0#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0'–Ö'#$A'ÿÿÿÿ'#0#0#0#0#0'etIÿÿÿÿ'#0#0#0#0#0'y'#5#0#$19'û'#5#0#$1D#0#0#0#0#0#0#0'ÿÿ'#7#0'¸×³'#0#8#0#0#0#$1B#0#3#0#0#0#0#0#0#0#0#0'd1F'#0'¬´Ø'#$A#0#1#0#0'dyR'#$B#0#0#0#0#0#0#0#0#$1B#0#3#0#0#0#0#0'@/F'#0'4`¶'#$C'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#5#$1F#$B'ÿÿÿÿ'#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0#$19'2'#5#0'œ°'#$D#$C#0#0#0#0#8#0#0#0'¸×³'#0#7#0#0#0#$1B#0#3#0#0#0#0#0'X0F'#0'¼«'#$D#$C'¬´Ø'#$A'à'#0#0#0'èyR'#$B#0#0#0#0#0#0#0#0#$1B#0#3#0'°/F'#0' Ñ'#$1E#$B#0#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0'2F'#0#$19':'#5#0' ô`'#$C#8#0#0#0#0#0#0#0'¸×³'#0#6#0#0#0#$1B#0#3#0'ì/F'#0'ø'#7#$1F#$B#0#0#0#0'¬´Ø'#$A'À'#0#0#0'lzR'#$B#0#0#0#0#0#0#0#0#$1B'1'#3#0#$14'§Õ'#$A'XdR'#$B#8#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0'F'#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0#0#0#0'ÿÿÿÿ'#0#0#0#0#0'ì'#$1E#$B#$19'z'#5#0#8#0#0#0#0#0#0#0#0#0#0#0'¸×³'#0#5#0#0#0#$1B'/'#3#0'hì'#$1E#$B#0#0#0#0#8#0#0#0'¬´Ø'#$A' '#0#0#0'ðzR'#$B#0#0#0#0#0#0'F'#0#$1B'ì'#3#0'øeR'#$B#8#0#0#0#0#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#$1E#$B'ÿÿÿÿ'#0#0#0#0#0#0#0#0#$19#0#5#0#0#0#0#0#0#0#0#0'h/F'#0'¸×³'#0#4#0#0#0#$1B#0#3#0#0#0#0#0#0#0#0#0#0#0#0#0'¬´Ø'#$A'€'#0#0#0'\{R'#$B#0#0#0#0#0#0#0#0#$1B#0#3#0#0#0#0#0#0#0#0#0#0#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0#0#0#$19#0#5#0#0#0#0#0#0#0#0#0'”2F'#0'¸×³'#0#3#0#0#0#$1B#0#3#0#0#0#0#0#0#0#0#0#0#0#0#0'¬´Ø'#$A'`'#0#0#0'¼{R'#$B#0#0#0#0#0#0#0#0#$1B#0#3#0#0#0#0#0#0#0#0#0#0#0#0#0'´¶Ø'#$A#$10#0#0#0'¨›Ø'#$A#0#0#0#0#0#0'R'#$B#0#0#0#0'FDispIID'#0'mØ'#$A#$E'['#4#0#$15#0'R'#$B#0#0#0#0'÷ÿ'#4#0'Ô˜Ö'#$A'”˜Ö'#$A' |R'#$B'ä|R'#$B'GetIDsOfNames'#0'R'#$B#$E#0#4#0#0#0#5#0#0#0#0#0'÷ÿ'#5#0'\šÖ'#$A' šÖ'#$A'L|R'#$B#0#0#0#0'GetTypeInfo'#0#$E#0#4#0#$B#0'le'#0#0#0#0'÷ÿ'#6#0' ›Ö'#$A'\›Ö'#$A'€|R'#$B#0#0#0#0'GetTypeInfoCount'#0'Fil'#$E'N'#4#0#5#0#0#0#0#0#0#0'÷ÿ'#7#0'€œÖ'#$A'HœÖ'#$A'¨|R'#$B#$C'}R'#$B'Invoke'#0'ÿ'#$E'C'#4#0#$1F#0#0#0#0#0#0#0'÷ÿ'#8#0'ÈžÖ'#$A'|žÖ'#$A'ä|R'#$B#0#0#0#0'InterfaceSupportsErrorInfo'#0#0#$F#0#2#0#$15#0#0#0#0#0#0#0'÷ÿ'#9#0'Ä—Ö'#$A'Œ—Ö'#$A#$C'}R'#$B#0#0#0#0'Create'#0#0#$E#0'b'#0#5#0#0#0#0#0#0#0'øÿ'#$A#0'°ŸÖ'#$A'lŸÖ'#$A'@}R'#$B#0#0#0#0'SafeCallException'#0#0#0#$11#0#2#0#$1D#0#0#0#0#0#0#0'ÿÿ'#$B#0'0l×'#$A'p}R'#$B'ˆ}R'#$B#0#0#0#0'DispIntfEntry'#0#0#0#0#0#0'€\zR'#$B'”{R'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11'„'#2#0#9#0#0#0#0#0#0#0'ÿÿ'#$C#0'XE×'#$A'¸}R'#$B'Ð}R'#$B#0#0#0#0'DispTypeInfo'#0#0#0#0#0#0#0'€\zR'#$B'd{R'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#$11#0#2#0#3#0#0#0#0#0#0#0'ÿÿ'#$D#0#4'h×'#$A'ø}R'#$B#0#0#0#0#0#0#0#0'DispIID'#0#0#0#0'€\zR'#$B'Ä{R'#$B#0#0#0#0#0#0#0#0#0#0#0'€'#8#3#0#0#0#0#0#0#4#0#0#0#0#0#0#0'(~R'#$B'V'#0#0#0#7#3'"'#0#0#0#0#0#4#0#0#0'”RÖ'#$A#0#0#0#0'p~R'#$B'X6×'#$A#$14'<×'#$A#0#0#0#0#0#0#0#0#$C#0#0#0'hRÖ'#$A#0#0'ÿÿ'#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#8#3#0#0#0#0#0#0#4#0#0#0#0#0#0#0#8'R'#$B'Y'#0#0#0#7#3'%'#0#0#0#0#0#4#0#0#0'ðRÖ'#$A'ÐR'#$B'PR'#$B'X6×'#$A'(~R'#$B#0#0#0#0#0#0#0#0#$10#0#0#0'ÀRÖ'#$A#0#0'ÿÿ'#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'$€R'#$B#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#

das könnte ich jetzt noch weiter forführen. warum kommt der fehler ?

das hinzufügen mache ich so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TFmodAudio.AddMusic(FileName:TFileName;Alias:String = '';AutoLoad:Boolean = False;AutoPlay:Boolean = False;Beschreibung:String='');
var
  index:Integer;
begin
  index:=IsAudioFileInList(MusicList,FileName) ;
  // wenn es diesen Eintrag nicht gibt, dann füge hin zu
  if index = -1 then begin
    SetLength(MusicList,high(MusicList)+2);
    MusicList[High(MusicList)].FileName:=FileName;
    MusicList[High(MusicList)].Beschreibung:=Beschreibung;
    index:=High(MusicList);
  end;
  // Wenn AutoLoad = true dann lade Automatisch den Sound
  if AutoLoad = True then LoadMusic(index,AutoPlay);
end;

nach dem ich diesen fehler endeckt hatte habe ich eine destroy funktion geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

destructor TFmodAudio.Destroy;
begin
  StopAllSound(SoundList);
  StopAllMusic(MusicList);
  FMOD_Unload;
  SetLength(MusicList,0);
  SetLength(SoundList,0);
end;

ich hoffe ihr konntet mir folgenden leider habe ich keinen websace mehr sonst könnte ich euch den komplenten qullcode hochladen.
naja der qullcode ist nur 531 zeilen lang, wenn ihr wollt dann kopiere ich ihn in meinen nästen beitrag mit dazu *G*

Moderiert von Christian S.: Mörder-Quote in Morder-Code verwandelt ;-)

_________________
MFG
Michael Springwald, "kann kein englisch...."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme