mhmh, ich kenn mich ja noch nicht wirklich sooo gut aus, deswegen ist die aufgabe, eine dartscheibe zu programmieren echt schwierig für mich...
hier tritt folgender fehler auf :
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if progressbar1.Position=100 then
progressbar1.step:=-10
else if progressbar1.Position=0 then
progressbar1.step:=10;
progressbar1.Stepit;
end;
begin
if progressbar2.Position=100 then
progressbar2.step:=-10
else if progressbar1.Position=0 then
progressbar2.step:=10;
progressbar2.Stepit;
end;
--> [Fehler] Unit1.pas(148): Anweisung erwartet, aber 'PROCEDURE' gefunden
[Fehler] Unit1.pas(148): Deklaration von 'Timer1' unterscheidet sich von vorheriger Deklaration
[Fehler] Unit1.pas(151): Undefinierter Bezeichner: 'progressbar1'
[Fehler] Unit1.pas(151): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(153): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(160): Undefinierter Bezeichner: 'progressbar2'
[Fehler] Unit1.pas(160): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(162): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(172): Undefinierter Bezeichner: 'Timer1'
[Fehler] Unit1.pas(175): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(178): ';' erwartet, aber Dateiende gefunden
[Fehler] Unit1.pas(28): Ungenügende Forward- oder External-Deklaration: 'TForm1.Durchlaufstoppen2Click'
[Fataler Fehler] Project2.dpr(5): Verwendete
Unit 'Unit1.pas' kann nicht compiliert werden
Kann ich das überhaupt SO in die timer procedure reinschreiben?