Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с копиями / 3 сообщений из 3, страница 1 из 1
08.01.2003, 13:27
    #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
08.01.2003, 13:35
    #32087399
hDrummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с копиями
так сделай отдельный класс, хотя можно и просто процедуру и создавай там TTable, присваивай значения пропертям и вперёд...
...
Рейтинг: 0 / 0
08.01.2003, 14:14
    #32087439
tygra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с копиями
Присваивай таблицу в переменную, а дальше
Код: plaintext
1.
vartable.FieldByName('SHOT2').AsString .....
.....
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с копиями / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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