TstringList // Form2 daten aus einer anderen Klasse lesen

[hoika]

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