En string er et array, right?

0..255 er ShortString.

AnsiString er meget længere.

String er enten ShortString eller AnsiString afhængig af compiler setting.

Ifølge dokumentationen har ShortString 2 byte overhead og AnsiString 4
byte overhead.

AnsiString må være 4 byte length.

ShortString må være 1 byte length + 1 byte som jeg ikke ved havd indeholder.

Det fremgår ikke af dokumentationen hvorvidt de fysisk er gemt sidste.

(jeg vile have gættet på at de var gemt først, fordi ellers er det
bøvlet at lave dem ægte variable length).

Og ja en Strng kan accesses med index ligesom et array.

Det er ikke korrekt.

En string kan indeholde stort det uendeligt mængder karekterer. (Max 2 GB)

Det du snakker om hedder en ShortString, Og det var det det i TP og Delphi 1 hed en String. Det er en Array af chars på i alt 256 pladser.  Pladserne 1..255 kan du skrive på, mens på plads 0 ligfer størelsen af strengen.

Prøv etv det her kode :

procedure TForm1.Button1Click(Sender: TObject);
var
  s : ShortString;
  p : PChar;
begin
  s := 'Her er en hest';
  Memo1.Lines.Add(InttoStr(Sizeof(s)));
  p := @s[1];
  Memo1.Lines.Add(char(p^));
  p := @s[0];
  Memo1.Lines.Add(IntToStr(Integer(p^)));
  Memo1.Lines.Add(IntToStr(Length(s)));
end;


Jens B

Kan du eller nogen andre ikke forklare det med byte length?

Det er simpelthen mængen af hukommelse der er allokeret til at opbevare længden af stengen

Med en ShortString er det en Byte, og der af følgende bliver længden max 255 karekterer. Og så lige til spørgsmålet om hvad den sidste byte et til så er den en null terminator. Altså #0.

Jens B

Kig lidt på det her :

procedure TForm1.Button1Click(Sender: TObject);
type
  pInteger = ^Integer;
var
  s : ShortString;
  p : PChar;
  t : String;
  q : pInteger;
begin
  s := 'Her er en hest';
  Memo1.Lines.Add(InttoStr(Sizeof(s)));
  p := @s[1];
  Memo1.Lines.Add(char(p^));
  p := @s[0];
  Memo1.Lines.Add(IntToStr(Integer(p^)));
  Memo1.Lines.Add(IntToStr(Length(s)));

  t := 'Her er en hest';
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
  t := t + t;
  q := @t[1];
  dec(q);
  Memo1.Lines.Add(IntToStr(q^));
  Memo1.Lines.Add(IntToStr(Length(t)));
end;


Jens b

Det betyder du relativ simpelt kan lave din egen funktion der "måler" længden af en Streng :

type
  pInteger = ^Integer;

Pascal version :
Function JbLengthPAS(const Value : String) : Integer;
var
  q : pInteger;
begin
  q :=  Pointer(Value);
  dec(q);
  Result := q^;
end;

Assembler version :
Function JbLengthASM(const Value : String) : Integer;
asm
  sub eax, $04
  mov eax,[eax]
end;

hov den virker ikke ved en tom streng.

Det gør den her :

Function JbLengthPAS(const Value : String) : Integer;
var
  q : pInteger;
begin
  Result := 0;
  q :=  Pointer(Value);
  if q = nil then
    exit;
  dec(q);
  Result := q^;
end;

Function JbLengthASM(const Value : String) : Integer;
asm
  test eax, eax
  jz @@Done
  sub eax, $04
  mov eax,[eax]
  @@Done:
end;


Jens B

Blev du klogere, eller forvirede jeg dig bare ?