Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
6. Aug 2009
Ja, denke sobald man in einer while-Schleife eine Zählvariable inkrementiert, sollte man über eine for-Schleife nachdenken. Gefällt mir besser, da kompakter.
StringReplace ist natürlich auch sinnvoll, da man eine vorhandene Funktion nutzt. Mich reizte in dem Moment halt wieder die grundsätzliche Umsetzung mit eigenem Code.
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
6. Aug 2009
muss wohl an der Wärme liegen...
function SameCharsInString(AString : String) : Boolean;
var
i, Count : Integer;
begin
count := length(AString);
if count < 2 then
Result := False
else
begin