end am ende des codes

[Saimen]

Hi

Ich habe einProblem: Wenn ich mein Projekt testen will, kommt ein fehler, weil angeblich das "end" am nede des codes nicht stimmt.
Falls es etwas hilft, der gesamte code von project1.dpr lautet:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

danke im voraus

[ErazerZ]

Wie schaut den deine Unit1 aus? Vielleicht fehlt dort ein 'end.'.

[mkinzler]

Unit1 in 'Unit1.pas'; {Form1}

[Saimen]

Zitat von ErazerZ:

Wie schaut den deine Unit1 aus? Vielleicht fehlt dort ein 'end.'.

Ich poste mal nur das ende

Delphi-Quellcode:

end;

end.

[ErazerZ]

Zitat von Saimen:

Zitat von ErazerZ:

Wie schaut den deine Unit1 aus? Vielleicht fehlt dort ein 'end.'.

Ich poste mal nur das ende

Delphi-Quellcode:

end;

end.

Gut, das war sehr hilfreich. Für mich sieht deine Projektdatei in ordnung aus.

[Saimen]

und das heißt?

[Prototypjack]

Zitat von ErazerZ:

Gut, das war sehr hilfreich. Für mich sieht deine Projektdatei in ordnung aus.

Das war wohl etwas ironisch gefärbt. Er meinte damit wohl du solltest etwas aussagekräftigere Fehler posten (Was genau sagt der Syntax-Check?) und vielleicht *etwas* mehr der Unit.

Gruß,
Max

[Saimen]

Der gesamte code der Unit1 ist:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls, XPMan, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    XPManifest1: TXPManifest;
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    MediaPlayer2: TMediaPlayer;
    MediaPlayer3: TMediaPlayer;
    MediaPlayer4: TMediaPlayer;
    MediaPlayer5: TMediaPlayer;
    MediaPlayer6: TMediaPlayer;
    MediaPlayer7: TMediaPlayer;
    MediaPlayer8: TMediaPlayer;
    MediaPlayer9: TMediaPlayer;
    MediaPlayer10: TMediaPlayer;
    MediaPlayer11: TMediaPlayer;
    MediaPlayer12: TMediaPlayer;
    MediaPlayer13: TMediaPlayer;
    MediaPlayer14: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.open;
      mediaplayer1.play;
Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Mediaplayer1.Stop;
Mediaplayer2.Stop;
Mediaplayer3.Stop;
Mediaplayer4.Stop;
Mediaplayer5.Stop;
Mediaplayer6.Stop;
Mediaplayer7.Stop;
Mediaplayer8.Stop;
Mediaplayer9.Stop;
Mediaplayer10.Stop;
Mediaplayer11.Stop;
Mediaplayer12.Stop;
Mediaplayer13.Stop;
Mediaplayer14.Stop;
end;

end.

Der feler lautet:

Im Projekt Project1.exe ist einen Exception der Klasse EMCIDeviceError aufgetreten. Meldung:'Kein MCI-Gerät geöffnet.' Prozess wurde angehalten. Mit einzelne anweisung oder Start Fortsetzen.

[Luckie]

Zitat von Saimen:

Der feler lautet:

Im Projekt Project1.exe ist einen Exception der Klasse EMCIDeviceError aufgetreten. Meldung:'Kein MCI-Gerät geöffnet.' Prozess wurde angehalten. Mit einzelne anweisung oder Start Fortsetzen.

Aha. Und warum scjlieest du aus dieser Fehlermeldung jetzt, dass ein end fehlt?

[Saimen]

weil danach das end im quellcode rot hinterlegt ist.