Code:
function StrRemoveBlanks( s: string ): string;
var i: integer;
begin
result := '';
for i := 1 to length(s) do
if s[i] <> ' ' then result := result + s[i];
end;
Wollte nun dafür eine rekursive Lösung schreiben, aber ich komme nicht drauf.
Habe mit Rekursion auch noch so meine Problemchen. Vielleicht könnt ihr mir mal ein wenig auf die Sprünge helfen?