fejl i delphisource

Du har sat den til at hvis den viser beskeden så skal den ikke vise din caption

ja mens C er mindre end Forskel... Eller ?

Hvilken slags variabel er Forskel?
Her skal det være en Cardinal eller en Integer.

Integer...

Prøv med følgende efter
--- cut ---
implementation

{$R *.DFM}
--- cut ---:
--- cut ---
var
  Forskel: Cardinal;
--- cut ---

Prøv derefter med:
--- cut ---
procedure Txit.start1Click(Sender: TObject);
begin
  Forskel := xit.Timer.Interval;
end;
--- cut ---

Hvis der stadigvæk er problemer så prøv at lægge hele din kode ud, hvis der ikke er for meget ...

det eneste du har ændret er Forskel til Cardinal... efter hvad jeg kan se

Ja, prøv! Som skrevet, hvis det ikke virker, så prøv at dumpe hele din kode :)

min kode fylder 9 A4 sider...

Og det er jo kun denne del jeg skal bruge en løsning til...

men i det hele taget kan jeg ikke se hvorfor min kode ikke skulle virke...
if delen virker perfekt, men else delen kolapser...

Kan dit program overhovedet køre?

ja den kører fint...

her er koden...

implementation

{$R *.dfm}

procedure Txit.start1Click(Sender: TObject);
var

Forskel : Cardinal;

begin
        Tid := GetTickCount;
        Forskel := xit.Timer.Interval;
end;

procedure Txit.TimerTimer(Sender: TObject);
var
  C: Cardinal;
begin
  C := GetTickCount - Tid;
  if C >= Forskel then
  begin
    timer.Enabled := False;
  Close;
  end
  else
  begin
    xit.lbl.caption := Format('%d dage %d timer %d minutter %d sekunder %d milisekunder',
    [C div (1000*60*60*24), C div (1000*60*60) mod 24, (C div (1000*60)) mod 60, (C div 1000) mod 60, C mod 1000]);
  end;

end;

danielks -> Se http://www.eksperten.dk/spm/280754

Ja tag det roligt... Der er givet point nu...

Det var bare en lille reminder :)

Tilbage til dit spørgsmål -> Så vidt jeg kan se fungerer dit program som et æggeur og xit.lbl.caption viser tidsstatus.

Prøv med:
----------------------
implementation

{$R *.dfm}

var
  Forskel, Tid : Cardinal;

procedure Txit.start1Click(Sender: TObject);
begin
  Tid := GetTickCount;
  Forskel := xit.Timer.Interval;
  Timer.Enabled := true;
end;

procedure Txit.TimerTimer(Sender: TObject);
var
  C: Cardinal;
begin
  C := GetTickCount - Tid;
  if C >= Forskel then
  begin
    timer.Enabled := False;
  Close;
  end
  else
  begin
    xit.lbl.caption := Format('%d dage %d timer %d minutter %d sekunder %d milisekunder',
    [C div (1000*60*60*24), C div (1000*60*60) mod 24, (C div (1000*60)) mod 60, (C div 1000) mod 60, C mod 1000]);
  end;

end;

Kan du se hvad der er galt i kildekoden ?

Min kommentar 14/11-2002 20:44:48 er mit umidlbart bedste bud ...

jeg opdagede lige at jeg får en (fejl)melding om at værdierne for Forskel og Tid slet ikke bliver bruger ??? hvorfor ikke ?

Tror jeg har fundet en løsning (http://www.brovang.net/delphi/kilde/format.html) :)

procedure Txit.TimerTimer(Sender: TObject);
var
  C: Cardinal;
begin
  C := GetTickCount - Tid;
  if C >= Forskel then
  begin
    timer.Enabled := False;
  Close;
  end
  else
  begin
    xit.lbl.caption := Format('%u dage %u timer %u minutter %u sekunder %u milisekunder',
    [C div (1000*60*60*24), C div (1000*60*60) mod 24, (C div (1000*60)) mod 60, (C div 1000) mod 60, C mod 1000]);
  end;

bruger=brugt... SprogSpade ;-)

tjae det duer sikkert også... men det er ikke de linier vi skal konsentrere os om... erstattede lige

    xit.lbl.caption := Format('%u dage %u timer %u minutter %u sekunder %u milisekunder',
    [C div (1000*60*60*24), C div (1000*60*60) mod 24, (C div (1000*60)) mod 60, (C div 1000) mod 60, C mod 1000]);

Med en simpel

Close;

og nej der skete ingenting !!!

Det kunne jo være at forskel er sat til for lidt! :)

Det er jo milisekunder, så prøv en gang at sætte den til 10000!

Jeg skal også nok hjælpe dig i dit andet spørgsmål... Hende den dejlige var bare på besøg i går, så der var vigtigere og sjovere ting at tage sig til end Eksperten! ;)

Den bliver defineret af en tekstboks og jeg har prøvet en højere værdi...

Hmm... Det virker hos mig!

øhhh har lige sat dette ind i en button for at se om det virkede... det gør det ikke:

  xit.lbl.caption := Format('%d dage %d timer %d minutter %d sekunder %d milisekunder',
    [C div (1000*60*60*24), C div (1000*60*60) mod 24, (C div (1000*60)) mod 60, (C div 1000) mod 60, C mod 1000]);

Giver den fejl eller hvad?

Nej bare ikke noget output...

Jeg er gået lidt væk fra denne løsning... men hvis det forslag du har givet til "Ur som sekunder" virker så får du også disse 30 point...

Det har jeg da lavet et indlæg i...
Alt kode er postet... Kan godt smide det op på min server, hvis du gerne vil hente koden... Ellers kan jeg sende den til dig! ;)

Hermandsen> Giver du smide et SVAR så jeg kan give point :)

Svar! :)