Delphi-Quellcode:
type
TDataTyp=record
ID:integer;
Bezeichner:string[100];
ByteCount:Byte;
Wert:Double;
Formel:string[50];
Einheit:string[10];
max,min:String[50];
Beschreibung:string[100];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
daten : array of TDataTyp;
i : word;
begin
// SetLength(daten,650); // besser
for i := 0 to 649 do
begin
SetLength(daten,i+1); // schlechter
daten[i].ID := i;
daten[i].ByteCount := 255;
daten[i].Wert := 999999999;
FillChar(daten[i].Bezeichner,100,char('s'));
FillChar(daten[i].Beschreibung,100,char('s'));
FillChar(daten[i].min,50,char('s'));
FillChar(daten[i].max,50,char('s'));
FillChar(daten[i].Bezeichner,10,char('s'));
end;
caption := daten[500].Bezeichner;
end;
ich geh jetzt davon mal aus das du es ähnlich hast, probier dennoch mal diesen code bei dir
eigendlich dürfte die grösse nicht ansteigen, da du ja schon angegeben hast wie gross der record ist ( beschränkung bei strings )