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

Thema durchsuchen

Ansicht

Themen-Optionen

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

Ein Thema von ch33seburger · begonnen am 4. Jan 2005 · letzter Beitrag vom 5. Jan 2005

Vorheriger Beitrag

Nächster Beitrag

Magier

Registriert seit: 2. Okt 2004
Ort: Bergisch Gladbach
39 Beiträge

Delphi 7 Personal

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

4. Jan 2005, 23:24

zusammenfalten · markieren

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;