基于洗牌算法的负载均衡

基于洗牌算法的负载均衡

设计一个和服务节点数组大小一致的索引数组，每次来新的请求，对索引数组做洗牌，然后取第一个元素作为选中的服务节点，如果请求失败，那么选择下一个节点重试，依此类推。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var arr: array[0..2] of string = ('100.69.62.1:1122', '100.69.62.2:1122', '100.69.62.3:1122');   procedure TForm1.Button1Click(Sender: TObject); begin   randomize;   var i: Integer;   var s: string;   for i := 0 to 2 do   begin     var j: Integer := Random(3);     s := arr[i];     arr[i] := arr[j];     arr[j] := s;   end;   Caption := arr[0]; end;