[Maks19]

Здравствуйте! Как правильно создать таблицы и установить связи м/у ними для хранения данных. Т. е данные в таблицах должны храниться и по значениям вводимых данных браться нужные значения и этих таблиц.
Физически таблицы с данными имеют такой вид, столбцы
alfa, Cy, Сx,Cm,Cn,Cp
0 значения
1 значения
..
8 значения
таблицы отличаются друг от друга параметром который вводится в исходные данные , а по исходным данным должны определиться нужная таблица со своими alfa, Cy, Сx,Cm,Cn,Cp

[Guaho]

Связи разные бывают... Какие именно нужны? И очень расплывчато поставлен вопрос в целом.

[Maks19]

Допустим есть таблица (она во вложении). Как осуществить поиск по заданным полям lambda и kappa и осуществить выбор значений из полей Cx, Cy,Cp (они заполнены все значениями)? Т. е выбор значений Cx, Cy,Cp для каждого (т. е для 0,5,10,15,20,25,30,35,40) из поля alfa.
Возможно таблицу нужно разбить на несколько? Главное извлечь нужные данные.

[Guaho]

Метод Locate в помощь для поиска. Может искать сразу по нескольким полям. Также можно использовать св-во Filter, или делать SQL-запрос по заданным условиям.

Код:

MyTable.Locate('lambda; kappa; alfa', VarArrayOf([VarLambda, VarKappa, VarAlfa]), [loCaseInsensitive]);

- пример поиска сразу по трём полям VarLambda, VarKappa, VarAlfa. Здесь VarLambda, VarKappa, VarAlfa - переменные, в которых задаются искомые значения.
Если нужно искать данные по одним полям, а извлекать данные из других - сначала находите нужную запись Locat-ом, затем, т.к. курсор-указатель в таблице установился на нужную Вам запись, получаете нужные данные:

Код:

VarCx := MyTable.FieldByName('Cx').AsFloat;

Locate находит первую запись, удовлетворяющую заданным условиям. А таких записей может оказаться несколько, поэтому правильнее будет использовать фильтрацию либо SQL-запрос, а потом перебирать записи полученного НД в цикле и извлекать оттуда данные.

[Maks19]

Записал такой код, но в массив записывается числа вообще не
из таблицы.

Код:

ADOTAble1.First;
while AdoTable1.Locate('lambda',lambda,[]) and AdoTable1.Locate('kappa',lkappa,[]) 
do begin
for  i:=0 to 8 do 
begin
c[i]:=AdoTAble1.FieldByName('cy').Asstring;
Adotable1.Next;
end;
end;

[Guaho]

Команда "while" здесь ни к чему абсолютно. Она Вам и делает чудеса. Метод Locate возвращает true, если запись найдена. На это и нужно опираться:

Код:

if AdoTable1.Locate... then ... 

Далее. Вы делаете два поиска, это не нужно и забирает дополнительное время. Правильнее искать сразу по двум полям (пример кода я приводил выше).

[Maks19]

Пока понятно, что

Код:

If adotable1.Locate('lambda',lambda),[])

не находит, если lamda действительное число. Находит если целое.

[Guaho]

Это смотря как искать, в смысле какого типа у Вас переменная lambda. Если float (double то есть), то тогда надо предварительно запятые заменять на точки:

Код:

S_lambda:= FloatToStr(lambda);
S_lambda:= StringReplace(S_lambda, ',', '.', []);
S_lambda := StrToFloat(S_S_lambda);

Тут ещё желательно преобразования типов заключить в защищённый блок try...
Кроме того, с Float-числами могут быть казусы вроде 4 = 3,99999999999, из-за чего существующее в таблице значение может быть НЕ найдено. Например, я в своей программе с этим столкнулся, поэтому пришлось усложнить SQL-запрос (с использованием допустимого отклонения), чтобы данные в любом случае находились.

[Maks19]

У переменной lambda тип real. С real не будет искать?

[Guaho]

Real - это тот же Double (Float), только вид сбоку. Механизм базы данных использует в качестве разделителя ЧИСЕЛ точку, а не запятую, поэтому нужно сделать замену запятой на точку. Можете попробовать по-другому (это ТОЛЬКО для случаев, когда потребуется поиск с точным совпадением, а не варианты с "больше/меньше"): сделайте переменную Slambda типа String, запишите туда искомое значение, и ищите:

Код:

If adotable1.Locate('lambda', Slambda),[]) then ...

В этом случае никакое преобразование делать не надо, т.к. данные будут искаться как стринг.

[Maks19]

Locate возвращает true,но
по такому коду выдает нули.

Код:

begin
c[i]:=AdoTAble1.FieldByName('cy').Asstring

[Guaho]

Locate возвращает true - значит запись найдена. Почему возвращаются нули - ищите. Для контроля того, что происходит, даже без дебага, можно использовать ShowMessage либо запись событий в самодельный лог (Memo).

[Maks19]

Сообщение от Guaho

Locate возвращает true - значит запись найдена. Почему возвращаются нули - ищите. Для контроля того, что происходит, даже без дебага, можно использовать ShowMessage либо запись событий в самодельный лог (Memo).

Выводит,но только первый элемент массива, остальные ,нули .Что может быть не так?

Код:

for i: =0 to 8 do
c[i ]:=adotable1.fieldbyname('cy').asstring;

[Maks19]

Вроде выводит

[Maks19]

Сообщение от Guaho

Метод Locate в помощь для поиска. Может искать сразу по нескольким полям. Также можно использовать св-во Filter, или делать SQL-запрос по заданным условиям.

Код:

MyTable.Locate('lambda; kappa; alfa', VarArrayOf([VarLambda, VarKappa, VarAlfa]), [loCaseInsensitive]);

- пример поиска сразу по трём полям VarLambda, VarKappa, VarAlfa. Здесь VarLambda, VarKappa, VarAlfa - переменные, в которых задаются искомые значения.
Если нужно искать данные по одним полям, а извлекать данные из других - сначала находите нужную запись Locat-ом, затем, т.к. курсор-указатель в таблице установился на нужную Вам запись, получаете нужные данные:

Код:

VarCx := MyTable.FieldByName('Cx').AsFloat;

Locate находит первую запись, удовлетворяющую заданным условиям. А таких записей может оказаться несколько, поэтому правильнее будет использовать фильтрацию либо SQL-запрос, а потом перебирать записи полученного НД в цикле и извлекать оттуда данные.

А если надо поставить условие, что если не найдена такое лямда и что если попадает а заданный интервал надо произвести определенные действия то ,что использовать SQL запрос, фильтрацию?