Zeit seit Systemstart und aktuelle Zeit abfragen

[Uceo]

Hallo liebe DP-Benutzer!

Als erstes Mal hallo! Ich beschäftige mich jetzt erst wieder seit einem halben Jahr wieder mit Delphi.

Zu meinem Problem:
Ich hab jetzt schon die Suchfunktion benutzt und habe leider nix gefunden, was mir hilft. Ich bin noch totaler Anfänger.

Bitte erklährt mir, wie ich die Zeit seit dem Systemstart und die aktuelle Zeit abfrage!

Das weiß ich: (nur aktuelle Zeit)
Man muss am Anfang die Variable TDate deklinieren, das hab ich! Mehr leider nicht!
Also:

Code:

var datum: TDate;

Nur die Ausgabe klappt nicht ^^
Wie?

Schon mal vielen dank!

Uceo

[Binärbaum]

Zur Ausgabe:
Dafür kann man die Funktion DateTimeToStr verwenden. Sie wandelt das übergebene Datum/Zeit in einen String, der dann auf einem Label o.ä. angezeigt werden kann. (Ich glaube es gibt auch noch TimeToStr , wenn ich mich richtig erinnere.)

Mit der Funktion GetTickCount (ich glaube so hieß sie, habe lange nicht mehr damit gearbeitet) bekommt man die vergangene Zeit seit Systemstart geliefert (in Millisekunden).

MfG
Binärbaum

[moritz]

Die aktuelle Zeit bekommst du mit

Delphi-Quellcode:

Variable := Now;

, und die Zeit, die er PC bereits läuft, mit

Delphi-Quellcode:

GetTickCount;

Gruß

[Binärbaum]

Delphi-Quellcode:

procedure Zeit_ausgeben;
var
  S : String;
  d : TDateTime;
  tc: LongInt;
begin
  d:=Now;//Now liefert aktuelle Zeit
  S:=TimeToStr(d);
  ShowMessage('Aktuelle Zeit: '+s);
  tc:= GetTickCount;//Zeit seit Systemstart
  Showmessage('Seit Systemstart sind '+IntToStr(tc div 1000)+' Sekunden vergangen.');  
end;

Damit müsste es funktionieren.

[Uceo]

Vielen Dank an alle! Werde es versuchen!

[edit]

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  mils: Gettickcount;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label4.Caption := 'Der PC läuft seit ' + InttoStr(mils) + ' Millisekunden!';
end;

end.

Was ist falsch?

[Matze]

Hier auch eine Möglichkit.

WO ich gerade deinen Code sehe, du kannst einer Variable erst im Implementationabschnitt das GetTickCount zuweisen. Lies dir mal ein paar Anfängertutorials durch. ;)

[Binärbaum]

Der letzte Abschnitt der Source müsste so sein:

Delphi-Quellcode:

var
  Form1: TForm1;
  mils: Integer;//muss ein IntegerTyp sein (z.B. Integer, od. LongInt od. Cardinal)
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 mils:= GetTickCount;
 label4.Caption := 'Der PC läuft seit ' + InttoStr(mils) + ' Millisekunden!';
end;

[Chegga]

Hi,

Benötigt werden Label + Timer.

Bei Timer Interval auf 1000 stellen, so wird im Sekundentakt die Uhrzeit angezeigt.

Delphi-Quellcode:

procedure TFrom1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time);
end;

MfG Marc

[Uceo]

OK! So hab ichs jetzt verstanden! THx