Eindeutigen Name für Frame durch anhängen einer Nummer finden

[Peter-Pascal]

Hallo,

ihr kennt sicherlich das Problem, wenn man mehre gleiche Frames auf eine Form oder anderem Frame setzt, meldet Delphi einen Fehler, dass dieser Frame bereits existiert. Es benötigt einen eindeutigen Namen, den man durch anhängen einer Nummer erreicht. Soweit so gut, wenn Delphi auf einer Form Nummern vergibt für Komponenten, wie TEDit oder TLabel, dann füllt Delphi auch wieder die Lücken, die durch Löschen entstanden sind. Ich wollte es so machen, wie Delphi es macht, konnte es nicht finden oder habe den Code nicht begriffen. Weiß jemand wie Delphi die Nummerierung lückenlos schafft?

Mein Versuch:

Delphi-Quellcode:

function TFrameBuchenBank.findFreeNumber: integer;
var
  I,J,Zahlen: Integer;
  Frame: TFrameBuchenBankDetail;
  ZahlenArray: TArray<string>;
  Fund: boolean;
begin

  for I := 1 to ScrollBoxKontierZeilen.ComponentCount do
  begin

    ScrollBoxKontierZeilen.EnumObjects(
    function (aObject: TFMXObject) : TEnumProcResult
    var Anhalten: boolean;
    begin
      Anhalten:= false;
      if aObject is TFrameBuchenBankDetail then
      begin
        Frame:= aObject as TFrameBuchenBankDetail;
        Fund:= Frame.NameNr = I;
        Anhalten := Fund;
      end;
     if Anhalten
      then Result:= TEnumControlsResult.Stop
      else Result:= TEnumControlsResult.Continue
    end
    );

  if not Fund then exit(I)
  end;

  Result:= ScrollBoxKontierZeilen.ComponentCount + 1
end;

Auch da habe ich lange dran herumexperimentiert.

Danke für eure Mühe.
Gruß Peter

[Uwe Raabe]

Brauchst du denn die Namen für irgendetwas? Andernfalls kannst du auch einfach den Namen des Frames auf einen Leerstring setzen. Mehrere Komponenten ohne Namen sind nämlich erlaubt.

[Peter-Pascal]

Hallo Uwe,

danke für Deine Antwort.

Nein, die Namen brauche ich nicht.

Das heißt, ich könnte  Frame.Name := EmptyStr; setzen?
Mehrere sind erlaubt, schreibst Du, kannst Du ungefähr sagen wie viele?

Die Frames nehmen in einem zusammengesetzten Buchungssatz jeweils ein Konto entgegen. Ich wollte zwar keine Begrenzung einbauen, aber bei einer genügenden Anzahl, wäre es vermutlich die einfachste Variante.

Gruß Peter

[himitsu]

Ja.
Warum nicht := '';

Irgendwie verstehe ich nicht, warum jemand auf die Idee kommt diese blöde "Variable" zu benutzen.
(du willst nicht wissen wie viel Spaß es macht, wenn sie mal ausversehn verändert wurde)

Egal wieviele. (bis der Speicher überläuft)
Ein "Name" muß pro Owner "eindeutig" sein, wenn er gesetzt ist.

[Peter-Pascal]

Danke Himitsu,

wenn ich den Namen auf Leerstring setzen kann und dann nur der Speicher die Grenze ist, hilft es nicht nur, sondern vereinfacht die Sache kolossal.

Zitat:

Irgendwie verstehe ich nicht, warum jemand auf die Idee kommt diese blöde "Variable" zu benutzen.

Sieht schicker aus.

Zitat:

(du willst nicht wissen wie viel Spaß es macht, wenn sie mal ausversehn verändert wurde)

Doch das kann ich mir vorstellen, solange ich nicht Opfer bin. Ich weiß jetzt aber worauf ich ggf. zu achten haben.

Danke noch mal Himitsu und Uwe.

Gruß Peter

[himitsu]

Die Window-Handles (GDI) sind auch noch ein Limit, sind inzwischen wohl bei 65.536, also alle "Windows", was Forms, Frames, Panels, Edits, Buttons, aber auch Bitmap, Canvas, Font usw. sind.
https://learn.microsoft.com/en-us/wi...fo/gdi-objects