AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Mehrere erzeute Objekte in Schleife wieder löschen?
Thema durchsuchen
Ansicht
Themen-Optionen

Mehrere erzeute Objekte in Schleife wieder löschen?

Ein Thema von daywalker-dj-k · begonnen am 19. Mär 2004 · letzter Beitrag vom 19. Mär 2004
 
Dannyboy

Registriert seit: 4. Aug 2003
Ort: Delphi-Heaven
418 Beiträge
 
Delphi 7 Personal
 
#3

Re: Mehrere erzeute Objekte in Schleife wieder löschen?

  Alt 19. Mär 2004, 12:45
Hallo,
für unterschiedliche Edits benötigst Du unterschiedliche Instanzen à la Edit1, Edit2. ... EditN.
Momentan überschreibst Du immer wieder ein und das selbe Editfeld (MyEdit) Dies könnte auch
der Grund der Zugriffsverletzung sein, da hier der von der Instanz (MyEdit) benötigte Speicherplatz überschieben wird, bevor er freigegeben wurde!
Wir erstellen unterschiedliche Edits mal so:
Delphi-Quellcode:
 MyEdit1 := TEdit.Create(self); // EDIT NUMERO 1 !!!
 with MyEdit1 do
    begin
      Name := 'NewEditAuftragArt_' + IntToStr(intAuftragAnzahlEdits);
      Parent := Form1.ScrollBox1;
      Font.Size := 10;
      Width := 33;
      Left := 81;
      Top := 80 + ((intAuftragAnzahlEdits-1) * 80);
      Text := 'A';
      MaxLength := 1;
      OnKeyPress := AuftragArtCheck;
      OnEnter := AuftragAuftragErfassenEditOnEnter;
      OnChange := AuftragAuftragErfassenEditOnEnter;
     end;
  MyEdit2 := TEdit.Create(self);
// hier fängt edit 2 an!!!
  with MyEdit2 do // EDIT NUMERO 2 !!!
    begin
      Name := 'NewEditAuftragArtNr_' + IntToStr(intAuftragAnzahlEdits);
      Parent := Form1.ScrollBox1;
      Font.Size := 10;
      Width := 60;
      Left := 142;
      Top := 80 + ((intAuftragAnzahlEdits-1) * 80);
      Text := '';
      OnKeyPress := AuftragArtikel;
      OnEnter := AuftragAuftragErfassenEditOnEnter;
      OnChange := AuftragAuftragErfassenEditOnEnter;
     end;
So, und danach werden die Edits freigegeben mit: edit1.free und edit2.free.
Frage:
Warum machst Du Dir so'nen Stress mit dynamischen Edits? Warum nicht statisch?

Nachtrag:
Delphi-Quellcode:
//Sowas hier ...
   MyLabel := nil;
   MyEdit := nil;
   MyCheckBox := nil;
//...ersetze bitte durch
  MyLabel.free;
  MyEdit.free;
  MyCheckBox.free;
DANNYBOY
How much wood would a wood-chuck chuck if a wood-chuck would chuck wood?
Check this out.
DANNYBOY
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz