Array of TPanel sortieren

[erich.wanker]

@Delphi.Narium ... es geht um ein responsive-Design-Ding ... ich erstelle zur designtime einfach panels (mit all ihren funktionen) ... und zur laufzeit werden die positionen der panels anhand des Endgerätes optimal am Bildschirm verteilt...

@Uwe Raabe ... Der "tag"-Wert wird bei den panels auf dem TForm zur Designtime gesetzt..

@TiGü ... Genau das war der Fehler



Jetzt hab ich nur noch ein kleines Problem

Hab gerade einen Effekt gemerkt:

Wenn 2 Panels zur Designtime auf der gleichen "top"-position sind , werden alle beide via "If Components[i].ClassName = 'TPanel'" zwar gefunden ....

aber in der nachfolgenden schleife wird nur ein Panel gefunden und zugeweisen .. das 2 (oder mehrere auf der gleichen top-position) gehen verloren ..

Delphi-Quellcode:

 for i := 0 to meine_panels_anzahl do // Alle Temp-Panels checken und niedrigsten wert finden
    begin
      if temp_panels[i].Top = niedrigster_wert then
      begin
        meine_panels[x] := temp_panels[i]; 
      end;

Solange alle Panels in der Designtime unterschiedliche Top-Positionen haben - funktionierts

[Uwe Raabe]

Hier ist definitiv was falsch!

Delphi-Quellcode:

for i := 0 to 200 do
  begin
   meine_panels[i] := TPanels.Create(self);
   temp_panels[i] := TPanels.Create(self);
  end;

Die erzeugten temp_panels sind mit Sicherheit nicht gewollt.

[erich.wanker]

Hallo Uwe ..

hab die Zeilen komplett gelöscht ... und es funktioniert immer noch

Ich hab auch die Zeilen im "Form.OnClose" gelöscht ..

Delphi-Quellcode:

for i := 0 to 200 do
  begin
   meine_panels[i] := TPanels.free;
   temp_panels[i] := TPanels.free;
  end;