Problem mit BSP Prog (GELÖST)

[NiHil]

ICh habe ein Problem :( : Ich bin absoluter Anfänger in Sachen Delphi. Ich bin grad dabei mir anhand von einigen Tutorials Delphi anzueignen. Jetzt geht ein bestimmtes Beispiel Programm nicht und ich weiss nicht warum !!
Kann mir jemand helfen und den Fehler in dem Quellcode finden !!!!!?????? Es geht um eine Stoppuhr !! Ein Button für an und aus. Ein Zweiter für Reset. Dazu eine Timer Komponenete und ein Label zum anzeigen.


QUELLCODE:
---------------------------------------------------------------------------------------------

Delphi-Quellcode:

unit Unit1;


interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    Stunden, Minuten, Sekunden: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=not timer1.enabled;
end;
 procedure TForm1.Timer1Timer(Sender: TObject);
var
  SSekunden, SMinuten, SStunden: string;
begin
  if not (sender=button2) then Sekunden:=Sekunden+1;
  if Sekunden=60 then
  begin
    Sekunden:=0;
    Minuten:=Minuten+1;
    If Minuten=60 then 
    begin
      Stunden:=Stunden+1;
      Minuten:=0;
    end;
  end;
  SSekunden:=IntToStr(Sekunden);
  SMinuten:=IntToStr(Minuten);
  SStunden:=IntToStr(Stunden);
  if Length(SSekunden)=1 then
    SSekunden:='0'+SSekunden;
  if Length(SMinuten)=1 then
    SMinuten:='0'+SMinuten;
  If Length(SStunden)=1 then
    SStunden:='0'+SStunden;

  Label1.caption:=SStunden+':'+SMinuten+':'+SSekunden;
end;

end.
+':'+SSekunden;
end;

-------------------------------------------------------------------------------------------------
ANGEZEIGTE FEHLER:
--------------------------------------------------------------------------------------------------
[Fehler] Unit1.pas(34): Undefinierter Bezeichner: 'Timer1Timer'
[Fehler] Unit1.pas(34): ';' erwartet, aber '(' gefunden
[Fehler] Unit1.pas(38): Undefinierter Bezeichner: 'sender'
[Warnung] Unit1.pas(38): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden
erweitert
[Warnung] Unit1.pas(39): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden
erweitert
[Fehler] Unit1.pas(42): Undefinierter Bezeichner: 'Minuten'
[Warnung] Unit1.pas(43): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden
erweitert
[Fehler] Unit1.pas(45): Undefinierter Bezeichner: 'Stunden'
[Fehler] Unit1.pas(59): Undefinierter Bezeichner: 'Label1'
[Hinweis] Unit1.pas(18): Das private-Symbol 'Stunden' wurde deklariert, aber nie verwendet
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden
:wiejetzt:
------------------------------------------------------------------------------------------------------
Ich selber kann keinen Fehler finden egal wie lang ich such bzw auch rumprobier !!!! :wall:
Bitte Bitte helft mir !

danke schon einmal cya



P.S: Ich hab Delphi7 liegt es daran? Wenn ja was muss ich ändern ?

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Wormid]

Moin,

lösch mal die letzten beiden Zeilen in dem Quelltext. (Alles nach dem "end.")

Und überprüf mal, ob Timer1Timer mit dem Timer und Button1Click mit dem Button verbunden sind.

Dann sollte das Proggie auch ganz toll funzen. :mrgreen:


Gruß

Wormid

[Christian Seehase]

Moin Nihil,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Zum Zweiten:
Bitte ändere umgehend den Titel von Deinem Thread!
Die Titel müssen einigermassen das Problem umreissen.
Danke.

Zum Dritten:
Das Problem sollte sich ganz einfach lösen lassen.
Dir fehlt nämlich nur die Deklaration für das Timer Ereignis.

Delphi-Quellcode:

//...
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);  // Diese Zeile muss eingefügt werden
  private
//...

Der Rest sind dann Folgefehler.

Beim Button scheinst Du es ja hinbekommen zu haben das OnClick Ereignis korrekt einzubinden, beim Timer geht's ähnlich.
Leg ihn auf das Formular, und mache einen Doppelclick auf das Symbol. Schon erzeugt Delphi das was Du mindestens brauchst.
Danach darfst Du nur nicht den Fehler machen zu speichern oder zu compilieren, bevor Du nichts in die Routine reingeschrieben hast, da Delphi so eine leere Deklaration dann gleich wieder löscht.
Es genügt übrigens die o.g. Zeile einzufügen, das mit dem Doppelclick solltest Du jetzt nicht mehr machen.

[NiHil]

Ja es geht ihr seit die besten !!!!
Es geht zwar noch nicht richtig also wenn ich start klick dann komm nichts aber das bekomm ich sicher noch hin !

Danke danke cya

[NiHil]

Es geht wieder nicht ....... :( :wall: :( Warum ?
Hab jetzt ne halbe Stunde rumprobiert geht nicht !!!!!!!

Er zeigt keinen Fehler an aber wenn ich auf Start drücke wird nichts angezeigt also das Label verändert sich nicht bleibt 00:00:00 verdammt noch mal !!!

hier :

Label1.caption:=SStunden+':'+SMinuten+':'+SSekunde n; :gruebel: Fehler ?

kann mir bitte nochmal jemand helfen *dumm und lästig vorkomm* und vorallem weiss jemand woher ich solche Beispiel Progs mit Anleitung bekomme die dann auch funktionieren ???


danke cya

[Christian Seehase]

Moin Nihil,

das Problem ist, dass ein Timer standardmässig enabled ist.
Durch den Druck auf Button1 (ich denke mal, dass das der Startbutton ist), wird dieser Zustand umgekehrt, der Timer also abgeschaltet.
Die Zeit bis der Timer aufgerufen wird liegt standardmässig bei 1000ms als 1 Sekunde. Solange müsstest Du schon nach dem Programmstart warten.

Zitat:

Zitat von NiHil

*dumm und lästig vorkomm*

Warum?
Jeder hat mal angefangen, und stand vor solchen oder ähnlichen Problemen.

Zitat:

Zitat von NiHil

vorallem weiss jemand woher ich solche Beispiel Progs mit Anleitung bekomme die dann auch funktionieren ???

Ist das jetzt ein Beispielcode aus einem Tutorial, oder hast Du das anhand eines Tutorials erstellt?

[Wormid]

Moin,

ich habe mir mal eben die Zeit genommen, dieses "Projekt" zum laufen zu bringen. :wink:
Ich denke, jetzt funktioniert es, wie es soll.

Gruß

Wormid

[NiHil]

Danke jetzt nach einiger bastel arbeit hab ich es zum laufen gebracht.
Jetzt noch ne bischen die Oberfläche verändern und dann ist es fertig.


danke danke danke danke danke danke danke danke danke euch allen


cya