AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

UniqueString aus system.pas

Ein Thema von TurboMagic · begonnen am 8. Nov 2018 · letzter Beitrag vom 9. Nov 2018
Antwort Antwort
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
84 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

UniqueString aus system.pas

  Alt 8. Nov 2018, 23:06
Hallo,

in System.pas ist eine UniqueString routine für diverse string Typen (Unicode, WideString und AnsiString) enthalten,
nicht jedoch für RawByteString. Hier aus Auszug die AnsiString Variante aus 10.1 Berlin. Kann diese auch mit
RawByteString korrekt benutzt werden, da man diesen als eine Sonderform des AnsiStrings betrachten darf?


Code:
procedure UniqueString(var str: _AnsiStr);
{$IFDEF PUREPASCAL}
begin
  InternalUniqueStringA(str);
end;
{$ELSE !PUREPASCAL}
{$IFDEF CPUX86}
asm
        JMP    InternalUniqueStringA
end;
Und noch was aufgefallen als ich mir eben InternalUniqueStringA angeschaut habe:

Code:
function InternalUniqueStringA(var Str: _AnsiStr): Pointer;
{$IFDEF PUREPASCAL}
var
  P: PStrRec;
begin
  Result := Pointer(Str);
  if Result <> nil then
  begin
    Result := Pointer(Str);
    P := Pointer(PByte(Str) - sizeof(StrRec));
    if P.refCnt <> 1 then
    begin
      Result := _NewAnsiString(P.length, P.codePage);
      Move(_PAnsiChr(Str)^, _PAnsiChr(Result)^, P.length);
      _LStrClr(Str);
      Pointer(Str) := Result;
    end;
  end;
end;
{$ELSE !PUREPASCAL}
Warum gibt's diese Result := Pointer(Str); Zuweisung zweimal?
Ist der zweite Aufruf nicht überflüssig?
  Mit Zitat antworten Zitat
Redeemer
Online

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
410 Beiträge
 
Delphi 2009 Professional
 
#2

AW: UniqueString aus system.pas

  Alt 9. Nov 2018, 09:23
Zu 1.: Ja, es gibt bei keiner Methode sowohl eine RawByteString- als auch eine AnsiString-Überladung. Zumindest kenne ich keine.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
6.390 Beiträge
 
Delphi XE4 Professional
 
#3

AW: UniqueString aus system.pas

  Alt 9. Nov 2018, 10:04
Hallo,
Zitat:
Ist der zweite Aufruf nicht überflüssig?
Ja, sieht überflüssig aus.
Heiko
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
84 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#4

AW: UniqueString aus system.pas

  Alt 9. Nov 2018, 22:26
Das mit dem UniqueString ist doch nicht so einfach!

Diese UniqueString Methode gibt's mehrfach überladen, z.B. mit UnicodeString oder WideString.
Das am besten passende Overload aus System.pas ist dieses hier:

procedure UniqueString(var str: _AnsiStr);

Nur wie bekomme ich einen RawByteString nach _AnsiStr und das auch noch auf allen Plattformen?

Die doppelte zuweisung hab' ich übrigens als Report erfasst:

https://quality.embarcadero.com/browse/RSP-21565
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2018 by Daniel R. Wolf