Funktion um Stringlänge zu ermitteln

[choose]

Hallo Luckie,

per definition ist ein Delphi-String nicht durch ein null-Zeichen begrenzt sondern durch die Längenbeschreibung am Anfang des Datenbereichts. Mir ist bewusst, dass er Gründen der vereinfachten Kompatibilität mit einem null-Zeichen endet, um Ausdrücke der Art

Delphi-Quellcode:

PChar(AString)

ohne eine erneute Kopie zu realisieren, aber Deine Implementierung von mylength ist kein Ersatz für Length, weil es Fälle gibt, in denen die Rückgabewerte voneinander abweichen können:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  AString = 'a delphi string can contain '#0' several '#0' null characters';
begin
  Assert( Length(AString) = mylength(AString) );
end;

[Luckie]

Jupp. Stimmt, aber auf die Schnelle ist mir nichts besseres eingefallen. ;)

[Airblader]

Ich erwähne, dass es auch nicht um die Funktion direkt geht, es ging eig. nur darum, um ihm zu zeigen,
wie das mit eigenen Funktionen, Parametern und Rückgabewerten geht ;)
Die eigentliche Idee war ja auf der meines Freundes basiert, ich hatte sie zuerst nur so umgesetzt

air

[Ultimator]

Aber versucht mal, per Code auf MeinString[0] zuzugreifen.
Das mag der Compiler nicht ;)

[Jasocul]

Zitat:

Zitat von Ultimator

Aber versucht mal, per Code auf MeinString[0] zuzugreifen.
Das mag der Compiler nicht ;)

Stimmt. Habe ich aber auch schon ein paar Jahre nicht mehr so gemacht. :oops:

[Pseudemys Nelsoni]

mit nem statischen string geht das aber, siehe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string[255];
begin
  s := 'blah';
  Showmessage(IntToStr(Byte(s[0])));
end;

[Dax]

Ein "normaler" Pascal-String hat am Anfang soweit ich weiß ein DWORD als Längenbeschreibung, wieso nicht das auslesen?

Delphi-Quellcode:

function MyLen(S: string): Integer;
begin
  Result := PDWORD(Integer(S)-4)^;
end;

Edit: Da war ein Adressoperator zu viel ;)

[Pseudemys Nelsoni]

das gibt aber falsche ergebnisse

[Airblader]

Zitat:

Zitat von Dax

Ein "normaler" Pascal-String hat am Anfang soweit ich weiß ein DWORD als Längenbeschreibung, wieso nicht das auslesen?

Delphi-Quellcode:

function MyLen(S: string): Integer;
begin
  Result := PDWORD(Integer(@S)-4)^;
end;

Das müsste man nun aber als OT beschreiben. :mrgreen:
Mein Kumpel weiss nichtmal wie man eigene Funktionen deklariert, dann wird er ja schreien bei dem Einzeiler
(da bin ich übrigens auch kurz davor *gg*)

air

[mael]

AnsiStrings benutzen ja jetzt 4 Bytes = 1 Integer um die Länge zu speichern, deswegen geht s[0] nicht.

So ähnlich geht es aber immer noch:

Delphi-Quellcode:

function Len(const s: string): Integer;
begin
  if Pointer(s) = nil then
    Result := 0
  else
    Result := PInteger(Cardinal(s) - 4)^;
end;