Tag zusammen,
vor etwas längerer Zeit hab ich ja einen Thread hier gehabt, in dem ich beschrieben hab, dass ich eine Zapfsäule simulieren soll. Nun. Ich habe das ganze soweit fertig, allerdings treten immer wieder ein paar Fehler auf. Der Fehler, der mich im Moment am meisten stört:

if btTanken.Caption:='Tanken' then
begin
btTanken.Caption:='Stop';
TDauer.Enabled:=true;
end

Dabei streicht er mir "if btTanken.Caption:='Tanken'" immer wieder an. Als Begründung steht: [Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden.

Was muss ich anders machen?

http://www.delphipraxis.net/internal...t.php?t=146942

markieren

Delphi-Quellcode:

if btTanken.Caption = 'Tanken' then
begin
btTanken.Caption := 'Stop';
TDauer.Enabled := true;
end;

Und schau dir vielleicht mal zum Verständnis und weitergehenden Programmierung das Tutorial zu Kontrollstrukturen und Schleifen aus der DP an

Ok danke, das erste Problem wär gelöst.

Zwei Probleme hab ich noch:

Ich hab zwei Labels, die eig. nach einem OnClick Ereignis ansteigen sollen, bzw. ihre Caption ändern sollen.

Das eine Label legt den Preis fest, der parallel zum Liter-Label ansteigt (das Liter Label steigt komischerweise an), das andere ist einfach nur eine Anzeige, die der ausgewählte Treibstoff pro Liter kostet (sie ändert sich nicht).

Allerdings steigt das Label für den Preis nicht an und das Label, dass anzeigen soll, wv der ausgewählte Treibstoff pro Liter kosten soll, nimmt ebenfalls nichts die gewünschte Zahl an.

(hier die beiden Quelltexte für die Label):
(1. Label, dass parallel zum Liter ansteigen soll)

procedure TForm1.GroupBox3Click(Sender: TObject);

begin
if Sender=BitBtn1 then
Preis:=Preis-0.1
else if Sender=BitBtn2 then
Preis:=Preis-0.2
else if Sender=BitBtn3 then
Preis:=Preis-0.5
else if Sender=BitBtn4 then
Preis:=Preis-1
else if Sender=BitBtn5 then
Preis:=Preis-2
else if Sender=BitBtn6 then
Preis:=Preis-5
else if Sender=BitBtn7 then
Preis:=Preis-10
else if Sender=BitBtn8 then
Preis:=Preis-20
else if Sender=BitBtn9 then
Preis:=Preis-50;
lbPreis.Caption:=FloatToStr(Preis);
Groupbox2.Enabled:=false;
end;

(hier das Label, das einfach nur den Treibstoffpreis pro Liter festlegen soll)
procedure TForm1.GroupBox1Click(Sender: TObject);
begin
if Sender=Button1 then
lPreis:=1.172
else if Sender=Button2 then
lPreis:=1.165
else if Sender=Button3 then
lPreis:=1.256
else if Sender=Button4 then
lPreis:=1.150;
GroupBox1.Enabled:=false;
GroupBox2.Enabled:=true;
lblpreis1.Caption:=FloatToStr(lpreis);



end;

So hab ich das geschrieben, warum funktioniert das nicht und wo liegt der Fehler? Wenn ihr nicht folgen könnt, schick ich euch gerne das Design und den vollständigen Quelltext und ihr probiert es aus.

Bitte nur eine Frage pro Thread. Sonst werden Lösungen und Lösungsvorschläge für Suchende erschwert

Zu deinem Problem eine kleine Anmerkung: Wenn das Ereignis auf der GroupBox ausgeführt wird, ist der Sender immer die Groupbox ..

Ok, ich mach einen neuen Thread auf.