Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 400

•  TDictionary Custom Sort  6 433

•  Fast Watermark Sources  6 214

•  3D Designer  9 174

•  Sik Screen Capture  6 553

•  Patch Maker  6 957

•  Айболит (remote control)  6 944

•  ListBox Drag & Drop  5 817

•  Доска для игры Реверси  96 894

•  Графические эффекты  7 150

•  Рисование по маске  6 457

•  Перетаскивание изображений  5 318

•  Canvas Drawing  5 686

•  Рисование Луны  5 394

•  Поворот изображения  4 934

•  Рисование стержней  3 517

•  Paint on Shape  2 782

•  Генератор кроссвордов  3 647

•  Головоломка Paletto  2 945

•  Теорема Монжа об окружностях  3 754

•  Пазл Numbrix  2 474

•  Заборы и коммивояжеры  3 155

•  Игра HIP  2 117

•  Игра Go (Го)  2 049

•  Симулятор лифта  2 410

•  Программа укладки плитки  2 103

•  Генератор лабиринта  2 562

•  Проверка числового ввода  2 253

•  HEX View  2 580

•  Физический маятник  2 189

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Связывание строки и компонента



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

Поскольку свойство 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, я я думаю это самое простое решение.





Похожие по теме исходники

Расширение компонента TEdit




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте