Delphi World - Связывание строки и компонента
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Связывание строки и компонента

Имеется возможность связать строку с каждым компонентом?

Поскольку свойство Tag имеет тип longint, вы можете приводить его к свойству Pointer или PChar. Итак, вы можете хранить указатель на запись, используя свойство Tag.

Примечание: Вы не сможете сохранить таким образом строку, указатель или что-то еще в режиме разработки. Это вы можете сделать только во время выполнения приложения. Взгляните на этот пример:


var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if 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;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
    begin
      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 для получения доступа к строкам с возможностью передачи от приложения к приложению.

  1. Если ваши строки никогда не меняются, вы можете создать строковый ресурс в Resource Workshop (или эквиваленте) и использовать Tag как индексы к таблице строк.
  2. Используйте TIniFile, создавайте секцию для ваших строк и присвойте каждой строке имя и число, т.е. ваш ini-файл должен иметь секцию типа такой:
      [strings]
      string1=Aristotle
      string2=Plato
      string3=Хорошо что это Delphi, в конце концов
    Затем вы можете к ним обратиться следующим образом:

  3. var s1: string;
    ...
    s1 := IniFile1.ReadString('strings', 'string'+IntToStr(Tag), '');
    

  4. Поместите ваши строки в файл, сопровождая каждую символом перевода строки. Затем вы можете прочесть их в TStringList. Затем ваши Tag'и становятся индексами в данном StringList:

  5. StringList1.LoadFromFile('slist.txt');
    ...
    s1 := StringList1[Tag];
    

Все три способа работают в Delphi, я я думаю это самое простое решение.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования