OnChange einer Trackbar löst AV aus

[Nikolas]

Hallo miteinander.

Ich habe hier ein Problem, bei dem ich leider nicht mehr weiterkomme. In einem Programm habe ich eine Funktion, der ich drei Integer übergeben will. Da es wichtig ist, diese Werte häufig zu verändern, habe ich drei Trackbars benutzt und wollte nun im Onchange diese Funktion ausführen lassen. Zusätzlich habe ich einen Button der diese Funktion auch aufruft und dabei die Positionen der Trackbars übergibt. Das funktioniert wunderbar, nur wenn ich diese Funktion mit den gleichen Argumenten im Onchange aufrufen will, bekomme ich gleich mehrere AVs hintereinander.

Delphi-Quellcode:

procedure TFprob.Button1Click(Sender: TObject);
begin
draw(veg,tbstart.Position,tbstep.Position,tbshift.Position,img); // Das funktioniert
end;

Delphi-Quellcode:

procedure TFprob.tbstepChange(Sender: TObject);
begin
draw(veg,tbstart.Position,tbstep.Position,tbshift.Position,img); // Das leider nicht
lstep.Caption:= inttostr(tbstep.Position); 
end;

Hat da jemand eine Ahnung, warum das nicht funktioniert?

[s-off]

Hallo,

hast Du mal den Debugger bemüht, um zu schauen, an welcher Stelle es genau knallt?
Interessant wäre der Code aus der Funktion 'draw'.

[Nikolas]

Zitat:

hast Du mal den Debugger bemüht, um zu schauen, an welcher Stelle es genau knallt?

Ja, wobei das nicht viel gebracht hat.

Delphi-Quellcode:

procedure TFprob.tbstepChange(Sender: TObject);
begin
draw(veg,tbstart.Position,tbstep.Position,tbshift.Position,img); // Das leider nicht
lstep.Caption:= inttostr(tbstep.Position);
end; // <-- Laut Delphiwird die AV von diesem end ausgelöst.

An der Funktion selbst kann es eigentlich nicht liegen, da der Code, wenn er im Button.CLick aufgerufen wird, keine Probleme macht.

[s-off]

Hmm, tut mir leid, da weiss ich nicht weiter :?

[Muetze1]

... und du bist dir sicher, das lstep nicht NIL ist?

[Nikolas]

{ Was meinst du? Diese Eigenschaft kenne ich nicht und F1 kann mir auch nichts darüber sagen. }

Bitte nicht weiter beachten...

[s-off]

Zitat:

Zitat von Toxman

Was meinst du? Diese Eigenschaft kenne ich nicht und F1 kann mir auch nichts darüber sagen.

Such mal bei 'Zeigern'.

Ich denke, das lstep ein Label ist, oder?

[Nikolas]

Zitat:

Ich denke, das lstep ein Label ist, oder?

Sehr peinlich. Ja Klar. Ich habe gedacht er meint eine Eigenschaft der Trackbars :duck:

Aber daran kann es nicht liegen, da ich vorhin auch diese Zeile auskommentiert hatte.

[Hawkeye219]

Hallo Nikolas,

änderst Du in der draw-Routine die Position einer TrackBar (in diesem Fall tbStep)?
Falls ja, dann dürfte es zu rekursiven Aufrufen der Change-Routine kommen.
Jedenfalls so lange bis der Speicher voll ist...

Gruß Hawkeye

[s-off]

:wink:

Wirkt sich das OnChange-Ereignis auf irgendwelche Deiner Parameter aus, veg oder img?

[Nikolas]

Nein, sowas ist es auch nicht. Hier mal der passende Code:

Delphi-Quellcode:

procedure TFprob.Draw(var Aveg: Tvegenere; start,step,shift: integer; img: Timage);
var
w,h: integer;
dx: real;
lochweite: real;
i: integer;
x1: integer;
max: real;
maxh: integer;
dy: real;
s: real;
alist: array[1..26] of real;
str: string;
j: integer;
o: integer;
begin
w:= img.Width;
h:= img.Height;



with img.Canvas do
begin
brush.Style:=bssolid;
brush.Color:= clwhite;
pen.Color:= clwhite;
rectangle(0,0,w,h);

pen.Color:=clblack;
pen.Width:=2;

lochweite := 3;
dx:= (w-40-round(26*lochweite) )/26; // Breite der Säulen


// Einzeichnen der Verteilung aus dem Text:



// Erstellung einer Liste für die Verteilung jedes step.ten Buchstaben
// Liste wird gelöscht:
for i:=1 to 26 do
alist[i]:=0;

str:= veg.getcode;

i:=start;
// Die Liste wird erstellt:
while i<=length(str) do
begin
o:=ord(upcase(str[i]))-ord('A')+1;
alist[o]:=alist[o]+1;
inc(i,step);                     
end;



// Der häufigste Buchstabe wird gesucht:
max:=0;
for i:=1 to 26 do
if alist[i]>max then max:=alist[i];



// Berechnung der Maße der Säulen;
try
maxh:=h-60; // Höhe der größten Säule
dy:= maxh/max;
except
// Eat this Exception;
exit;
end;


// Säulen werden gezeichnet
for i:=1 to 26 do
        begin
        pen.Color:=clblack;
        Brush.Color:=clblack;
        brush.style:=bsDiagCross;

        j:= i+shift;
        if j>26 then dec(j,26);

        s:= alist[j]*dy; // Höhe der Säule


        x1:=20+round((i-1)*(dx+lochweite));
        rectangle(rect(x1,round(h-(s+30)),round(x1+dx),round(h-30)));


        str:=chr(j+ord('A')-1);
        textout(x1+3,h-20,str);
        end;



// Die Säulenhöhe wird für den Normschatten neu errechnet
// Der häufigste Buchstabe wird gesucht:
max:=0;
for i:=1 to 26 do
if list[i]>max then max:=list[i];

// Berechnung der Maße der Säulen;
try
maxh:=h-60; // Höhe der größten Säule
dy:= maxh/max;
except
exit;
end;

// Normschatten
if cbshadow.checked then
begin
for i:=1 to 26 do
        begin
        pen.Width:=3;
        pen.Color:=clred;
        brush.Color:=clred;
        brush.style:=bsHorizontal; // Nur Rahmen

        s:= list[i]*dy; // Höhe der Säule
        x1:=20+round((i-1)*(dx+lochweite));
        rectangle(rect(x1,round(h-(s+30)),round(x1+dx),round(h-30)));
        end;
end; // of shadow;


end; // of image.canvas

end;

// veg ist eine selbstgeschriebene Klasse und img ist ein TImage.

Insgesamt ist der Code Teil dieses Programms.

[Hawkeye219]

Ein Versuch:

Der übergebene Startwert ist 0, Du greifst hier

Delphi-Quellcode:

o:=ord(upcase(str[i]))-ord('A')+1;
alist[o]:=alist[o]+1;

auf das 0-te Zeichen im String zu, erhältst #0 und damit einen negativen Wert für die Variable o. Der Zugriff auf die Liste aList führt dann zum Absturz.

Gruß Hawkeye

[bastischo]

Klingt jetzt vllt sehr nach noob :wall: , aber wenn der fehler bei dem end; auftaucht, würde ich einfach mal eins end; dranhängen oder wegnehmen.
Hat bei mir bisher immer geklappt, weil ich irgendwo eins vergessen hatte, wie mir dann aufgefallen ist. :mrgreen:

[s-off]

Wenn ein end fehlen würde, dann würde bereits beim kompilieren gemeckert ;)

[Nikolas]

In der Funktion selbst kann eigentlich kein Fehler liegen, da ich mir per Showmessage einmal die Parameter angeschaut habe und dann die Draw Funktion im Button mit diesen Parametern aufgerufen habe, wobei es keine Probleme gab. Nur wenn ich die parameter nicht als ''0,1,0' sondern als 'tbshift.position,tbstart.position,...' übergebe, tritt der Fehler auf.

An einem end zu viel kann es auch nicht liegen, da hier nur zwei Befehle aufgerufen werden und keine fies verschachtelte Schleifenkonstruktion vorliegt.

[Hawkeye219]

Hallo,

wenn die Variable start den Wert 0 enthält, kann das zum beschriebenen Fehler führen (siehe meinen Beitrag #12).

Gruß Hawkeye

[Nikolas]

Die Trackbar hat aber einen Minimalwert von 1. Von da her kann es dieser Fehler nicht sein. Aber vielen Dank für deine Hilfe.

[omata]

Hallo Toxman,

habe mir mal deine Anwendung geladen und ausprobiert. Wenn ich deine auskommentierte draw-Zeile wieder reinnehme, dann habe ich keine Probleme. Ich habe allerdings deine try-except-Blöcke abgeschaltet, indem ich vorher einfach abfrage ob max größer Null ist.

Also, wann genau und mit welchen Einstellungen kommt bei dir eine AV?

MfG
Thorsten

PS: Bitte tu dir und dem rest der Welt einen Gefallen -> RÜCKE BITTE DEINEN CODE ORDENTLICH EIN!

[Nikolas]

Mit welchem Text hast du es ausprobiert? Ich habe es gerade noch mal mit dem Glocken-Text versucht und habe wieder AVs bekommen.
Zum Reproduzieren: Einfach mal die draw-Befehler im Onchange weglassen und dann die trackbars verschieben, danach auf den Zeichnen-Buton klichen. Bei mir funktioniert es wie ich es mir eigentlich gedacht hatte. Dann zur Abwechslung mal die Draws im Onchange ausführen lassen, und dann im Programm die Trackbars bewegen oder auch nur auf den Schieber klicken. Dann kommen bei mir die AVs.

Zitat:

PS: Bitte tu dir und dem rest der Welt einen Gefallen -> RÜCKE BITTE DEINEN CODE ORDENTLICH EIN!

Was meinst du denn damit? Bis jetzt hat sich noch niemand über meinen Code beklagt und ich halte mich so viel ich weiss an die gängigen Styleguide Regeln. Wo würdest du denn etwas anders machen?

[Sharky]

Hai Toxman,

es gehört ja eigentlich nicht zum Thema. Aber ich habe deinen Code mal duch meine (Jedi)Code-Formater gejagt und als Datei angehängt. Imho sollte das dem Borland Styleguide entsprechen.

Aber ansonsten sollte darüber in diesem Thread nicht diskutiert werden ;-)

[omata]

Hallo Toxman,

ich habe irgendeinen Text probiert.
Bist du wirklich sicher, dass es eine AV ist und nicht ein Gleitkommafehler? Wenn bei deiner max-Berechnung Null rauskommt, wird eine Fehlermeldung ausgelöst, die du in der Delphi-IDE siehst und mit F9 gehts weiter. Da du diesen Fehler mit try-except abfängst kommt dieser Fehler nicht wenn du die EXE direkt startest.

Also dein Programm funktioniert so weit recht gut. Schau bitte nochmal genau nach was da bei dir passiert. Bist du auch mal beim Debuggen mit F7 in deine Draw-Methode abgestiegen und hast dort Zeile für Zeile ausgeführt?


Was mir an deinem Code nicht gefällt?
Deine Zeilen sind alle links an den Rand geklatscht (auch schon die erste Ebene). Du rückst ja (manchmal) nicht mal bei einer Schleife ein. Was soll das für ein Styleguide sein?

@Sharky:
Sorry, wollte das Thema auch nur im Nebensatz mal erwähnen.
Ja, so sollte der Code formatiert werden - wunderschön.
Und ich hatte keinen roten Balken :roll:

Verwunderte Grüsse
Thorsten

[Hawkeye219]

Der Fehler tritt an der markierten Stelle auf:

Delphi-Quellcode:

while i<=length(str) do
begin
o:=ord(upcase(str[i]))-ord('A')+1;
alist[o]:=alist[o]+1;  // <<---- hier
inc(i,step);                     
end;

Du gehst davon aus, daß hier nur Buchstaben ankommen, was aber definitiv nicht der Fall ist. Damit schreibst du lustig im Speicher herum und zerstörst dabei wahrscheinlich den einen oder anderen Zeiger...

Gruß Hawkeye

[omata]

Ja, Hawkeye219 hat recht.

Man kann daran auch sehen, dass du (Toxman) deine Bereichsprüfung nicht eingeschaltet hast. (sehr böse, wie man hier sieht). Ich habe es auch nur mit Buchstaben getestet, dann geht auch alles.

Fehler gefunden, danke Hawkeye219.

[Nikolas]

Vielen Dank. :party:
So funktioniert es. In der Vegenere-Klasse gibt es eine Funktion die aus einem text alle NichtBuchstaben entfernt, und ich bin die ganze Zeit davon ausgegangen, dass ich beim Einlesen des Textes diese Funktion schon benutzt habe.
Jetzt versteh ich aber immer noch nicht, warum ich aber die ganze Zeit über den Zeichnen-Button benutzen konnte, ohne einen Fehler zu bekommen.

[Hawkeye219]

Bevor du dich jetzt allzu sehr auf die Funktion CleanText verläßt: ein "*" ist kein Buchstabe. :wink:

Gruß Hawkeye

[Nikolas]

Oh. Ich dachte das hatte ich schon entfernt. :oops: Ich weiss nicht mehr genau, warum das mal da reingeschrieben habe, vorgestern hatten wir einen Stromausfall und da wurde diese Änderung anscheinend nicht mehr gespeichert.
Vielen Dank für deine ausführliche Hilfe :thumb: