Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.16;
Скачать: CL | DM;

Вниз

Как определить имя поля в рекорде?   Найти похожие ветки 

 
McSimm2   (2003-06-04 10:20) [0]

Есть массив рекордов.

TRec = record
f1,f2,f3,f4,f5: string;
end;

MasRec = array of Trec;
FRec: MasRec;


и есть переменная "А" которая может принимать значение - название поля из рекорда, т.е. : f1,f2,f3,f4,f5.

Как сделать, что получив значение переменной "А" равной, например f3 мне обратиться к FRec[i].f3


 
han_malign   (2003-06-04 10:22) [1]

if then
else if then
else if then
..............
больше никак


 
Skier   (2003-06-04 10:28) [2]

Можно попробовать так : каждому имени поставить в соответствие
смещение (поля в записи) и потом через кастинг на (^String) брать значения, благо все поля одного типа...


 
McSimm2   (2003-06-04 10:28) [3]

>> han_malign © (04.06.03 10:22)
Спасибо, как ни странно помог :)))


 
han_malign   (2003-06-04 10:35) [4]

if((Length(A)>1)and(A[2]in["1".."5"])then begin
res:=String(Pointer(LongWord(@FRec[i])+(byte(A[2])-byte("1"))*4)^)
end;
где то так, для данного конкретного случая, но if then - все таки надежней


 
Anatoly Podgoretsky   (2003-06-04 10:49) [5]

McSimm2 (04.06.03 10:28)
Странно было бы если цивильный, не хакерский путь не помог.



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

Текущий архив: 2003.06.16;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
3-50254
IGray
2003-05-19 18:35
2003.06.16
Дополнительное поле на время Run-Time


1-50273
GavAl
2003-06-04 15:12
2003.06.16
Форма


3-50246
OxOTHuK
2003-05-23 22:49
2003.06.16
Фильтрация Table


1-50288
killer
2003-06-04 16:10
2003.06.16
Как в Image убрать фон картинки?


6-50412
anpv
2003-04-11 08:51
2003.06.16
!!! Быстрее чем NMFTP !!!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский