---
title: "Två frågor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27882-två-frågor"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "gundeman"
published: "2001-02-04T18:54:00.000Z"
updated: "2001-02-06T09:46:00.000Z"
replies: 2
views: 370
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27882-två-frågor"
---

# Två frågor

## #1 — gundeman, 2001-02-04T18:54Z

1)Jag vill göra en en procent räknare som först skriver ut 0% i en label och sen ökar med en procent i sekunden tills den når hundra.
2)Om man har tre shape objekt som från början är osynliga och efter en sekund skall den första bli synlig och efter två sekunder den andra osv tills alla tre är synliga sen skall proceduren börja om. Jag har lyckats göra detta med två objekt, men inte fler. Jag vet att man kan använda en timer per objekt, men vill helst slippa detta.

Permalänk: https://www.webforum.nu/p/27882

## #2 — Alpha II, 2001-02-04T19:43Z

1)
Deklarera först en integer variabel.
Lägg sedan till en Timer.
I onTimer skriver do följande kod:

Label1.caption := variabel+'%';
variabel := variabel + 1;

Permalänk: https://www.webforum.nu/p/400617

## #3 — svampträsk, 2001-02-06T09:46Z

eller...

sätt timer intervallet till 1000.

1\.
OnTimer...
var hej: integer;
begin
label1.Caption := IntToStr(hej) + '%';
Inc(hej);
end;

2\.
OnTimer
var hej: integer;
begin
Inc(hej);
case hej of
1: shape1.visible := True;
2: shape2.visible := True;
3: shape3.visible := True;
end;
if hej \> 3 then timer1.enabled := false;
end;

Permalänk: https://www.webforum.nu/p/400618

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27882-två-frågor