Teria alguma função para embaralhar em Delphi para embaralhar uma string
.
- Ex de String := 'casa de madeira';
- Ex de retorno := 'medr ci saedaaa';
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeTeria alguma função para embaralhar em Delphi para embaralhar uma string
.
Postando para não ficar sem resposta como sugestão do Autor da pergunta.
Fonte: Jefferson Rudolf (users/34982)
function EmbaralharString(const aString: string): string;
var
i: integer;
vPosicao: integer;
vLista: TStrings;
begin
Randomize;
vLista := TStringList.Create;
for i := 1 to aString.Length do
vLista.Add(aString[i]);
for i := 1 to aString.Length do
begin
vPosicao := Random(vLista.Count);
Result := Result + vLista.Strings[vPosicao];
vLista.Delete(vPosicao);
end;
FreeAndNil(vLista);
end;
Bem simples, primeiro ele desmonta a string em e cria uma lista de "char", depois randomicamente pega cada "char" e monta uma nova string.