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:

markieren

Code:

var datum: TDate;

Nur die Ausgabe klappt nicht ^^
Wie?

Schon mal vielen dank!

Uceo

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

Die aktuelle Zeit bekommst du mit
Variable := Now; , und die Zeit, die er PC bereits läuft, mit
GetTickCount; Gruß

zusammenfalten · markieren

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.

Vielen Dank an alle! Werde es versuchen!

[edit]

markieren

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?

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.

Der letzte Abschnitt der Source müsste so sein:

zusammenfalten · markieren

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;

Hi,

Benötigt werden Label + Timer.

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

markieren

Delphi-Quellcode:

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

MfG Marc

OK! So hab ichs jetzt verstanden! THx