如何改进这个代码-----使相近的颜色产生大的色差？

Question

    with MainForm.q2 do
    begin
        Close;
        SQL.Clear;
        SQL.Add('Select * from Color ') ;
        open;
        while not eof do
        begin
            //颜色起止：$00D0E7F4   -   $00E7DBEA
            for   i   :=1   to RecordCount   do
            begin
                Application.ProcessMessages;
                mycolor:=$00D0E7F4+i * RecordCount;
                MainForm.exesql('UPdate Color set Color='''+colorToString(mycolor)+''' where wonbr='''+FieldValues['wonbr']+''' ');
                next;
            end;
            next;
        end;    end;
    ShowMessage('生成颜色成功！');

Answer 1

有了while 还要for干吗,把for去掉