Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Delphi Move innerhalb von TBytes (https://www.delphipraxis.net/205776-move-innerhalb-von-tbytes.html)

Benmik 15. Okt 2020 12:55

Move innerhalb von TBytes
 
Folgende Situation:
TB:TBytes mit 1000 Bytes. Jetzt dieser Code:
Delphi-Quellcode:
Move(TB[200],TB[0],800;
SetLength(TB,800);
Funktionieren tut es. Ist das sinnvoll? Sollte man über eine Temp-Variable gehen? Wobei wird am wenigsten Aufwand betrieben (umkopieren etc.)?

Uwe Raabe 15. Okt 2020 13:05

AW: Move innerhalb von TBytes
 
Würde ich mir jetzt keine Gedanken machen und einfach Delete aufrufen. Das funktioniert auch mit anderen Array-Typen.

Delphi-Quellcode:
  Delete(TB, 0, 200);

Benmik 15. Okt 2020 13:16

AW: Move innerhalb von TBytes
 
Tatsächlich so einfach? Ich hatte schwer rumgesucht und war unter anderem auf diesen Beitrag gestoßen (OK, FreePascal, aber immerhin von 2017; geht das in Delphi und in FreePascal nicht?).
Egal, das ist ja schön, danke.

himitsu 15. Okt 2020 14:11

AW: Move innerhalb von TBytes
 
Joar, aber erschreckender Weise wurden diese string-like Array-Operatoren erst im Delphi 10.1 eingeführt, wenn ich mich nicht irre.
+ , Insert und Delete ... Copy ging schon vorher

http://docwiki.embarcadero.com/RADSt...pport_Routines
https://www.embarcadero.com/products/delphi/whats-new
https://www.delphipraxis.net/198002-...-loeschen.html


Über die Record-Operatoren könnte man sich sowas aber auch schon früher selbst bauen.

Rollo62 15. Okt 2020 15:01

AW: Move innerhalb von TBytes
 
Ich benutze noch teilweise selbstgebaute, mit Move und Pointern ...
aber möchte auch generell auf die "Neuen" umstelllen.

Gibt es vielleicht irgendwo einen Benchmark zu den String-Like Funktionen ?
Wäre gut mal zu sehen wie performant die wirklich sind.
(Bei Delphi hatte ich schon öfters mal zu hohe Erwartungen :stupid:)

Benmik 15. Okt 2020 15:26

AW: Move innerhalb von TBytes
 
Zitat:

Zitat von himitsu (Beitrag 1475554)

Delphi-Quellcode:
string.Join
?! Ich glaub's nicht.

himitsu 15. Okt 2020 15:30

AW: Move innerhalb von TBytes
 
Zu cool um wahr zu sein?

http://docwiki.embarcadero.com/Libra...Helper_Methods


Und nee, nicht getestet.
Aber bis auf Ausnahmen versuche ich die Standardfunktionen zu verwenden, bevor ich eigenes Einbau. (weniger eigener Code = theoretisch weniger Fehler)

Uwe Raabe 15. Okt 2020 15:56

AW: Move innerhalb von TBytes
 
Zitat:

Zitat von Rollo62 (Beitrag 1475555)
Gibt es vielleicht irgendwo einen Benchmark zu den String-Like Funktionen ?
Wäre gut mal zu sehen wie performant die wirklich sind.

Wegen des generellen Overheads, den diese Funktionen ja haben müssen, um alle Anwendungsfälle abzudecken, ist die Performance im vorliegenden Fall sicher nicht besser als das gezeigte Move und SetLength. Am Ende tut die interne Routine auch nichts anderes. (Wer sich das selbst ansehen möchte wird bei _DynArrayDelete in System.pas fündig)

Ich finde aber, hier überwiegt Lesbarkeit und Wartbarkeit. Sollte es wirklich zu Performance-Problemen kommen, kann man ja immer noch auf den nativen Ansatz zurückgreifen. Aber eben auch nur dann.

Benmik 15. Okt 2020 16:21

AW: Move innerhalb von TBytes
 
Zitat:

Zitat von himitsu (Beitrag 1475557)

Hab ich erst vor zwei Tagen durchgesehen und Join völlig übersehen. Wo wir dabei sind, was ist eigentlich der Unterschied zwischen Parse und ToInteger?
Zitat:

Zitat von Uwe Raabe (Beitrag 1475558)
Wer sich das selbst ansehen möchte wird bei _DynArrayDelete in System.pas fündig

Hatte ich nicht lokalisieren können. Sind ja mehr als 2 Zeilen, aber deine Sicht ist sicher richtig. Ich hatte in meinem Code noch eigens einen Kommentar dazu geschrieben, was da eigentlich geschieht, weil das Move deutlich unübersichtlicher war als im gezeigten Beispiel; das kann ich mir jetzt sparen und das allein ist es schon wert.

Uwe Raabe 15. Okt 2020 16:58

AW: Move innerhalb von TBytes
 
Zitat:

Zitat von Benmik (Beitrag 1475559)
was ist eigentlich der Unterschied zwischen Parse und ToInteger?

Funktionell offenbar keiner. Existiert vielleicht nur aus Symmetriegründen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:06 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz