Algoritmos Heurísticos de Cobertura de Arcos

else begin
St:= Copy(ArqNome,Length(ArqNome)-5,1);
If ((St = 'X') Or (St = 'U') Or (St = 'C') Or (St = 'N'))
then begin
// Anima solução de Busca Local
ArqSol:=ArqNome;
Delete (ArqNome,Length(ArqNome)-4,1);
BotaoAcionado:=2;
DesenhaGrafo(ArqNome,PaintBox1);
DesenhaGrafoSolucaoGLS(ArqNome,ArqSol,PaintBox1);
end
else begin
// Desenha solução de NegCircuit
BotaoAcionado:=3;
DesenhaGrafo(ArqNome,PaintBox1);
DesenhaGrafoSolucao(ArqNome,PaintBox1);
end;
end;
end;
procedure TForm10.PaintBox1Paint(Sender: TObject);
begin
If falha then Exit;
If BotaoAcionado=1 then DesenhaGrafo(ArqNome,PaintBox1);
//If BotaoAcionado=2 then Form10.Button2.Click;
If BotaoAcionado=3
then begin
DesenhaGrafo(ArqNome,PaintBox1);
DesenhaGrafoSolucao(ArqNome,PaintBox1);
end;
end;
procedure TForm10.Button5Click(Sender: TObject);
// Anima solução sobre um mapa
// Esta rotina é chamada da UPrincipal
begin
If Form1.CheckBox5.Checked = false Then Exit;
ArqNome:= FrmPrincipal.OpenDialog1.FileName;
ArqSol:= FrmPrincipal.SaveDialog2.FileName;
BotaoAcionado:=0;
CalculaCompArco;
ArqMapa:=ArqSol;
Delete (ArqMapa,Length(ArqMapa)-6,7);
ArqMapa:=ArqMapa+'.bmp';
DesenhaGrafoSolucaoMapa(ArqMapa,ArqNome,ArqSol,PaintBox1);
end;
end.
174