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