Hallo,
1.
Delphi-Quellcode:
var
Form1: TForm1;
sPlayer: Ts0nPlayer;
posScroll: longword;
ScrollMAx: integer;
Bis auf Form1 sind das alles globale Variablen,
die hier nichts zu suchen haben.
Sie kommen in den private-Teile von TForm1.
Bei
sPlayer steht wieder die Frage,
ob er auch von anderen Units/Forms benutzt wird,
wenn ja, die hast ja jetzt eine eigene Klasse dafür.
2.
Delphi-Quellcode:
Const
BASS_ACTIVE_STOPPED = 0;
BASS_ACTIVE_PLAYING = 1;
BASS_ACTIVE_STALLED = 2;
BASS_ACTIVE_PAUSED = 3;
Das kommt in die eigene Klasse.
3. Der Schreibstil !!!
Delphi-Quellcode:
//Button Play
procedure TForm1.Button_PlayClick(Sender: TObject);
begin
playlist_s0n_Klasse.Playlist.PlayActTrack;
end;
//Button Next Track
procedure TForm1.Button_nextClick(Sender: TObject);
begin
playlist_s0n_Klasse.Playlist.PlayNextTrack;
end;
Einmal eingerückt, dann wie der nicht
Delphi-Quellcode:
begin
Code
end
begin
Code
end
Das ist total unleserlich.
Erwarte nicht, dass sich das jemand komplett ansieht
Augenkrebs !!!
Noch ein Bsp.
Delphi-Quellcode:
if Bedingung then
begin
Code1
end
else
begin
Code2
end;
Ober das begin/end des else noch eingerückt werdne sollte,
Ansichtssache ...
Heiko