Procenty

0

Siema!!!
Mam pytanie dotyczące procentów: Jak wyświtlić setne części procenta??
Próbowałem to sam zrobić ale mi nie wyszło, próbowałem z takim kodem:

label1.text:= currtostr(liczba1 / liczba2);

Proszę o pomoc
Dzięki za ewentualne odpowiedzi!!!

0

ja to tak zrobiłem:

var liczba:real;procent,promil,jednasetnaproc:integer;
begin
 liczba:=ilezrobiono/ilemabyc;
 procent:=trunc(liczba*100); // 1/100 - procent
 promil:=trunc((liczba-(procent/100))*10000); // 1/10 - procenta
 jednasetnaproc:=trunc((liczba-(procent/100)-(promil/10000))*1000000); // 1/1000 procenta
end;
0

zwieksz sobie po prostu normalne wyliczanie procentow, np zamiast 100 daj 100 00
potem dzielisz przez 100
i zapisujesz wynikowy real, zaokraglisz poprzez roundto i bedzie dobrze :)

0

Hmm, jeśli chodzi tylko o wyświetlenie w polu tekstowym
to jest taka funkcja jak Format()
W helpie Delphi jest dokładny opis parametrów

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0