Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-31609
skiph
2002-09-19 05:35
2002.10.10
Lookup


1-31847
Ahmad
2002-09-25 07:11
2002.10.10
Шестнадцатиричное в десятичное...


1-31685
Cobalt
2002-09-27 18:55
2002.10.10
Как выйти из оператора case?


1-31705
AZ
2002-09-30 10:20
2002.10.10
TCollection


1-31769
amor121
2002-10-01 16:20
2002.10.10
Форма разрабатывалась при разрешении 1024х768, а в 800х600





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский