условие в цикле

[govorun1]

В таблице ADOTable6 есть поля AAA, SSS, XXX.
Нужно пробежаться по таблице и в зависимости от значения поля AAA заполнить поле XXX.
s - значение поля SSS

var
//    i:integer;
    k1:real;
    k2:real;
    k3:real;
    s:real;
    p1:string;
    p2:string;
    p3:string;
begin
    k1:=Datamodule3.ADOTable9.Fields.Fields[2].AsFloat;
    k2:=Datamodule3.ADOTable9.Fields.Fields[3].AsFloat;
    k3:=Datamodule3.ADOTable9.Fields.Fields[4].AsFloat;
    s:=Datamodule3.ADOTable6.Fields.Fields[3].AsFloat;
    p1:=floatToStr(Round(k1*s));
    p2:=floatToStr(Round(k2*s));
    p3:=floatToStr(Round(k3*s));

    Datamodule3.ADOTable6.First;

    while not Datamodule3.ADOTable6.eof do
//    for i:=0 to Datamodule3.ADOTable6.RecordCount-1 do
    begin
    Datamodule3.ADOTable6.Edit;

    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='11' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p1;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='22' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p2;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='33' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p3;

    Datamodule3.ADOTable6.Next;
    end;
//    Datamodule3.ADOTable6.Post;
end;

Не работает.
Насколько я понял при выполнении цикла берется либо первое либо последнее значение 's' из ADOTable6 и расставляется в таблице согласно формуле, т.е. p1 - всегда одинаковые, p2 - всегда одинаковые, p3 - всегда одинаковые.

[Аватар]

Правильно поняли - значение берется из какой-то одной записи. В цикл нельзя что-ли перетащить присвоение в s,p1,p2,p3?

[eval]

AsString='11'

у вас все поля в таблице литерального типа? а зачем?

[govorun1]

Сообщение от Аватар

Правильно поняли - значение берется из какой-то одной записи. В цикл нельзя что-ли перетащить присвоение в s,p1,p2,p3?

Не понял....

[govorun1]

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

у вас все поля в таблице литерального типа? а зачем?

Помоему это не критично. Да, там число, но оно НИКОГДА не участвует в расчетах

[eval]

при чем тут расчеты? и почему собственное участие в расчетах должно на что-то влиять?

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

вы простоите но это индуский код
типа как if true = true then result := true else result := false;

[govorun1]

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

при чем тут расчеты? и почему собственное участие в расчетах должно на что-то влиять?

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

вы простоите но это индуский код
типа как if true = true then result := true else result := false;

Я Вас прощаю за индусский код. А теперь дайте ответ на два вопроса:
1. Asinteger='11' вмнсто AsString='11' повлияет на правильность работы цикла?
2. Вы можете помочь сделать цикл рабочим, почему значение 's' не меняется при проходе цикла по таблице?

[eval]

1. Asinteger='11' вмнсто AsString='11' повлияет на правильность работы цикла?

ну скорее всеже так Asinteger= 11, при чем тут влияние? переводить число в строку, потом сравнивать строки, это очень долго, и та и другая операция достаточно тяжелая, по сравнению с этим сравнение чисел как пуля и черепаха, разницу понимаете? да и потом у вас AsString:=p1 - просто алес..

Вы можете помочь сделать цикл рабочим, почему значение 's' не меняется при проходе цикла по таблице?

у вас в коде нигде не меняется она, один раз инициализировали и всё, что тут еще говорить, оно и не вооруженным глазом видно

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

[eval]

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

[govorun1]

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

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

Привязки нет, только на стадии написания кода...