Einzelnen Beitrag anzeigen

Swagger Jackin
(Gast)

n/a Beiträge
 
#10

Re: Projekt Probleme: Zeitmessung und Highscore

  Alt 21. Feb 2010, 14:58
okay, mach ich jetzt so
danke für den Tipp
mein Partner mit dem ich arbeite hat die Unit9 und Form10 gelöscht und dafür Unit10 und Form9 zusammengeführt, deswegen nicht mehr findbar

noch als Ergänzung für Zeitmessung habe ich Unit13:
Delphi-Quellcode:
unit Unit13;

interface

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

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

var
  Form13: TForm13;
  start, runtime : TDatetime;
  i : integer;
implementation

uses Unit1;

{$R *.DFM}
{==============================================================================}
procedure TForm13.FormCreate(Sender: TObject);
begin
  runtime := now - start;
  Label2.Caption := FormatDatetime('ss', runtime);
// ShowMessage('Punkte: '+IntToStr(Punkte)';

{  Report.Prepare;
  i := QuickRep1.anzahlgleichfarbigerbloecke;
  Report.Preview;
  Label3.Caption := IntToStr(i);
}
  
end;
{==============================================================================}
end.
Was muss verändert werden, damit neben dem Label die Zeit steht und die Zeit nicht immer dieselbe bleibt?
Habt ihr Vorschläge?
  Mit Zitat antworten Zitat