Caption durch Tag ersetzen?

[Jack23]

Hallo

Ich möchte in dieser Codestelle die Caption durch Tag ersetzen

Delphi-Quellcode:

Boxes[i].Caption

Was muss ich da machen?
Wenn ich das so mache geht es nicht:

Delphi-Quellcode:

Boxes[i].Tag

[freak4fun]

Was ist Boxes[i]? Theoretisch ja. Zu beachten ist, das Tag Integer ist und Caption String. :)

MfG
freak

[Jack23]

Ja das habe ich vergessen.

Ich brauche aber einen gleichwertigen Ersatz für die Caption. Also etwas was ich benennen kann und mit dem ich auch eine DBAbfrage machen kann.

Würde der Name der Box gehen?

[DeddyH]

Caption = String
Name = String,
also ja.

[mkinzler]

Warum muss es ein String sein, um es in einer Datenbank zu verwenden? Ich würde die ID als Tag verwenden.

[Jack23]

Weil da mehrere Wörter rein müssen.

[mkinzler]

Warum müssen da mehrere Wörter rein?

[freak4fun]

Vielleicht solltest du erklären was du machen willst. Es könnte auch eine ganz andere Lösung geben. ;)

MfG
freak

[s-off]

Hört sich an, als wolle er das gesamte Statement im Namen speichern :mrgreen:

Warum leitest Du Dir nicht einfach von Deiner 'Boxes' - was auch immer das sein mag - eine eigene 'MyBoxes' ab, und verpasst der ein paar nette Eigenschaften, die Du dann beliebig belegen kannst?!

[Jack23]

Da sollen einfach nur zwei Wörter rein. Wie "Test" und "Hallo".

Zitat:

Hört sich an, als wolle er das gesamte Statement im Namen speichern

So doof bin ich nun auch nicht. Muss dich leider enttäuschen... :-D

[s-off]

Zitat:

Zitat von Jack23

So doof bin ich nun auch nicht. Muss dich leider enttäuschen... :-D

Wer sagt, dass ich enttäuscht bin? :)

Aber wie freak4fun schon angemerkt hat - vlt solltest Du uns über die näheren Umstände aufklären.
Denn Dein Vorhaben, Informationen im Namen einer Komponente abzulegen, ist zwar machbar, aber nicht schön - und soetwas möchtest Du Dir doch gar nicht erst angewöhnen, oder? :zwinker:

[Whookie]

Falls du sowas hast:

Delphi-Quellcode:

Var 
  Boxes: Array[0..10] Of TCheckBox;

reicht ja vielleicht ein:

Delphi-Quellcode:

Type
  TBoxes = Record
    Box: TCheckBox;
    MyData: String;
  End;

 Var
  Boxes: Array[0..10] Of TBoxes;

Begin
  ...
  Boxes[i].MyData := "Test und Hallo";
  ...
End;

0, 10 und TCheckBox kannst du natürlich beliebig selber variieren :mrgreen: