http://lazarus-ccr.sourceforge.net/ - SetLength

[Mathias]

Bei http://lazarus-ccr.sourceforge.net/docs ... ength.html hat sich ein Fehler eingeschlichen.

Code: Alles auswählen

Program Example85;
 
{ Program to demonstrate the SetLength function. }
 
Var S : String;
 
begin
  FillChar(S[1],100,#32);  // Gibt Speicherferletzung
  Setlength(S,100);
  Writeln ('"',S,'"');
end.

Sollte so sein:

Code: Alles auswählen

Program Example85;
 
{ Program to demonstrate the SetLength function. }
 
Var S : String;
 
begin
  Setlength(S,100);
  FillChar(S[1],100,#32);
  Writeln ('"',S,'"');
end.

[theo]

Stimmt. Machst du einen Bugtracker Eintrag?

Tipp: Das ist ein Fehler in den FPC Docs, nicht in Lazarus (rtl/system/setlength).
http://www.freepascal.org/docs-html/rtl ... ength.html

http://bugs.freepascal.org

[marcov]

Ich werde es korrigieren in SVN. (es ist übrigens nicht ganz falsch wie es da steht, String im Default Modus ist ein Shortstring, also Platz für 255 Zeichen sind statisch reserviert)

[theo]

(es ist übrigens nicht ganz falsch wie es da steht, String im Default Modus ist ein Shortstring, also Platz für 255 Zeichen sind statisch reserviert)

Aber dann bräuchte es kein SetLength?

[mse]

Doch, damit S[0] gesetzt wird.

[theo]

Ach so. Das hatte ich wohl tatsächlich noch nie ausprobiert bei ShortString.

Aber jetzt stehe ich grad auf dem Schlauch. Wo ist meine Fehlüberlegung?
Warum wird hier das abschließende Gänsefüßchen unterdrückt?

Code: Alles auswählen

Var S : String[5];
begin
FillChar(S[1],5,'1');
ShowMessage('"'+S+'"');
end;        

Lazarus 1.5 r48979M FPC 3.1.1 x86_64-linux-gtk 2

[mse]

Weil hier im Längenbyte S[0] ein zufälliger Wert steht. Also S[0]:= #5 oder setlength(S,5).

[theo]

Was macht denn dann

Code: Alles auswählen

Var S : String[5];

Setzt das kein Längenbyte?

[mse]

Nein. Das reserviert lediglich 6 Byte Speicher.

[theo]

Nein. Das reserviert lediglich 6 Byte Speicher.

OK, danke. Wieder was gelernt.

[Mathias]

Ich werde es korrigieren in SVN. (es ist übrigens nicht ganz falsch wie es da steht, String im Default Modus ist ein Shortstring, also Platz für 255 Zeichen sind statisch reserviert)

Auf jeden Fall kommt ein SIGSV.