Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#24

Re: "nicht genügend arbeitspeicher verfügbar"

  Alt 31. Mai 2006, 18:20
Zitat von sECuRE:
ich habe gehört, dass es bei 10.000 liegt. Weiß aber nicht, warum das so sein soll oder woher die Behauptung kommt.
An dieser Zahl ist wirklich was dran. (auch bei WinXP)
Mein Testprogramm kann auch maximal 10000 Edit-Controls erzeugen und dann kommt die Fehlermeldung:
Win32-Fehler: Code 14
Wer's ausprobieren will:
Ein Formular mit einem Editfeld (Inhalt '1000') + ein Button:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   x : TEdit;
begin
   try
      for i := 1 to StrToInt(Edit1.text) do
      begin
         x := TEdit.Create(Self);

         x.Left := random(Self.Width);
         x.Top := random(Self.Height);
         x.Parent := Self;
         x.Visible := True;

         x.Text := IntToStr(Self.ControlCount) + '/'+IntToStr(x.Handle);
         Application.ProcessMessages;
      end;
   finally
      Edit1.BringToFront;
      Button1.BringToFront;
   end;
end;
Andreas
  Mit Zitat antworten Zitat