Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.16;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.01 c
1-50316
Oleg__
2003-06-03 13:41
2003.06.16
Выделенные строки в TStringGrid


4-50569
Teetos
2003-04-16 09:17
2003.06.16
Изменение иконки в исполняемом модуле


3-50244
udf
2003-05-26 17:06
2003.06.16
при попытке обращения к функции ошибка...


1-50285
AbrosimovA
2003-06-04 14:27
2003.06.16
Помогите разобраться с типизиров. и нетипизир. файлами


14-50430
Soft
2003-05-28 13:09
2003.06.16
САГА О ПРОГРАММИСТАХ-КУДЕСНИКАХ (страшилка в стихах и прозе)





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