Forum: Neuen Beitrag zur Code-Library hinzufügen
by himitsu,
25. Dez 2007
nja, wenn jemand die Überschrift in irgendwas mit Optimieren umbenennt, dann könnten wir mit Klammern weitermachen, aber so past's nicht so ganz zum Thema ;)
im Anhang:
Ratio umgekehrt (so sehn die Zahlen doch netter aus? ... Dauer im Vergleich zum Original)
und es wird angezeigt ob das Testergebnis richtig (OK) ist.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by himitsu,
24. Dez 2007
zum Original-Code:
function EntferneDoppelZeichen(Const S: String; C: Char): String;
var
i : integer;
begin
Result := '';
i := Length(S);
repeat
if S = C then
while (i > 1) and (S = C) do // erst Wertebereich für i prüfen
Forum: Neuen Beitrag zur Code-Library hinzufügen
by himitsu,
23. Dez 2007
Dann hast du String Replace nicht verstanden, denn das ist genauso wie StringReplace geplant ist, also völlig richtig.
Recursionen gibt es nicht.
S := 'xxxxxxxxxx';
// 1122334455
S := StringReplace(S, 'xx', 'x', );
// S = 'xxxxx'
Forum: Neuen Beitrag zur Code-Library hinzufügen
by himitsu,
23. Dez 2007
Wie nicht richtig funktioniert?
was für Fehler?
und wie sollte deine Funktion da helfen, bzw. wie soll man die nutzen?
ja und wozu ist der leere Try-Except-Block?
if Length(S) < 2 then exit; : was pasiert wenn S nur 1 Zeichen lang ist?