AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Programm läuft eindeutig zu langsam

Ein Thema von Hallo_Thomas · begonnen am 1. Mai 2005 · letzter Beitrag vom 1. Mai 2005
Antwort Antwort
Seite 2 von 2     12   
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#11

Re: Prgramm läuft eindeutig zu langsam

  Alt 1. Mai 2005, 21:30
Die Bilder werden im Programmablauf sehr selten geladen, es müsste irgendwo am beim rechenablauf liegen
  Mit Zitat antworten Zitat
Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#12

Re: Prgramm läuft eindeutig zu langsam

  Alt 1. Mai 2005, 21:34
Wenn ich deinen Code nicht völlig missverstanden habe, sollte es etwa so gehen:
Delphi-Quellcode:
TForm1 = [...]
private
  BlueBit, YellowBit, PinkBit: TBitmap;

[...]

//OnCreate

  BlueBit := TBitmap.Create;
  BlueBit.LoadFromFile( ... );
  YellowBit :=
[...]

  if counter<=c637n then
  begin
    Form1.Image12.Picture := nil;
    Form1.Label12.Font.Color := clGreen;
    Form1.Label12.Caption := ''
  end;
  if counter=c637b then
  begin
    Form1.Image12.Picture.Draw(0, 0, BlueBit);
    Form1.Label12.Font.Color := cLWhite
  end;
[edit] Ok, dann vergiss meine Idee [/edit]
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#13

Re: Prgramm läuft eindeutig zu langsam

  Alt 1. Mai 2005, 21:45
Ich danke Dir, ich werd es bestimmt demnächst anwenden, ich werd aber erst mal die Grafiken löschen, mal sehen obs daran liegt.

Danke
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#14

Re: Prgramm läuft eindeutig zu langsam

  Alt 1. Mai 2005, 23:16
Dass Problem muss Hier Irgendwo liegen


Delphi-Quellcode:
begin
    Counter := 0;
    for c2227 := Form1.Anzeige.count-1 DownTo 0 do
begin
    if StrToInt(Form1.Anzeige.Items[c2227]) in [0..21,28..100] then
    Inc(Counter)
    else if StrToInt(Form1.Anzeige.Items[c2227]) in [22..27] then
    Counter := 0 ;
    Form1.Label12.Caption:= IntToStr(Counter) ;
end;
end;////////Hier werden die Daten aus der Listbox gezogen um im Label den Count darzustellen
Ich habe mal einen Screenschoot der Systemleistung angehangen,im ersen Teil hab ich mal so ca. aller 2 Sekunten einen Durchlauf gemacht, dann mal hintereinander weg, und dann wieder so ca. aller 2 Sekunden, man sieht ddort sehr gut wie immer mehr rechenleistung
benötigt wird!
Kann es sein dass die Berechnung aus einer Stringliste herraus schneller wäre?
Miniaturansicht angehängter Grafiken
screenshoot_660.jpg  
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#15

Re: Prgramm läuft eindeutig zu langsam

  Alt 1. Mai 2005, 23:27
Danke an alle,ich habs.


Form1.Anzeige.Items.BeginUpdate;
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#16

Re: Programm läuft eindeutig zu langsam

  Alt 1. Mai 2005, 23:33
Hab trotzdem noch mal eine Frage, wenn ich noch eine Stringlist/TStringliste zusätzlich einbaue um die Labels über diese zu berechnen und die Listbox nur zur Anzeige nutze, bringt mir das einen Performance Gewinn?
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz