Moin zusammen.
Ich steh' hier gerade vor einem großen Problem :
Code:
private
{ Private declarations }
Btn : array of TGlassButton;
Img : array of TImage;
public
{ Public declarations }
.
.
NumBtn : Integer; // höchste Button-Zahl
procedure TfrmMain.FormCreate(Sender: TObject);
var
P : array[0..511] of Char;
.
.
begin
.
.
.
// Btn ...
NumBtn := 15;
SetLength(Btn, NumBtn + 1);
SetLength(Img, NumBtn + 1);
.
.
procedure TfrmMain.FormClick(Sender: TObject);
begin
ShowMessage(IntToStr(NumBtn)); <---- hier kommt 14 (!!!!!) heraus
end;
ich habe mir eine Variable namens NumBtn als Integer definiert,
dieser wird im Ereignis OnCreate des Formulars der Wert 15 zugewiesen,
nun möchte ich im laufenden Programm über diesen Integer-Wert Button-Arrays behandeln,
nur leider ist NumBtn jetzt nur noch 14 !?
weise ich im OnCreate den Wert 14 oder 12 oder 16 zu, ist das Ergebnis von ShowMessage identisch.
Kennt jemand diesen kranken Sch...?
Bin für jede Idee dankbar.