Имеется возможность связать строку с каждым компонентом?
Поскольку свойство Tag имеет тип longint, вы можете приводить его к свойству
Pointer или PChar. Итак, вы можете хранить указатель на запись, используя
свойство Tag.
Примечание: Вы не сможете сохранить таким образом строку, указатель или
что-то еще в режиме разработки. Это вы можете сделать только во время выполнения
приложения. Взгляните на этот пример:
var
i: integer;
beginfor i := 0 to ComponentCount - 1 doif Components[i] is TEdit then
Components[i].Tag := LongInt(NewStr("Привет "+IntToStr(i)));
end;
Здесь мы организуем цикл и обходим все компоненты, расположенные на форме.
Если компонент - TEdit, мы присваиваем указатель на строку свойству Tag. Функция
NewStr возвращает PString (указатель на строку). Указатель, в основном,
тождественен типу longint, или даже "лучше", т.е. занимает в памяти одинаковое
количество байт. Следовательно, вы можете осуществить приведение к типу LongInt
возвращаемому NewStr значению и сохранять его затем в свойстве Tag компонента
TEdit. Имейте в виду, что это может быть указателем на целую запись. Теперь мы
используем это значение:
var
i: integer;
beginfor i := 0 to ComponentCount - 1 doif Components[i] is TEdit thenbegin
TEdit(Components[i]).Text := PString(Components[i].Tag)^;
DisposeStr(PString(Components[i].Tag));
end;
end;
Здесь я опять "пробегаюсь" по всем компонентам и работаю только с TEdits. На
этот раз я извлекаю значение свойства компонента Tag, приводя его к типу PString
(Pointer to a string, указатель на строку), и присваивая это значение свойству
компонента TEdit Text. Естественно, в данном случае я должен использовать
ключевой символ (^). После этого я избавляюсь от строки, хранимой в компоненте
TEdit. Важное замечание: если вы храните что-либо в свойстве TEdit Tag как
указатель, вы являетесь ответственным за освобождение его содержимого.
Для вашей информации: поскольку объекты Delphi реально являются указателями
на экземпляры класса, вы можете хранить объекты в свойстве Tag. Вы, наверное,
помните, что для этого необходимо вызвать метод Free.
Спешу вам предложить три метода, позволяющих использовать Tag для получения
доступа к строкам с возможностью передачи от приложения к приложению.
Если ваши строки никогда не меняются, вы можете создать строковый ресурс в
Resource Workshop (или эквиваленте) и использовать Tag как индексы к таблице
строк.
Используйте TIniFile, создавайте секцию для ваших строк и присвойте каждой
строке имя и число, т.е. ваш ini-файл должен иметь секцию типа такой:
[strings]
string1=Aristotle
string2=Plato
string3=Хорошо что это Delphi, в конце концов
Затем вы можете к ним
обратиться следующим образом:
var s1: string;
...
s1 := IniFile1.ReadString("strings", "string"+IntToStr(Tag), "");
Поместите ваши строки в файл, сопровождая каждую символом перевода строки. Затем
вы можете прочесть их в TStringList. Затем ваши Tag"и становятся индексами в
данном StringList:
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Связывание строки и компонента", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!