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
------------------------------------------------------------------------------------------------------
Ich selber kann keinen Fehler finden egal wie lang ich such bzw auch rumprobier !!!!
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]