Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mytbo,
3. Nov 2023
Richtig! Diese Lösung ist ca. 1/3 schneller als mein Vorschlag. Da der Fragesteller kein Neuling ist und wir nicht wissen, welche zusätzlichen Anforderungen es noch gibt, hat sich mein Vorschlag konkret auf die Frage des Posters und der Verbesserung am Beispiel bezogen. Ich persönlich hätte die mORMot Lösung genommen.
Bis bald...
Thomas
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mytbo,
3. Nov 2023
Grundsätzlich hast du nichts falsch verstanden. In der Anfrage ging es um Beschleunigung am Beispiel. Meine Lösung ist ca. 1/3 schneller als das TStrings Äquivalent. In der Praxis vermutlich irrelevant.
Bis bald...
Thomas
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mytbo,
2. Nov 2023
Laufzeit ca. 4 Millisekunden:
const
MAX_COUNT = 100000;
function GetNextItem(const pmcDelimiter: Char; pmSrcPos: PChar; out pmNextPos: PChar): String;
var
pStart: PChar;
begin
if pmSrcPos = Nil then
begin