Problem: DBEdit/Edit Felder per Knopfdruck generieren

[alzaimar]

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).