Új hozzászólás Aktív témák

• #1708 Prego senior tag

  Új Válasz 2009-05-29 16:00:38 #1708

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Prego

  senior tag

  Asszem némi felvilágosításra szoroluk paraméterátadás terén

  Van egy tömböm, golobális változóként: Kepek: array of TImage;

  Amikor új képet húzok be a ScrollBoxba, akkor először lementi a képet a megfelelő mappába, majd, kiüriti a tömböt (letörli az összes addigi képet), és újra kipakolja őket.

  Ha a következőképpen hívom meg a törlést:

  procedure TForm2.EmptyArray (T: array of TImage);
  var i : Integer;
  begin
  for i := Low(T) to High(T) do
  begin
  T[i].Free;
  T[i] := nil;
  end;
  End;
  ...
  EmptyArray(Kepek);

  Akkor ugyan megjeleníti az új képeket, viszont úgy, hogy a már létező képek fölé rakja (itt ott kilóg az előző képek széle).

  Ha viszont úgy hívom meg hogy:

  procedure TForm2.EmptyArray;
  var i : Integer;
  begin
  for i := Low(Kepek) to High(Kepek) do
  begin
  Kepek[i].Free;
  Kepek[i] := nil;
  end;
  End;
  ...
  EmptyArray;

  Akkor minden szépen végbemegy.

  A baj az hogy nem csak egy képes tömböm van, és az első megoldás valamivel csinosabb lenne ...

Új hozzászólás Aktív témák