Joysound: Sounds abspielen per Joypad

[PhilmacFLy]

Zitat von turboPASCAL:

Nun gut,

1.)
Bitte Arbeite an deiner Formatierung des Quelltextes. Zur Zeit ist er , sagen wir mal, schlecht lesbar.

2.)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  pfad := (ExtractFilePath(ParamStr(0)) + '\Sounds\');

  if sysutils.DirectoryExists(pfad) then
  begin
    ListeDir(pfad, Listbox1.Items);
    if Listbox1.ItemIndex > -1 then
      Listbox1.Selected[0] := true;
  end;
//...

Sollte man unbedingt so machen. Denn was passiert denn wenn das verzeichnis leer oder nicht vorhanden ist ?

3.)
38 Timer ? Muss das denn sein ? Einer reicht völlig aus denke ich.

ich glaube 2tens und 3tens hab ich außreichend oben beanwortet zu 1. hat man mir schon oft gesagt und bis jetzt gnadenlos versagt. außerdem sind es 42 timer