Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

TStringField   Найти похожие ветки 

← →
Лана Розанова   (2002-09-27 15:39) [0]

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

---

← →
Лана Розанова   (2002-09-27 15:40) [1]

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

---

← →
Best Before 2024   (2002-09-27 15:45) [2]

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

---

← →
MsGuns   (2002-09-27 15:46) [3]

var
v: variant;
...

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

---

← →
Le Taon   (2002-09-27 15:48) [4]

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

---

← →
Best Before 2024   (2002-09-27 15:49) [5]

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

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

---

← →
Best Before 2024   (2002-09-27 15:50) [6]

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

---

← →
Le Taon   (2002-09-27 15:53) [7]

as TStringField, конечно

---

← →
Лана Розанова   (2002-10-01 11:16) [8]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.56 MB
Время: 0.03 c