wie mach ich ein hallöchen zu einem h.l.ö.h.n ?

[Magier]

Delphi-Quellcode:

function replacetext(workstring:string):string;
var i, gerade:integer;
s, s2:string;
begin
s:= workstring;
gerade:=1;
for i := 1 to length(s) do begin
if (gerade mod 2 =1) or (s[i]=' ') then s2:=s2+s[i] else s2:=s2+'.';
gerade:=gerade+1;
end;
result :=s2;
end;

//oh, ich sollte öfter f5 drücken...