Forum: Sonstige Fragen zu Delphi
Delphi
by XHelp,
29. Jul 2010
Die Funktion von bernau macht aus doppelt>"dpet". Bedenke, dass du die Funktionen schon mit dem passendem Wort testen musst, wo auch die Buchstaben doppelt vorkommen. Meine Funktion macht aus ddooppppeelltt>doppelt. Du hast recht, wenn es "mal doppelt, mal nicht" ist, dann wird man nichts sinnvolles machen können.
Forum: Sonstige Fragen zu Delphi
Delphi
by XHelp,
28. Jul 2010
Du kannst den RegEx (.)\1 benutzen und durch die 1. Gruppe ersetzen.
Forum: Sonstige Fragen zu Delphi
Delphi
by XHelp,
28. Jul 2010
Vllt sowas wie:
function parseDoubleLetters(s:string):string;
var
i:integer;
begin
i:=1;
result:='';
while (i<=length(s)) do begin
result:=result+s;
if (s=s) then begin