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?