[ruina]

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