Performance-Optimierung

[VkPenguin]

Das ist ja der Teil, den ich nicht so wirklich verstanden habe. Aber hier war es mit der Begründung

Zitat:

Da ScanLine einen Zeiger erwartet

so, also hab ich es ersteinmal übernommen, ich dachte vielleicht wird es mir ja später dann dadurch klar..

Fehlermeldung an makierter Stelle:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Bubbelzmain.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 004ABEC7 in Modul 'Bubbelzmain.exe'. Schreiben von Adresse 004445E6' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Aber wenn ich diese Zeile an den Anfang schiebe funktioniert es, dafür erhalte ich den Fehler dann bei der If... Stelle. Und genau das meinte ich ja, das kann ich mir nicht erklären..

[Bummi]

Ich tue mir schwer in Deinem Code etwas mir bekanntes zu entdecken ...
Vielleicht findest Du in meinen Beispielen etwas was Dir bei Dir bekannt vor kommt.

Delphi-Quellcode:

type
  pRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = ARRAY[0..$effffff] OF TRGBTriple;
  pRGBQuadArray = ^TRGBQuadArray;
  TRGBQuadArray = ARRAY[0..$effffff] OF TRGBQuad;



Procedure InvertBitMap24(bmp:TBitMap);
CONST
  PixelCountMax = MaxInt / 3;

var
  pscanLine : pRGBTripleArray;
  x,y:Integer;
begin
    for Y := 0 to bmp.Height -1 do
     begin
         pscanLine := bmp.Scanline[y];
         for x := 0 to bmp.Width -1 do
           begin
           pscanLine[x].rgbtBlue   := pscanLine[x].rgbtBlue XOR 255;
           pscanLine[x].rgbtGreen   := pscanLine[x].rgbtGreen XOR 255;
           pscanLine[x].rgbtRed   := pscanLine[x].rgbtRed XOR 255;
           end;
     end;
end;

Procedure InvertBitMap32(bmp:TBitMap);
CONST
  PixelCountMax = MaxInt / 3;

var
  pscanLine : pRGBQuadArray;
  x,y:Integer;
begin
    for Y := 0 to bmp.Height -1 do
     begin
         pscanLine := bmp.Scanline[y];
         for x := 0 to bmp.Width -1 do
           begin
           pscanLine[x].rgbBlue   := pscanLine[x].rgbBlue XOR 255;
           pscanLine[x].rgbGreen   := pscanLine[x].rgbGreen XOR 255;
           pscanLine[x].rgbRed   := pscanLine[x].rgbRed XOR 255;
           end;
     end;
end;

Procedure InvertBitMap(bmp:TBitMap);
begin
  if bmp.PixelFormat=pf32Bit then  InvertBitMap32(bmp)
  else if bmp.PixelFormat=pf24Bit then  InvertBitMap24(bmp);
end;

[VkPenguin]

**

Danke euch beiden. KarstenK, Du hattest recht, an der Stelle fehlte was. Und Bummi, danke Deines Beispiels hab ich auch 1) verstanden was fehlte und 2) verstanden wie das Scanlineprinzip funktioniert. Jetzt gehts, ich hoffe den Rest des Programms kann ich nun auch umbauen. Aber dieser Teil ist jetzt schon einmal viel schneller als vorher.

*Edit*: Ach so, was war denn hiermit...?

Zitat:

Und zu dem Inline: Verstehe ich es richtig, dass es also die Programmgeschwindigkeit erhöht, weil der PC dann nicht "hin und her springen" muss? Aber warum macht man das dann nicht immer? Die Datei wird vielleicht ein bisschen größer, aber soviel kann das doch nicht ausmachen, oder?

[Bummi]

http://docs.embarcadero.com/products...tions_xml.html

[p80286]

Auch wenn es etwas OT wird, aus der D7-Hilfe:

Zitat:

Das reservierte Wort inline und die Direktive assembler werden aus Gründen der Abwärtskompatibilität beibehalten. Sie haben keine Auswirkungen auf den Compiler.

Ab wann steht Inline denn in der o.g. angesprochenen Art zur Verfügung?

Gruß
K-H

[TiGü]

Mal OT, aber:
http://woerter.germanblogs.de/archiv...berholspur.htm

[VkPenguin]

Bin nun mit allem fertig geworden. Es brauch zwar immer noch ein Weilchen für die Berechnung, aber dank eurer Hilfe ist es um gut das zehnfache schneller

Ein Problem habe ich dabei aber noch: Ich habe nun eine Variable (Boolean), die an vielen Stellen des Programms ihren Wert verändern kann. Falls der Wert sich ändert, soll eine Procedure aufgerufen werden. Ich könnte natürlich einfach hinter jede Stelle an der das Passiert eine Abfrage schreiben, aber bei Buttons z.B. ist es ja auch nicht nötig, selbst eine Abfrage nach einen OnKlick-Event oder ähnlichem einzufügen. Gibt es sowas? Habe bereits danach gesucht, aber nichts gefunden - wenn man nicht weiß, wie es heißt...