-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
2. Feb 2016
Guten Morgen FarAndBeyond, Lucki, alle
ich habe gerade bemerkt(FarAndBeyond, du scheinst FPC'ler zu sein), das ich in der unit überall den NativeUInt versauwurschtelt habe. Ich meine der Typ war mit D2007 eingeführt und buggy bis ?D2010? und ich weiß nicht, ob der FPC ihn inzwischen kennt.
Für gewöhnlich deklariere ich den Typ selbst(Für alle Compiler, wo er fehlt oder falsch deklariert war...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
31. Jan 2016
ich mach nun mal den Deckel für mich zu, damit ich die Datei löschen kann. Habe mal 2 Versionen zur Veranschaulichung zum Ausgang einer Fixen-String Länge von 128-Zeichen gemacht.
Hoffe diesmal ist es leserlicher, da ich schönere Typen-Bezeicher gewählt habe.
Mit allen verfügbaren bisher dargelegten plus der 2 anfolgenden Routinen die Benchmarks vornweg:
Version a: (Tiny)
function...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Hänge dir mal den zusätzlichen Test bei.
Siehe ganz unten Test128;
Dann brauchst du nicht erst den Test schreiben. Cheers
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Denke schon, drum hab ich die Unicode defines mit reingemacht. Also dann bis später...
Hab's fertsch! Habe die Wiederholung auf 32000000 gedreht...
Code hänge ich an, wenn du oder ein anderer soweit ist:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Nun gut. So wie ich den TE verstehe, kann der String !max! 128 Zeichen lang sein.
Wäre also, wie Sir Rufo's Code eine neue Kategorie für das einfügen.
Mach sie auf(in meiner Unit), füge einen neuen Test hinzu, der davon ausgeht und los geht's. Da hätte ich auch sofort 'ne fast Version im Kopf.
Wollen wir?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Cheers Mr Pommeroy! Mr Luckie
Well ... das genaue aufteilen in die 4er Teile des Strings und deren Positions-Alignments haben mir zu lange gedauert.
Da der String "xyz" oder "1234567890", riesßig, oder, oder sein kann, waren die langsamen Modulo's für das Alignen der PChars gefragt etc.
Wäh that kills a cat! (Er trinkt aus der Blumenvase)
And last but not least -> Mein code wäre vom...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Wäre schön, wenn du den Staubwedel holst. :stupid:
Ich hatte einen ähnlichen Ansatz verfolgt, habe ihn wieder nach 10min verworfen, drum würde es mich freuen, wenn du die Zeit findest. Just4Fun
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Hallo Michael,
klingt gut! Wäre schön, wenn du es in Zeilen ausdrückst. Kann nur neue Perspektiven aufzeigen, man lernt nie aus! Würde mich freuen..
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
30. Jan 2016
Guten Morgen,
wollte Dejan Vu's produktiven Worten eigentlich den Vortritt beim Abschluß dieses Threads lassen. Doch:
Nu kuck ... muß meine gewohnte low-Level Syntax nun doch nicht in Frage stellen. Mir fällt's gerade wie Schuppen von den Augen:
Ich vergleiche hier die Result-Länge mit der Source-Länge. :roll: Na sooo wird dad doch auch nix!
Also ... habe ich die Unit nochmals...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
28. Jan 2016
@Sir Rufo,
der unangemeldeten Challange halber habe ich den vorherig geposteten Code mal gefixt. Habe mir die 8min genommen es zu testen.
Resultate:
Auch hier wieder CountOfChar div APos length loop. Da hier alles variabel fallen die Benchmarks auch anders aus.
JFYI, includes the test, cheers.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
28. Jan 2016
@Mavarik
so da gibt jetzt der "Hugo" mal noch abschließend seinen Senf hinzu.
Dem Link stimme ich vollends zu.
Bitte schau es dir mal genauer an, was ich mache. Verstanden hast du es auch noch nicht. Der Trick ist nicht das kopieren. Das könnte man in den Quad folgen auch so lösen:
.....
Dest^ := Src^;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
28. Jan 2016
@Dejan Vu
Der TE ist in #5 bereits auf eine Lösung gekommen. Warum du dem TE in #7 wieder eine 2. Variante von #5 presentierst wird, erschließt sich mir nicht. Er hat gefragt, ihm ist das Insert() als eigene Lösung zuzugestehen. Völlig in Ordnung, er lernt es ja gerade.
Mavarik hat ihm in #6 wohlwollend zeigen wollen, wie man das schneller machen... Warum? Nun ich würde davon ausgehen, das...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
27. Jan 2016
Sitze grad beim Abendessen.
:oops::oops:
Sorry, da Fehler in meiner letzten Version, welche ich hochgeladen und deren Resultate gepostet habe..
habe den DupeString Shift auf 10 limitiert, um mal bei der Insert-Variante noch vor morgen früh ein Ergebnis zu bekommen:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
27. Jan 2016
Hab mal das insert von Dejan Vu in gefixter Version hinzugefügt, Mavarik's Version gefixt und meine Änderung an Sir Rufo's version kontrolliert und überarbeitet..
Das insert() kommt, wie erwartet, im Vergleich nach gefühlten Jahren wieder..
Edit: Wird es überhaupt mit der Aufage fertig? Ich habs nach 30min abgebrochen.
Alle Funktionen liefern nun gültige Resultate.
Neue Verison ist...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
27. Jan 2016
@Sir Rufo
:thumb: fair und kannst was wegstecken!
Vorab, in !Mavarik!'s und deinen Versionen habe ich kleine compilierungs Änderungen gemacht.
Gibt es da Einwände ... sofort losbrüllen! :shock: Mein altes XE hat's nicht fressen wollen.
geht los habe den Shift auf 12 erhöht (siehe Test):
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
27. Jan 2016
Zum Spaß, hab ich mal ne kleine Benchmark Sache gemacht..
Habe mal laaaange strings unterdrückt, da MaverikQuadUnderScoreInjector etwas laaange braucht.
@Sir Rufo
Darf ich deine Resultate zum Spaß beihängen? Habe ne kleine Test-Unit gebastelt. Mit deiner StrInsertEveryNthPos function.. :pale:
Sonst würd ich die wieder rausnehmen :cyclops: und nur für Maverik der Validierung halber...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
27. Jan 2016
@mav
meine Portierung hält sich exakt an das, was der TE wollte. Ich halte es für abwägig, das LineEndings oder andere ctrl chars im TEdit landen...
Klar geht noch was:
function EH_QuadUnderScoreFillerBy4(Const Text: String): String;
type PMyQuadMover = {$IFDEF UNICODE}PUInt64{$ELSE}PLongWord{$ENDIF};
var
-
Forum: Sonstige Fragen zu Delphi
Delphi
by EgonHugeist,
27. Jan 2016
Da es sich explizit um Quad Folgen handelt..
@Maverik ungetestet aus dem Handgelenk geschüttelt:
edit:
Hab's nun doch getestet und da hat noch das mod gefehlt, sonst hängt man auch noch '_' and den letzten quad an
function leerzeichen(Const Text: String): String;
type PMyQuadMover = {$IFDEF UNICODE}PUInt64{$ELSE}PLongWord{$ENDIF};
var
