Countdown-Brauche Hilfe

[Sharky]

Hai BulsEye,

ich habe einige Anmerkungen (Tips) zu deinem Code.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  IF Timer2.Enabled = False THEN
    Timer2.Enabled := true
  ELSE
    Timer2.Enabled := false;
end;

Es ist schlecht in einer Abfrage auf "=True/False" zu prüfen. Da eine IF-Abfrage ja nur wissen möchte ob das Ergebniss Wahr oder Falsch ist kann man das = True/False also weg lassen.

Delphi-Quellcode:

begin
  if (Timer2.Enabled) then
    Timer2.Enabled := False
  else
    Timer2.Enabled := True;
end;

In diesem Fall geht es aber noch einfacher und damit besser zu lesen. Du möchtest den Wert von .Enabled ja negieren. Also einfach:

Delphi-Quellcode:

begin
  Timer2.Enabled := not (Timer2.Enabled);
end;

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  IF (Edit1.Text <= Label3.Caption) AND (Edit2.Text <= Label1.Caption)  THEN BEGIN
  ShowMessage(Edit3.Text); END;
end;

Du versuchst Strings welche ein Datum/Zeit Wert enthalten zu vergleichen. Das finde ich gaaanz schlecht. Wandele die Strings in ein TDate(Time) um StrToDate und vergleiche diese dann.