вопрос про ADO

[Cantana]

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

уже давно бы выложил базу и сам проект ..

вот проект и БД суть оброботка значений в таблице eksperiment

[Virtson]

       ADOQuery1.Close;
        ADOQuery1.SQL.Text:='select * from jimm';
        ADOQuery1.Open; ;


        for I := 1 to 5 do    // Iterate
        begin

             for J := 0 to 4 do    // Iterate
          begin
            for L := 1 to 4 do    // Iterate
            begin
              TekZnach:=ADOQuery1.Fields[3].AsFloat;
              ADOQuery1.Next;
              NextZnach:=ADOQuery1.Fields[3].AsFloat;
              TekFarq:=Abs(NextZnach-TekZnach);
              if TekFarq<MinFarq then
              begin
                arr1[I, L, N+J*2+2]:=TekZnach;
                tmpstr.Strings[N+J*2+2]:=tmpstr.Strings[N+J*2+2]+FloatToStr(TekZnach)+#9;
              end else
              begin
                for K := L to 4 do    // Iterate
                begin
                  arr1[I, K, N+J*2+2]:=TekZnach;
                  tmpstr.Strings[N+J*2+2]:=tmpstr.Strings[N+J*2+2]+FloatToStr(TekZnach)+#9;
                end;    // for
                Break;
              end;
            end;    // for
            if J<>4 then
            begin
              repeat
                TekZnach:=ADOQuery1.Fields[3].AsFloat;
                ADOQuery1.Next;
                NextZnach:=ADOQuery1.Fields[3].AsFloat;
                TekFarq:=Abs(NextZnach-TekZnach);
              until TekFarq>MinFarq;
            end else while TekZnach<>ADOQuery1.Fields[3].AsFloat do ADOQuery1.Prior;
            tmpstr.Strings[N+J*2+2]:=tmpstr.Strings[N+J*2+2]+#9#9;
          end;    // for


          for J := 4 downto 0 do    // Iterate
          begin
            for L := 1 to 4 do    // Iterate
            begin
              TekZnach:=ADOQuery1.Fields[3].AsFloat;
              ADOQuery1.Next;
              NextZnach:=ADOQuery1.Fields[3].AsFloat;
              TekFarq:=Abs(NextZnach-TekZnach);
              if TekFarq<MinFarq then
              begin
                arr1[I, L, N+J*2+3]:=TekZnach;
                tmpstr.Strings[N+J*2+3]:=tmpstr.Strings[N+J*2+3]+FloatToStr(TekZnach)+#9;
              end else
              begin
                for K := L to 4 do    // Iterate
                begin
                  arr1[I, K, N+J*2+3]:=TekZnach;
                  tmpstr.Strings[N+J*2+3]:=tmpstr.Strings[N+J*2+3]+FloatToStr(TekZnach)+#9;
                end;    // for
                Break;
              end;
            end;    // for
            if J<>4 then
            begin
              repeat
                TekZnach:=ADOQuery1.Fields[3].AsFloat;
                ADOQuery1.Next;
                NextZnach:=ADOQuery1.Fields[3].AsFloat;
                TekFarq:=Abs(NextZnach-TekZnach);
              until TekFarq>MinFarq;
            end;// else while TekZnach<>ADOQuery1.Fields[3].AsFloat do ADOQuery1.Prior;
            tmpstr.Strings[N+J*2+3]:=tmpstr.Strings[N+J*2+3]+#9#9;
           end;    // for
 ShowMessage('2');
          end;

это в таком - то коде 'перескакивает' ?

[Cantana]

это в таком - то коде 'перескакивает' ?


просто с TADOQuery не работал да пару лет вообще не писал прогу

[Virtson]

а я не смог найти твой простой первоначально вопрос в этом коде (

что программа должна делать то ?

[Cantana]

программа должен отсортировать значении которие считиваются с dat(с него могу и в массив скинуть но тогда без визуализации) файла. Cортировка идет от шкали мин до шкали максимум по точкам (min, min+0.1*(max-min),min+0.2*(max-min),min+0.3*(max-min),min+0.4*(max-min),min+0.5*(max-min),min+0.6*(max-min),min+0.7*(max-min),min+0.8*(max-min),min+0.9*(max-min),max); или (-191:191) это будет (-191,-152.8,-114.6,-76.4,-38.2,0,38.2,76.4,114.6,152.8,191) эти данние характеристики ИК мне надо оброботат по методике котороя у меня есть.

чтобы увидеть первоначальную проблему нажми Button3 и там можно посмотреть.

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

заранее спасибо