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";

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