Hi,
damit ich die Dynamischen Arrays besser verstehe, habe ich mir ein beispielprogramm geschrieben mit dem ich lernen kann. Doch leider kommt immer ein kritischer Fehler wenn ich auf die Arrays zugreife.
Vllt könnte mir hier mal jemand kurz einen kleinen Schubser geben.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type bla =
record
a:Integer;
end;
var
Form1: TForm1;
MyArray:
Array of bla;
Temp1: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Temp1 := (high(MyArray) + 1);
Setlength(MyArray, Temp1);
MyArray[Temp1].a := Temp1;
label1.Caption := IntToStr(Temp1);
end;
end.
Mfg