Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
durchaus.
...bei neuen Problemen, die dabei auftreten, melde ich mich dann wieder :mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
Hi Luckie, so hab ich es auch gedacht.
Geht das bei ner Sache, die ca. 10 min meinen Rechner auslastet nicht derb auf die Performance, mit dem Processmessages?
Und vor allem, auch wenn es nicht auf die Leistung geht, wenn die einzelnen Schleifendurchgänge aber länger sind als "inc(i)", dann ist die Abfrage nicht oft genug. Die Thread kann man, so hab ich es verstanden (aber noch nicht...
Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
was verstehst du unter "nimmt es"? Es läuft bei mir auch, nur kommt nie Stopp, weil die wahrscheinlichkeit, dass die abfrage kommt, wenn es 10000 - und zwar genau 10000 - ist ist so klein, dass es bei mir noch nie der fall war, sondern der counter einfach immer weiter ging...
Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
Der Luckie wird das auch hier lesen ;)
Das gleiche Thema hatten wir schonmal, da ginge es um eine Uhrzeit zu der was gestoppt werden sollte. >= ist auf jeden Fall besser.
PS: Der Rechner ist nicht wirklich schnell, war eher ironisch, als ich meinte, dass er sogar so schnell ist, dass er das mit dem =10000 garnicht mitbekommt. (XP2000+)
Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
Das hört sich doch sehr gut an. Sobald ich es durch habe, werde ich mich mal wieder melden... :wink:
ICh habe ja schon mal kurz reingeschaut, und grade was zu meckern:
procedure TForm1.UpdateLVCaption(Index, Count: Integer);
begin
Listview1.Items.SubItems := 'Position: ' + IntToStr(Count);
if Count >= 10000 then //<-- wenn da nur "=" steht, rennt mein schneller Rechner drüber weg,...
Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
@neo: Ich hatte danach gesucht, aber 199 (oder so) Treffer motivieren nicht, weiter zu suchen
@billa: werde ich machen
Forum: Sonstige Fragen zu Delphi
Delphi
by nailor,
4. Sep 2003
Stellt euch mal vor, ich hätte ein Programm, das macht:
procedure TForm1.Button1Click(Sender: TObject);
var i: byte;
begin
while true do
begin
inc(i);
caption := inttostr(i);
end;