Das ist zu kompliziert für Dich, denke ich mal.
Du willst also dynamische Controls erstellen und musst vorher einen eindeutigen Namen zuweisen?
Entweder ich pflege eine Zählvariable für alle Controlklassen, oder für jede Klasse einen eignen, oder ich spare mir das und verwende zufällige Zeichenfolgen und drücke die Daumen, das ich keine Kollision habe. Oder ich erzeuge so lange einen Namen (Klassenname+Zähler), bis ich einen gefunden habe, der noch nicht vergeben ist.
Delphi-Quellcode:
Function TForm1.CreateUniqueControlName : String;
Const
sAlphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Var
i : Integer;
Begin
setLength (Result,20);
Repeat
For i=1 to Length (Result) Do Result[i] := sAlphabet[Random(Length (sAlphabet) + 1];
Until Not Assigned (FindComponent (Result));
End;
Dieser (ziemlich dämlliche aber funktionierende Code) liefert einen 20-stelligen Namen, den man einem Control zuweisen kann.
So kann man es auch machen, aber das ist schon etwas langsam:
Delphi-Quellcode:
Function TForm1.CreateUniqueControlName (aClassName : String = 'Ctl') : String;
Var
Cnt : Integer;
Begin
Cnt := 0;
Repeat
Inc (Cnt);
Result := aClassName+IntToStr(Cnt);
Until Not Assigned (FindComponent (Result));
End;
Diese Funktion liefert einen etwas hübscheren Namen (Klassenname + fortlaufende Nummer).