Olá! Tuesday, 06 de June de 2023.
- Códigos
- Assistentes
- Artigos/Dicas
- Widgets
- Serviços
- Expediente
- Parceiros
Meu favorito
Implementação do Algoritmo A* (A Estrela)
Descrição: Implementação do Algoritmo de Inteligência Artificial A*. Este programa demonstra uma busca por um ponto avaliando o melhor caminho observado. |
||
| Cliques: 3713 | Adicionado em: 27/08/2012 | Por: drsilvabr |
 Clique aqui para baixar o código
|
 Enviar um Código
|
Assine o Feed desta categoria 
|
Comentários do código [Novo comentário]
Diego Silva
- 17 de April de 2014 - 09:02
Faltou adicionar no exemplo uma function:
function TfrmMain.Explode(Text, Separator: String): TStrings;
var
i: Integer;
Item: String;
Lista: TStrings;
begin
Lista := TStringList.Create;
for i := 1 to Length(Text) do
begin
if Text[i] <> Separator then
Item := Item + Text[i]
else
begin
Lista.Add(Item);
Item := '';
end;
end;
Lista.Add(Item);
Result := Lista;
end;
Para adicionar um comentário você deve efetuar o login
 |
CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010 |
