Zeit oder Form aktualisieren ?

[24karatboy]

ist es möglich eine form zu aktualisieren bzw. eine uhrzeit zu aktualisieren ?

ich habe eine label indem ich das datum und die uhrzeit per DateTimetoStr(now); anzeige nur ist sie ja nichtmehr aktuell wenn das programm 2 minuten läuft was kann man da machen ?

[TeronG]

Mir fällt da spontan folgendes ein

1. Timer
2. Bei "allen" Aktionen des Benutzer'S
3. Endloschleife (achtung EXE nicht aufhängen lassen ^^)
4. onIdle

[Bernhard Geyer]

Wie wäre es mit einem Timer?
Aber was macht es Sinn in Zeiten von TNA und Sidebar zusätzlich im Programm 'ne Uhrzeit anzuzeigen? :gruebel:

[24karatboy]

bernhard erkläre mir mal genauer diese funktionen ;)

[DeddyH]

Timer auf Interval 1000 (eine Sekunde) und dann

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime('dd.mm.yyyy hh:nn:ss',now);
end;

Ist doch nicht schwer, oder?

[24karatboy]

anscheinend schon ;)

fehlermeldung: record, objekt oder klassentyp erfoderlich

[DeddyH]

Vertippt?

[24karatboy]

jo richtig danke

[24karatboy]

ist es möglich ich möchte errechnen lassen wie lange das programm lief.

in der form hh:nn:ss

jetzt habe ich mir gedacht

Delphi-Quellcode:

zeitan:=FormatTime('hh:nn:ss', now);
zeitaus:=FormatTime('hh:nn:ss', now);

dauer:=FormatTime('hh:nn:ss', zeitaus-zeitan);

ist das irgendwie möglich ?

[Tormentor32]

Delphi-Quellcode:

// Beim Start
StartZeitpunkt := now;
//und beim Beenden:
GesamtZeit := now-StartZeitpunkt

[24karatboy]

aber wenn cih dann

zeitan:=FormatTime('hh:nn:ss', now);

mache sagt er mir undefinierter bezeichner FormatTime ??

[Nuclear-Ping]

FormatDateTime

[24karatboy]

[Fehler] taschenrechner.pas(252): Operator ist auf diesen Operandentyp nicht anwendbar

Delphi-Quellcode:

zeitan:=FormatDateTime('hh:nn:ss', now);
zeitaus:=FormatDateTime('hh:nn:ss', now) - zeitan;

[TeronG]

Delphi-Quellcode:

zeitan:=FormatDateTime('hh:nn:ss', now);
zeitaus:=FormatDateTime('hh:nn:ss', now - zeitan);

EDIT: argh .. nee falsch!!!
Merk dir am besten die zeit als Double und Formatier sie nur zur Anzeige um. Siehe Tormentor32 #10

Zitat:

Zitat von Tormentor32

Delphi-Quellcode:

// Beim Start
StartZeitpunkt := now;
//und beim Beenden:
GesamtZeit := now-StartZeitpunkt

und dann noch sowas wie

Delphi-Quellcode:

Label1.Caption := FormatDateTime('hh:nn:ss', now);
bzw.
Label1.Caption := FormatDateTime('hh:nn:ss', GesamtZeit );

[mkinzler]

Versuch nal TimeToStr()

[24karatboy]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
zeitan:=FormatDateTime('hh:nn:ss', now);
end;

procedure TForm1.BitBtnBeendenClick(Sender: TObject);
var gesamtzeit:string;
begin
zeitaus:=FormatDateTime('hh:nn:ss', now);
Gesamtzeit:=TimetoStr(zeitaus-zeitan);
end;

meintest du so mkinzler?

kommt die gleiche fehlermeldung

[Nuclear-Ping]

@24karatboy:
Hilfe geben ist gut und schön. Hilfe bekommen auch. In einem anderen Forum hat heute jemand eine passende Bezeichnung für Leute wie dich genannt: "Carefree"-Poster.

Statt selber mal gründlich (wenns sein muss mehrere Stunden) über die selbst gestellten Probleme nachzudenken und dafür Lösungen zu finden, rennen Leute wie du einfach in Foren wie diese und jammern über Syntax- und Datentypfehler rum, machen für jedes kleine "Aua" einen neuen Beitrag auf. Nur schade, dass sich hier auch immer wieder Leute finden, die solche "Carefree"-Typen in ihrer Lernresistenz stärken.

Leuten wie dir reicht es scheinbar nicht, wenn man ihnen "Happen" hinwirft und auch noch verlangt, sich mal damit durch die Delphi-Hilfe zu wühlen.

Wenn du merkst, dass es hier und da hängt, lies ein Delphi-Buch und studiere Tutorials! Vielleicht ist das Programmieren auch einfach nix für dich?

:cheers:

[24karatboy]

mein gott man bittet ganz freundlich um hilfe und dann kommt sowas...

aber ein oder zwei leute gibt es in jedem forum die was dagegen haben das leute einem helfen ich habe nicht die zeit 2 stunden an sonem problem zu hocken bzw. keine lust...

ich will ja auch keine ganzen lösungen sondern nur denkanstösse ...

naja nicht jeder hockt 24 stunden 7 tage die woche am rechner nuclear-ping da kann das schon sein das du was besser coden kannst ...

[mkinzler]

Nur ein normaler Programmierer schaut in der Hilfe nach wenn der Compiler einen Fehler wirft und überprüft Anzahl und Typen der aufgerufenen Funktionen´, daß machst du nicht, sondern stellst die Fehlermeldung ein und wartest bis jemand deine Anweisung korrigiert. In der Hilfe steht auch was die Funktionen machen, hättest du diese gelesen, dann wüstest du auch das TimeToStr einen Zeitwert in einen String wandelt (obwohl das sagt ja eigentlich schon der Name der Funktion) und sie deshalb als Ersatz für Format gedacht war.

[Nuclear-Ping]

Zitat:

mein gott man bittet ganz freundlich um hilfe und dann kommt sowas...

Es gibt ein Sprichwort: "Gib ihm den kleinen Finger und er nimmt die ganze Hand".

Zitat:

aber ein oder zwei leute gibt es in jedem forum die was dagegen haben das leute einem helfen ich habe nicht die zeit 2 stunden an sonem problem zu hocken bzw. keine lust...

Eher keine Lust. Weil scheinbar hast du die Zeit, schon seit 2 oder 3 Stunden dich (und uns) mit deinem "Taschenrechnerproblem" zu beschäftigen. ;)

Zitat:

ich will ja auch keine ganzen lösungen sondern nur denkanstösse ...

Ich glaube die hast du von allen Seiten bekommen.

Zitat:

naja nicht jeder hockt 24 stunden 7 tage die woche am rechner nuclear-ping da kann das schon sein das du was besser coden kannst ...

Ich für meinen Teil "code" beruflich. Ich "hocke" hier auch auf Arbeit und schaue nebenbei in Foren wie diese um zu schauen, wem ich wie helfen kann.

Im Grunde kann es mir auch egal sein. Wie schon gesagt gibt es immer wieder Leute, die auf Fragen wie deine gern antworten. Ich für meinen Teil finde es nur ... hm ... faul, unselbständig, etc.

[TeronG]

Zitat:

Zitat von 24karatboy

ich will ja auch keine ganzen lösungen sondern nur denkanstösse ...

OK:

FormatDateTime --> String
TimetoStr --> Auch String
Now --> TDateTime --> Double (kein String)
xyz.Caption --> noch n String

[24karatboy]

also ich finde es gibt genug leute die mal hier rein schauen und gucken wem könnte ich den jetzt helfen?

wenn ich so gut wäre würde ich auch gerne hier helfen aber soweit bin ich noch nicht bin hier zwar auch auf der arbeit aber bin nur praktikant und ich habe nicht vor es beruflich zu machen muss es halt schulisch machen und da komme ich nicht drum rum

sorry nuclear-ping das ich dich belästigt habe, und deine zeit vergoldet habe.

[DeddyH]

Zitat:

Zitat von 24karatboy

sorry nuclear-ping das ich dich belästigt habe, und deine zeit vergoldet habe.

Könntest Du meine bitte auch vergolden? :mrgreen:

P.S.: Ach, deshalb 24 Karat :idea:

[24karatboy]

möglich was für nen gold darfs denn sein ?

[Nuclear-Ping]

Zitat:

Zitat von 24karatboy

wenn ich so gut wäre würde ich auch gerne hier helfen aber soweit bin ich noch nicht bin hier zwar auch auf der arbeit aber bin nur praktikant und ich habe nicht vor es beruflich zu machen muss es halt schulisch machen und da komme ich nicht drum rum

Du wirst aber nicht dadurch besser, indem du hier deine Compiler- und Syntaxfehler reinstellst und diese von anderen lösen lässt. Oder kurz gesagt: Wenn man dir alles vorkaut, werden deine Zähne dadurch nicht fester, im Gegenteil. :P

Und wenn du es für die Schule brauchst, scheinst du ja auch nicht viel Zeit damit zu verbringen. Oder wie machst du das dann bei deinen anderen Hausaufgaben, wo's mal knifflig und schwierig wird? Vom Kumpel abschreiben? :P

Zitat:

sorry nuclear-ping das ich dich belästigt habe, und deine zeit vergoldet habe.

Hrhr, meine Zeit vergolden darf jeder. Nur vergeuden nicht. :mrgreen:

[24karatboy]

ja bei mir ist es so wenn ich es dann einmal richtig gemacht habe dann kann ich es eigentlich...

meistens. ich beschäftige mich ja auch damit aber wenn ich nicht weiter weiss frag ich halt

[Nuclear-Ping]

Siehe Beitrag von mkinzler -> http://www.delphipraxis.net/internal...=741947#741947

[24karatboy]

die hilfe hilft mir meistens garnicht weiter weil das das drinne viel zu hoch steht für so leute wie euch aber ich verstehe da nichts was die da schrieben die schreiben da nur ganz allgemein und machen keine beispiele ...

[Nuclear-Ping]

http://www.knowware.de/?cat=6.1&book=delphi

[mkinzler]

Du sollst auch versuchen zu verstehen, was da passiert.

BTW: Hier gibt es auch Antworten
http://www.delphi-forum.de/viewtopic.php?t=73967

[24karatboy]

mkinzler gibt es ne möglichkeit wenn ich nen bitbtn als bkclose deklariert habe das ich vor der close anweisung noch andere anweisungen davor schiebe ? ich hab bei google etc. gesucht und in der hilfe aber nichts gefunden.

ich könnte auch nen normalen bitbtn als bkcustom nehmen aber ich hätte gerne das close bild ?

[DeddyH]

Schreib' s doch OnClose rein.

[Nuclear-Ping]

Du kannst einem BitBtn auch selber ein "Glyph" zuweisen und im OnClick-Ereignis alles machen, was dir beliebt. ;)

[24karatboy]

danke habt mir sehr geholfen

[Chemiker]

Hallo 24karatboy,

Zitat:

ist es möglich ich möchte errechnen lassen wie lange das programm lief.

Ist es dann nicht besser mit getTickCount zu arbeiten?

Delphi-Quellcode:

Anfang:= getTickCount;
// Programm
Ende:= getTickCount;

Bis bald Chemiker

[Nuclear-Ping]

GetTickCount kann überlaufen.

[Chemiker]

Hallo Nuclear-Ping,

Zitat:

The elapsed time is stored as a DWORD value. Therefore, the time will wrap around to zero if the system is run continuously for 49.7 days.

Fast 50 Tage sollte doch kein Problem sein oder?


Bis bald Chemiker

[DeddyH]

Zitat:

Zitat von Chemiker

Fast 50 Tage sollte doch kein Problem sein oder?

Kommt auf die Anwendungsumgebung an. Bei einem Server können die schon locker erreicht werden, sofern kein sicherheitsrelevantes Windows-Update dazwischenfunkt.

[Chemiker]

Hallo DeddyH,

Stimmt!


Bis bald Chemiker