Timages löschen.

**simonko**

Wie kann man dynamisch erstellte images löschen?

ich hab

Delphi-Quellcode:

			   for i:=1 to anzahl do

      bild[i].free

krieg aber damit immer ein laufzeitfehler.

ich will alle bilder einfach vom form löschen, dass ich sie im nächsten zyklus wieder erstellen kann.

MFG

**freak4fun**

Hallo

,
vesuch mal

markieren

Delphi-Quellcode:

			  for i := 0 to anzahl - 1 do

     bild[i].free

MfG
freak

**simonko**

ich krieg ketzt zwar keine fehlermeldung mehr aber
die bilder verschwinden nicht vom form.

hab folgende prozedur:

markieren

Delphi-Quellcode:

			procedure cleanup;

var

   i  : integer;

begin

 for i:=0 to st-1 do

   begin

     form1.bild[i].free;

   end;

end;

**freak4fun**

Hallo

,
kannst du vielleicht mal posten, wie du deine bilder erstellst?

zusammenfalten · markieren

Delphi-Quellcode:

			Bild: Array[0..10] of TImage;

procedure TForm1.Button1Click(Sender: TObject);

var

  i: Integer;

begin

  Image1.Free;

  for i := 0 to 10 do

    Bild[i].Free;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  i: Integer;

begin

  for i := 0 to 10 do

    begin

      Bild[i] := TImage.Create(Form1);

      Bild[i].Parent := Form1;

      Bild[i].Left := i*50;

      Bild[i].Top := 10;

      Bild[i].Picture := Image1.Picture;

    end;

end;

MfG
freak

**simonko**

zusammenfalten · markieren

Delphi-Quellcode:

			  while (p<>nil) do

    begin

      s:=stacktostring(p,i);

      pfad:=s;

      form1.kortn[i]:= TImage.Create(form1);

      with form1.kortn[i] do

        begin

          Parent:=form1;

          Left:=100+(i*30);

          Top:=300;

          Width:=75;

          Height:=130;

          Picture.LoadFromFile('C:\'+pfad+'.JPG');

          knr:=strtoint(s);

          Tag:=knr;

          proportional:=true;

          onClick:=form1.myonclick;

        end;

      p:=p^.next;

      i:=i+1;

    end;

....

procedure cleanup;

var

   i  : integer;

begin

 for i:=0 to st-1 do

   begin

     form1.kortn[i].free;

   end;

end;

cleanup ruf ich dann von einer anderen prozedur auf.

**Manne**

Servus,
muss das nicht

markieren

Delphi-Quellcode:

			for i:=st-1 downto 0 do 

      bild[i].free

heißen?

Wo wird Cleanup aufgerufen?
Wenn es nur darum geht bei Programmende die Komponenten abzuraeumen, so erledigt das Delphi automatisch.
Dafuer ist der bei TImage.Create angegebene Owner zustaendig.

**sniper_w**

Also bei mir geht es wunderbaer. Ein Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  img:TImage;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 if Assigned(img) then

   FreeAndNil(img)

   else

   begin

     img := TImage.Create(nil);

     with img do

     begin

       Visible := False;

       Parent := Self;

       Picture.LoadFromFile('c:\test1.bmp');

       AutoSize := True;

       Top := 100;

       Left := 100;

       Visible := true;

     end;

   end;

end;

Timages löschen.

Timages löschen.

Re: Timages löschen.

Re: Timages löschen.

Re: Timages löschen.

Re: Timages löschen.

Re: Timages löschen.

Re: Timages löschen.

Re: Timages löschen.

Forumregeln

simonko Registriert seit: 2. Jun 2005 125 Beiträge	#1 Timages löschen. 18. Jul 2005, 11:02 Wie kann man dynamisch erstellte images löschen? ich hab markieren Delphi-Quellcode: for i:=1 to anzahl do bild[i].free krieg aber damit immer ein laufzeitfehler. ich will alle bilder einfach vom form löschen, dass ich sie im nächsten zyklus wieder erstellen kann. MFG
	Zitat

freak4fun Registriert seit: 22. Sep 2004 Ort: Hannover 1.807 Beiträge Delphi 10.2 Tokyo Starter	#2 Re: Timages löschen. 18. Jul 2005, 11:04 Hallo , vesuch mal markieren Delphi-Quellcode: for i := 0 to anzahl - 1 do bild[i].free MfG freak Christian IT: Schließen Sie bitte das Fenster. User: Die Tür auch? i++; // zaehler i um 1 erhoehen
	Zitat

simonko Registriert seit: 2. Jun 2005 125 Beiträge	#3 Re: Timages löschen. 18. Jul 2005, 12:46 ich krieg ketzt zwar keine fehlermeldung mehr aber die bilder verschwinden nicht vom form. hab folgende prozedur: markieren Delphi-Quellcode: procedure cleanup; var i : integer; begin for i:=0 to st-1 do begin form1.bild[i].free; end; end;
	Zitat

Manne Registriert seit: 8. Okt 2003 Ort: Hirrlingen 82 Beiträge Delphi 7 Personal	#6 Re: Timages löschen. 18. Jul 2005, 13:52 Servus, muss das nicht markieren Delphi-Quellcode: for i:=st-1 downto 0 do bild[i].free heißen? So 6 wie wir 5 gibt es keine 4 andere, denn wir 3 sind die 2 1sten
	Zitat

Robert Marquardt (Gast) n/a Beiträge	#7 Re: Timages löschen. 18. Jul 2005, 13:55 Wo wird Cleanup aufgerufen? Wenn es nur darum geht bei Programmende die Komponenten abzuraeumen, so erledigt das Delphi automatisch. Dafuer ist der bei TImage.Create angegebene Owner zustaendig.
	Zitat