Delphi-Quellcode:
procedure reku(a:string);
begin
dowith(a) // Hier kannste auf den String zugreifen und halt was mit machen
For i:=0 to count(Zeichen) do // count Zeichen soll mal die Menge der gesamten Zeichen sein
reku(a+Zeichen[i]); // Hier wird der nächste Schritt gestartet und dazu dein Char angehängt
end;
Aufrufen kannste das ganze mit
reku('');
[edit] Erst beim zweiten Mal lesen richtig verstanden... hoffe ich [/edit]