Delphi

[Apfel]

ich hab schon wieder ein problem:
unit Ampel;

interface

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

type
  TForm1 = class(TForm)
    Rot_sh: TShape;
    Gelb_sh: TShape;
    Gruen_sh: TShape;
    Wechsel_B: TButton;
    procedure Wechsel_BClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   var
     Ampelstellung: Integer;

implementation

{$R *.dfm}

procedure TForm1.Wechsel_BClick(Sender: TObject);
begin

case Ampelstellung of
1: begin //rot_sh.brush.Color:=clred;
         //gelb_sh.brush.color:=clsilver;
         //gruen_sh.brush.color:=clsilver;
           ampelstellung:= 2
   end;

2: begin //rot_sh.brush.color:=clred;
         //gelb_Sh.brush.color:=clyellow;
         //gruen_sh.brush.color:=clsilver;
           ampelstellung:=3
   end;
3: begin //rot_sh.brush.color:=clsilver;
         //gelb_sh.brush.Color:=clsilver;
         //gruen_sh.brush.color:=clgreen;
           ampelstellung:=4
   end;
4: begin //rot_sh.Brush.Color:=clsilver;
         //gelb_sh.brush.color:=clyellow;
         //gruen_sh.Brush.color:=clsilver;
           ampelstellung:=1
   end;

end;
end;

da kommt dann der fehler: declaration expected but end of file found.
kann natürlich auch gut sein, dass ich da irgendwas komplett falsch gemacht habe, nur hab ich keine Ahnung was...

[Christian Seiler]

Hallo,

da kommt dann der fehler: declaration expected but end of file found.

Wenn mich nicht alles täuscht (schon ewig nichts mehr mit Delphi/Pascal gemacht) fehlt am Ende der Datei noch ein

end.

Jetzt musst Du mir aber nur noch verraten, was das ganze mit Web im weitesten Sinne zu tun hat. ;-)

Viele Grüße,
Christian

[Apfel]

das hat nix mit web zu tun, aber man hat mir gesagt hier wären leute die sich mit delphi auskennen und mir weiterhelfen können und das hat auch shcon mal geklappt ;-)

[Benedikt Loepp]

Hallo,

Ich würde Christian mit dem "end." am Ende zustimmen - außerdem kann ich dir folgende Delphi-Foren sehr empfehlen, wenn du Fragen zu Delphi hast:
http://www.delphi-forum.de/
http://www.delphipraxis.net/

cu Benedikt Loepp