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

[glkgereon]

ich sag es geht noch kürzer:

Delphi-Quellcode:

function workstring(Value:string):string;
var i:integer;
begin
  for i:=1 to length(Value) do
    if (i mod 2=0) and (Value[i]<>' ') then Value[i]:='.';
  Result:=Value;
end;

oder gar so:

Delphi-Quellcode:

procedure workstring(var Value:string);
var i:integer;
begin
  for i:=1 to length(Value) do
    if (i mod 2=0) and (Value[i]<>' ') then Value[i]:='.';
end;

Edit: bedingung übersehen