Ist String ein gültiger Variablenname

[v2afrank]

Hallo In einem meiner Programme hat der Benutzer die Möglichkeit eine eigene Oberfläche zu entwerfen.
Dazu kann er auch Namen für die einzelnen Objekte vergeben. Wie kann ich am einfachsten überprüfen ob es ein gültiger Delphi Variablenname ist.
Ich würde ansonsten einfach hingehen ein Control anlegen und diesem dem Namen des Users zuweisen und abwarten ob eine Exception kommt. Gibnt es dafür eine Funktion ?

[Dejan Vu]

Was passiert denn, wenn Du das machst? Der Inhalt 'Name' hat ja zunächst nichts mit dem Feldnamen der Komponente zu tun.

[DeddyH]

Könnte man nicht einfach intern einen Tiefstrich voranstellen, den man aber nicht anzeigt? Also der Benutzer nennt das Dingen z.B. String, daraus wird dann _String.

[himitsu]

SysUtils.IsValidIdent und das wird intern auch vom TComponent.Name verwendet.

[ExceptionOverflow]

Zitat:

Zitat von DeddyH (Beitrag 1272880)

Könnte man nicht einfach intern einen Tiefstrich voranstellen, den man aber nicht anzeigt? Also der Benutzer nennt das Dingen z.B. String, daraus wird dann _String.

Genau so etwas in der Richtung dachte ich mir auch! Da spart man sich auch erst eine Abfrage zu starten. Ich würde eine Konstante (const) vom typ string erstellen die dann z.B. diesen Wert hat: 'User_' und diese Konstante vor jeden vergebenen (vom User) Namen setzen. Und nach außen hin halt einfach die Konstante wieder "abziehen", damit der User auch den Namen sieht, den er selbst vergeben hat. :o

[pertzschc]

Zitat:

Zitat von ExceptionOverflow (Beitrag 1272885)

Genau so etwas in der Richtung dachte ich mir auch! Da spart man sich auch erst eine Abfrage zu starten. Ich würde eine Konstante (const) vom typ string erstellen die dann z.B. diesen Wert hat: 'User_' und diese Konstante vor jeden vergebenen (vom User) Namen setzen. Und nach außen hin halt einfach die Konstante wieder "abziehen", damit der User auch den Namen sieht, den er selbst vergeben hat. :o

Achtung, wenn der Nutzer auf denselben Gedanken kommt. Dann hast Du schnell: "User_User_Nachname". Das muss Dein "abziehen" dann verkraften!
Christoph

[himitsu]

Eine Komponente (

Delphi-Quellcode:

.Name

) kann man gern "String" nennen.
Selbst Eine im Formdesigner, solange diese Komponente kein Feld (Variable) in der Klassendeklaration besitzt.

Variablen, Konstanten, Typen, Prozeduren usw. (im QuellCode) unterliegen zusätzlich noch der Einschränkung der "reservierten Wörter" (siehe OH).

[Dejan Vu]

Zitat:

Zitat von pertzschc (Beitrag 1272897)

Achtung, wenn der Nutzer auf denselben Gedanken kommt. Dann hast Du schnell: "User_User_Nachname". Das muss Dein "abziehen" dann verkraften!
Christoph

Schafft man gerade noch so.

Delphi-Quellcode:

Function Abziehen (const Bezeichner : String; Const prefix : String = 'User_') : String;
Begin
  if substring (Bezeichner,1, Length(Prefix))=prefix then
    result := Substring (Bezeichner, Length(Prefix)+1, maxint)
  else
    result := Bezeichner;
End;

[Jumpy]

Nur noch Substring() durch z.B. Copy() ersetzen. :-D

[himitsu]

Und XE2 kennt bestimmt auch schon die StrUtils, sowie das Copy ohne den 3. Parameter.

Delphi-Quellcode:

if StartsStr(Prefix, Bezeichner) then
  Result := Copy(Bezeichner, Length(Prefix) + 1)
else
  Result := Bezeichner;

// oder

Result := Bezeichner;
if StartsStr(Prefix, Result) then
  Delete(Result, 1, Length(Prefix));

Sollte es Probleme beim Prefix geben, also bei der Unterscheidung ob programmseitiges Prefix oder Namensteil des Benutzers,
dann einfach ein Zeichen als Prefix verwenden, welches man für die Benutzereingabe an dieser Stelle sperrt.