Mam petelkę której zadaniem jest przesuwanie komponentu z lewej do prawej. Problem w tym, że forma jest duża i jak mam w petelce sleep(1) i tak trwa to za długo. Czy jeste sposób aby to jeszzce przyspieszyć?
... i jesze jedno pytanko:
Jak stworzyc jakis plik (dowolny) o okreslonej wielkośc np 1 MB?
a może se weź zmienną
I:=1 div 1000;
Sleep(I);
A nie możesz przyspieszyć przesuwania skacząc np o dwa punkty a nie o 1? I co to za pomysł, żeby w ogóle używać sleep!!
A nie możesz przyspieszyć przesuwania skacząc np o dwa punkty
Juz tak robiłem, ale wtedy komponent migai i miga tak że go prawie wcale nie widać.
A poza tym co to za grzech używaie Sleep?
A poza tym co to za grzech używaie Sleep?
Posluchaj/przeczytaj: Chcesz przyspieszyc procedure i uzywasz sleep... bardzo logiczne
<$---
Co do pliku, to wklep w TStringList 10241024 np 'q' i bedziesz mial
Albo:
var
F:file;
s:ansistring;
begin
SetLength(s,1048576);
AssignFile(F,'c:\a.dat');
Rewrite(F,1);
BlockWrite(F,s[1],1048576);
CloseFile(F);
end;
A poza tym co to za grzech używaie Sleep?
tak w Delphi używanie Sleep to grzech, lepiej użyj Timera
Juz tak robiłem, ale wtedy komponent migai i miga tak że go prawie wcale nie widać.
a może by tak w Form.OnCreate dać
Form.DoubleBuffered:=True
a może se weź zmienną
I:=1 div 1000;
Sleep(I);
[rotfl] [rotfl] [rotfl]
O matko, jak zdołałeś wpaść na tak genialny pomysł??? [glowa] Słow mi brakuje...
[dopisane]
W ogóle zastanawiam się, po kiego grzyba opóźnianie sleepem? Przecież na różnych komputerach forma będzie się przemieszczać ze skrajnie różnymi prędkościami, a sleep i tak temu nie zaradzi. Proponuję całość zrobić w oddzielnym wątku, a w najgorszym wypadku na timerze.
[code]if I(tu_operator_dzielenia_z_resztą)1000=0 then Sleep(1);[/code]
<font color="red">[</span><font color="blue">ADD</span><font color="red">]</span>
A kto tu mówi o ułamkowym Sleep??
// zerknij na drugiego posta, to się pośmiejesz razem ze mną :-D - ŁF
Chyba nie zrozumieliscie Łukasza: Sleep robi pętelki, a jak mozesz zrobic polowe procedury?
I ja dalej nie rozumiem po co ten sleep? Wywaj go to bedzie szybciej... :-)
// też mnie nie zrozumiałeś: 1 div 1000 = 1 div 100 = 1 div 2 = 0. Idiotyzmem jest dzielenie integera w oczekiwaniu, że dostanie się coś z przedziału (1,0). No i zapodanie sleep(1 div 1000) powala - przynajmniej mnie - na kolana. ;-( - ŁF
//OA, ale klapa [wstyd]
Może coś jak w tym :
http://4programmers.net/view_faq.php?id=209
Ale o czym tu dyskutowac!! Co jest szybsze niz Sleep(1)? Odpowiedz: BRAK SLEEP!!
A kto tu mówi o ułamkowym Sleep??
ja tak właśnie robie...
For I:=0 to count do
begin
//bla bla bla.....
If I mod 2=0 then Sleep(1);
end;
// jakim cudem udało Ci się coś dopisać, skoro wątek jest zablokowany?