Forum: Object-Pascal / Delphi-Language
Delphi
by Lannes,
4. Jun 2011
da kann man mal sehen wie das Leben so spielt. Mir war übel weil ich mit Strings operieren muss und es nicht performant hinbekommen habe. Nun geht es mir besser:wink:
@himitsu:
damit es richtig langsam wird, Verkettung umdrehen:
s := ''; for i := 1 to 1000 do s := '0' + s;:zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by Lannes,
3. Jun 2011
und beide sind ultimativer :mrgreen:
Meinen besten Dank an shmia und himitsu :thumb:
Die Codes funktionieren vorzüglich und sind etwa gleich performant.
Sie sind ca. 170 mal schneller als die Möglichkeit mit einer Schleife: http://www.delphipraxis.net/1104375-post18.html
Forum: Object-Pascal / Delphi-Language
Delphi
by Lannes,
3. Jun 2011
ja, wegen der Performance hatte ich nachgefragt.
Meine Versuche eine Funktion zu erstellen, die direkt um einen Wert per Pointer-Arithmetik erhöht, haben bisher leider nicht zum Ziel geführt.:(
Trotzdem Danke, habe meine bisherige durch Deine ausgetauscht, ich werde dann mal meine Bemühungen fortsetzen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Lannes,
1. Jun 2011
so etwas ähnliches suche ich schon länger :thumb:
Hast Du es noch etwas ultimativer irgendwo herumliegen?:
function IncrementWithMask(const Number, Mask:string, n: Integer):string;
//
alteNummer := 'Z024D00F';
neueNummer := IncrementWithMask(alteNummer, 'A000A00A', 10000);