Entwickler-Ecke :: Thema anzeigen - Array, dynamisch, 2-dimensional, Fehler bei Close/ Erledigt

Adrian - Sa 16.08.03 18:45
Titel: Array, dynamisch, 2-dimensional, Fehler bei Close/ Erledigt

Servus!

Ich will zur Laufzeit im unteren Bildschirmteil 4 Zeilen mit je 7 Labels erstellen. Dazu verwende ich ein 2-dimensionales, dynamisches Array, so wie es in Peter Lustigs Tutorial erläutert wird. Leider meint mein Computer, daß ich da nicht alles richtig gemacht habe, denn beim Beenden meines Programms erhalte ich jedesmal die Fehlermeldung "Access violation at address... Write of Address..." Meine Vermutung geht dahin, daß die Behandlung des 2-dimensionalen dynamischen Arrays nicht sauber ist - wenn ich es auf 1-dimensional umstelle, funktioniert's - und möchte euch um Hilfe und Tipps fragen.

Dazu ein gekürzter Programmauszug:

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:

unit Messen;

var
  Form1: TForm1;
  Temperatur_Label: Array of Array of TLabel;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i,j: Integer;
begin
  SetLength(Temperatur_Label,8,5);
  for i:=1 to 4 do
  begin
    for j:=1 to 7 do
    begin
      Temperatur_Label[i,j]:=TLabel.Create(Form1);
      with Temperatur_Label[i,j] do
      begin
        Parent:=Form1;
        Left:=(j-1)*150+15;
        Top:=i*50+420;
        Font.Style:=[fsBold];
        Name:='Temperatur_Label'+IntToStr(i)+IntToStr(j);
        Caption:='Kanal '+IntToStr(i)+'.'+IntToStr(j);
      end;
    end;
  end;
Close;
end;

end.

Gruß,
Adrian

Moderiert von Tino: Delphi-Tags hinzugefügt.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!