Uhrzeit - Wie lange ist mein Programm schon offen..

[Michi003]

auch wenn ich es in einem Neuen Projet auf mache und das Edit feld rein mache geht es nicht...

[inherited]

Das ist kein kompletter Code der Dir da gegeben wurde, sondern Hinweise, wie du das realisieren kannst!

[Michi003]

Ja das weiß ich auch, aber ganz ehrlich habe ich keinen schimmer wie oder wo ich diese schnipssel in mein Puzzel einbauen soll..
ich habe noch nicht wirklich erfahrung mit Delphi gemacht...
Ich habe mir ein paar Grundlagen bis her angesehen und ausprobiert alles schön und gut klappte auch alles soweit aber ich will für das eine Projekt wo ich in der schule gemacht habe auch etwas weiter machen und will nicht immer im Unterricht mich langweilen weil ich das, was die jetzt erst lernen schon kann...

[Luckie]

Zitat:

Zitat von Die Muhkuh

Du musst halt die verschiedenen Variablen noch deklarieren.

[Michi003]

Und das ganze auf Deutsch!?:wall:

[Luckie]

Ich glaube, du solltest dir erstmal das http://www.christian-stelzmann.de/artikel/crashkurs.htm durchlesen und dann können wir hier weiter machen.

[Neutral General]

Variable deklarieren =

Delphi-Quellcode:

var
  Variable: Integer;

[BullsEye]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
VAR
    startzeit : TTime;
    endzeit   : TTime;
    diverenz  : String;
begin
  Label1.Caption := TimeToStr(time);
  startzeit := StrToTime(edit1.text);
  endzeit := StrToTime(label1.Caption);
  diverenz := TimeToStr(endzeit - startzeit);
  Label2.Caption := diverenz;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := TimeToStr(time);
end;

[rollstuhlfahrer]

soweit sogut.

Jetzt müsste nur noch die Startzeit am Programmanfang gesetzt werden. Dazu erstellst du eine neue globale Variable und löschst diese in der Timer-Prozedur. Gleichzeitig löschts du die Zeile Startzeit := ... und fügst sie dort ein, wo das Programm startet (FormCreate?, Initialization-Block?). Sonst wirst du mit deinem Code höchstens 1 s angezeigt bekommen werden.

Bernhard