Runden!

[tankm26]

MoinMoin!

Wie kann ich denn diejeingen Werte, die für s=1/2/3 ausgegeben werden, runden?

Delphi-Quellcode:

 
var
  Form1: TForm1;
  karten:array[1..33] of TBitmap;
  kartenfeld:array[1..32] of Integer;
  nummern:array[1..33]of Integer;
  nix,von,bis,q:integer;  // die leere Karte
  c,n1,n2:int64;
implementation

{$R *.dfm}

procedure TForm1.zeitmessung(w,s:integer);
begin
  if w=0 then begin       //Start
    QueryPerformanceFrequency(c);
    QueryPerformanceCounter(n1);
 end;
 if w=1 then begin     //Stop
  QueryPerformanceCounter(n2);
  label1.Caption:=IntToStr(q);
  if s=1 then lsort1.Caption:=format('Zeit: %g s',[(n2-n1)/c]);
  if s=2 then lsort2.Caption:=format('Zeit: %g s',[(n2-n1)/c]);
  if s=3 then lsort3.Caption:=format('Zeit: %g s',[(n2-n1)/c]);
  //q:=StrToInt(format('Zeit: %g s',[(n2-n1)/c]));  (round   x*1000)/1000
 end;
 if w=2 then begin  //Reset

 end;
end;

mfg und danke schonmal,

Wieland