mmmm alguien recuerda los viejos punteros?
Código Delphi
[-]
procedure TForm1.Button3Click(Sender: TObject);
var p,g:PAnsiChar;
s,a:string;
begin
s:='aaa';
a:='abcdef';
p:=@s[1];
repeat
g:=@a[1];
repeat
Memo1.Lines.add(s);
p^:=(g+1)^;
inc(g)
until g=a[Length(a)];
inc(p);
until (p>@s[Length(s)]);
end;
se nota que me aburro