Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
18. Jul 2007
Nimm es mir bitte nicht übel, aber ich bemühe mich immer um Code mit einem Fünkchen Wiederverwendbarkeit. Ich war spontan geschockt, als ich sah, wie du den Code aus seinem schönen Funktionskorsett herausgeschnitten hast. Aber egal - de gustibus non est disputandum.
Freundliche Grüße
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
18. Jul 2007
Hallo Ansgar,
ExtractDigits() läuft mit FOOBAR etwas mehr als sieben mal so schnell wie ExtractNumbers(). Ich habe den Code aber bewusst als Alternative und nicht als Verbesserung bereit gestellt.
Freundliche Grüße
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
18. Jul 2007
Hallo Michael,
du solltest Result zuerst initialisieren.
Hier noch eine Alternative:
function ExtractDigits(s: string): string;
var
i, iLength: Integer;