Verständnisproblem zur Größenangabe von Array

Bruce · Beiträge: 80

Hallo!
Es funktioniert zwar, aber ich verstehe nicht warum

:
In meinem Programm kann der Anwender Buttons per Drag and Drop auf eine Grafik ziehen. Die Buttons werden dynamisch per Array erstellt.

Da ich noch mit Delphi3 arbeite und das keine dynamischen Arrays kennt, muss ich ein statisches benutzen.

markieren

Delphi-Quelltext

1:	BZiel : ARRAY[1..10] OF TFlatButton;

Wenn ich das Array so deklariere, dann sollte da doch "Platz" sein für 10 Buttons, oder?
Ich kann aber ohne Probleme mehr als 10 Buttons erstellen zur Laufzeit. Ich hatte erwartet das irgendeine Fehlermeldung kommt, weil das Array "überläuft". Da nichts passiert meine Frage: Welchen Sinn hat denn dann die Angabe überhaupt und was kann passieren wenn die überschritten wird?

Gausi · Verfasst: So 04.01.04 21:13

Kann sein, dass ich mich hier um Kopf und Kragen rede, aber vielleicht folgendes:

Die Array-Deklaration reserviert im Speicher ausreichend Platz für die Daten der 10 Buttons, z.b. 5Bytes pro Button (keine Ahnung, wieviele es sind). Vereinfacht steht dann Button1 an der Speicheradresse 1 bis 5, der zweite dann an 6-10, der letzte dann an 46-50. Der elfte wird dann einfach an die Adresse 51-55 geschrieben. Es kann aber passieren, dass da schon andre Daten drin stehen. Die werden dann überschrieben und sind weg.

Hoffe, das ist soweit richtig. Bitte korrigiert mich, wenn ich hier totalen Müll geschrieben habe ;-)

_________________
We are, we were and will not be.

umpani · Beiträge: 389

Um die Frage zu beantworten müßtest du den Code posten, mit dem du die Buttons zur Laufzeit erstellst.

Gruß Umpani

_________________
Lernen, ohne zu denken, ist eitel; denken, ohne zu lernen, ist gefährlich. Konfuzius

Bruce · Beiträge: 80

Hast recht

So erstell ich die:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.ZieleMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
BZieleControl := BZieleControl+1;
BZieleNr := BZieleControl;
GetCursorPos(mouseposition);
mouseposition := Form1.ScreenToClient(mouseposition);
If (Mouseposition.x > 630) OR (Mouseposition.y < 64) then
begin
BzieleControl := BZieleControl -1;
exit;
end
else
BZiel[BZieleNr] := TFlatButton.Create(Form1);
BZiel[BZieleNr].Parent := Form1;
BZiel[BZieleNr].Tag := BZieleNr;
BZiel[BZieleNr].Left := mouseposition.x-12;
BZiel[BZieleNr].Top := mouseposition.y-12;
BZiel[BZieleNr].Color := clred;
BZiel[BZieleNr].ColorBorder := $FFFFFFFF;
BZiel[BZieleNr].ColorDown := clred;
BZiel[BZieleNr].ColorFocused := clred;
BZiel[BZieleNr].ColorHighLight := $FFFFFFFF;
BZiel[BZieleNr].ColorShadow := $FFFFFFFF;
BZiel[BZieleNr].OnMouseDown := ZielPunktMouseDown;
BZiel[BZieleNr].OnMouseMove := ZielPunktMouseMove;
BZiel[BZieleNr].OnMouseUp := ZielPunktMouseUp;
Ziele.Color := clred;
Ziele.ColorDown := clred;
Ziele.ColorFocused := clred;
Form5.Show;
end;

jaenicke · Verfasst: Mi 07.01.04 14:41 Titel: ???

Hallo!

Also ich hab Deinen Code ausprobiert! Bei mir KOMMT da eine Fehlermeldung. Ich nehme mal an, dass bei Dir BZieleNr gar nicht über 10 kommt, weil BZieleControl zwischenzeitlich wieder verringert wird.

Setz mal an die Stelle des Aufrufs des Kontruktors (BZiel[BZieleNr] := TFlatButton.Create(Form1)) einen Haltepunkt und sieh mal nach, welchen Wert BZieleNr hat.
Du kannst ohne Probleme an die selbe Position des arrays mehrmals einen neuen Button erzeugen, auf den alten kannst Du dann nur nicht mehr zugreifen.

Ach so: Du könntest auch einfach mal alle Buttons im array einfärben, dann wirst Du vermutlich nicht alle erreichen, und es wird in Deiner Schleife zum Einfärben dann bei einem Wert über 10 ein Fehler kommen.

Wenn bei dem Haltepunkt bei Dir tatsächlich Werte über 10 auftauchen, vergiss alles, was ich bisher gesagt habe. :wink:

Ach so: Mit Delphi 3 hab ich das allerdings nicht probiert...

MfG,
S.J.

Bruce · Beiträge: 80

Hi jaenicke!

Seltsam, ich krieg keinen Fehler beim Erstellen der Buttons. Ich kann ohne Probleme 15 Buttons erstellen und auch jeden einzeln ansprechen und verschieben.
Hab eben mal in dem Formular das nach dem Erzeugen aufgerufen wird den Wert von BZieleNr anzeigen lassen. BZieleNr hatte dann auch die Werte 11, 12...15. Muss auch so sein, denn BZieleControl wird nur verringert, wenn man die Maustaste ausserhalb des gewünschten Bereichs
losläßt, aber dann wird ja auch kein Button erzeugt.

Da ich die Positionen in einer Datei abspeichere, stürzt allerdings beim Wiedereinlesen der Daten das Programm ab. Da funktioniert das wohl mit der Arraygröße.

Inzwischen frage ich vor dem Erstellen den Wert von BZieleControl ab und breche ab wenn > 10. Damit bin ich dann auf der sicheren Seite. Aber verstehen würd ichs schon gern.

Gruß, Bruce

Brueggendiek · Beiträge: 304 Win 98, Win98SE, Win XP Home D5 Std

Hallo Bruce!

Normalerweise prüft Delphi die Arraygrenzen nicht. Damit kannst Du bei einem Array von 1 bis 10 auch auf das 256. Element zugreifen. Da liegen aber dann andere Variablen und der Schreibzugriff verursacht Probleme, die dann schwer zu finden sind: "warum verändert sich der Wert einer Variablen von selber?"

Es gibt aber eine Option, die Indexprüfung einzuschalten. Dann gibbet keinen Zugriff mehr, sondern 'ne Exeption. Das ist normalerweise ausgeschaltet, weil das Prüfen der Indizes relativ viel Code erzeugt und man bei sauberer Programmierung die fehlerhaften Zugriffe vermeidet (in der Suchschleife eben nicht nur den Suchbegriff, sondern auf Arraygrenzen prüfen - falls nichts gefunden wird).

Gruß

Dietmar Brüggendiek

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme