Einzelnen Beitrag anzeigen

Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#10

Re: 392Byte * 610 Datensätze = 6MB???

  Alt 18. Jul 2003, 15:45
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 )
  Mit Zitat antworten Zitat