![]() |
Moin MadMason,
Zitat:
|
Zitat:
|
Zitat:
MfG Florian :hi: |
Delphi-Quellcode:
Da meckert er undeclared identifier: 'name'
procedure TForm1.TimerProc(Sender: TObject);
begin label1.Caption:=Sender.name; end;
Delphi-Quellcode:
Oder liegt da irgendwo der Hase im Pfeffer begraben? Oder wars der Hund? :mrgreen:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer; begin for i:=0 to 9999 do begin setlength(Timer, length(Timer)+1); Timer[high(Timer)]:=TTimer.create(form1); Timer[high(Timer)].Name:='Timer'+inttostr(high(Timer)); Timer[high(Timer)].interval:=random(10000)+1; Timer[high(Timer)].OnTimer:=TimerProc; end; end; |
Probier mal:
Delphi-Quellcode:
label1.Caption:=(Sender as TTimer).Name;
|
Das klappt schonmal ...
Leider kann ich nur um die 2500 Timer erstellen...beim compilieren kommt: --------------------------- Debugger Exception Notification --------------------------- Project Project1.exe raised exception class EOutOfResources with message 'Not enough timers available'. Process stopped. Use Step or Run to continue. --------------------------- OK Help --------------------------- Beim ausführen der exe kommt 'Not enough Timers available' Weiß jemand was das soll? Ich habe die Systemresourcen anzeigen lassen mit dem Windowstool, der zeigt noch über 80% verfügbar an. Die CPU-Auslastung ist bis dahin aber nicht erwähnenswert. (Athlon 1700+//256 MB RAM ) |
Was für ein OS?
|
win 98
|
Jupp. Windows98 gehen schnell mal die Ressourcen aus. Zu den Ressourcen zählen auch die verfügbaren Handles und ähnliches.
|
Wenn ich mich nicht täusche, sind bei einer alten Delphi-Version, weiss nicht welche, nur 6 Timer möglich. Hab ich mal wo aufgeschnappt, kann ich aber nicht zu 100% sagen.
Welche Delphi-Version hast du? mfg Daniel |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz