powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с копиями
3 сообщений из 3, страница 1 из 1
Проблема с копиями
    #32087395
Aleksei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Программа получается слишком громоздкой из-за повторений одного и того же с одной лишь разницей что используются разные таблицы.
Пример:
S:=S+D.PROVSHOT2.AsString+'#';
S:=S+D.PROVBIK1.AsString+'#';
S:=S+D.PROVBIK2.AsString+'#';

копия (только другая таблица)
S:=S+D.PPROVSHOT2.AsString+'#';
S:=S+D.PPROVBIK1.AsString+'#';
S:=S+D.PPROVBIK2.AsString+'#';

Поля Field имеют одинаковые названия

Можно ли сделать как ни будь так, чтобы название таблицы помещалось в какую либо переменную

Пример:
BD:=’Prov’ или BD:=’Pprov’

А потом дополнив названием поля Field написать примерно так:

S:=S+D.BD.AsString+’#’;

Если можно ввести такую переменную то какого типа она должна быть и как это может выглядеть вообще?
...
Рейтинг: 0 / 0
Проблема с копиями
    #32087399
Фотография hDrummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
так сделай отдельный класс, хотя можно и просто процедуру и создавай там TTable, присваивай значения пропертям и вперёд...
...
Рейтинг: 0 / 0
Проблема с копиями
    #32087439
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Присваивай таблицу в переменную, а дальше
Код: plaintext
1.
vartable.FieldByName('SHOT2').AsString .....
.....
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с копиями
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]