| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TStringField

Лана Розанова ©   (2002-09-27 15:39:00) 

У меня есть таблица с полями Р11...Р19.Как вместо TableP11.Value:="значение"; TableP12.Value:="значение"; ... ... TableP19.Value:="значение";использовать что-то типа этого: for i:=11 to 19 do TableP("значение i").Value:="значение";СПАСИБО!!!

---

Лана Розанова   (2002-10-01 11:16:00) [1]

Вот этот вариан лучше всего:for i:=11 to 19 do TableP.FieldByName("P"+IntToStr(i)).Value := "asd";

---

Le Taon   (2002-09-27 15:53:00) [2]

as TStringField, конечно

---

Best Before 2024   (2002-09-27 15:50:00) [3]

>>(FormOrDataModuleThatOwnsThisTables.FindComponent(
>> "TableP" + IntToStr(i)) as TTable).Value := ""
??!!

---

Best Before 2024   (2002-09-27 15:49:00) [4]

>>for i :=0 to Table.Fields.Count-1 do
>> begin
>> v := Table1.Fields[i].value;
>> ...
>> end

Ну это, если их всего P11 .. P19 и они идут в таком порядке

---

Le Taon   (2002-09-27 15:48:00) [5]

(FormOrDataModuleThatOwnsThisTables.FindComponent(
"TableP" + IntToStr(i)) as TTable).Value := ""

---

MsGuns   (2002-09-27 15:46:00) [6]

var
v: variant;
...

for i :=0 to Table.Fields.Count-1 do
begin
v := Table1.Fields[i].value;
...
end;

---

Best Before 2024   (2002-09-27 15:45:00) [7]

for i:=11 to 19 do
TableP.FieldByName("P"+IntToStr(i)).Value := "asd";

---

Лана Розанова   (2002-09-27 15:40:00) [8]

Как-то коряво получилось!?

---

Наверх