new(...) bei PAnsiChar?

[Gargamel]

Hi

Wenn ich eine Variable vom Typ PAnsiChar habe, spielt es anscheinend keine Rolle, ob ich diese mit new(variable) versehe oder nicht. Bei einem Record aber schon. Wieso ist das so?

Hier der Quellcode:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TDaten = record
    name:string;
  end;
  PDaten = ^TDaten;

var
  Form2: TForm2;
  daten:array of PDaten;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var text_s:string;
    text_p:PAnsiChar;
begin
  text_s:='Irgendwas';
  new(text_p); // sinnvoll oder nicht?
  text_p:=PAnsiChar(AnsiString(text_s));

  setLength(daten,1);
  new(daten[0]); 
  daten[0].name:='Trallala';

  Form2.Caption:=WideString(text_p); // nur zum prüfen
end;

[mkinzler]

Nein. Ein Pchar ist ein Zeiger, der auf einen String zeigt. Du forderst mit dem new einen Speicherbereich von einen Char an ( 2 Byte) verwendest den Speicher aber nicht, weil der Zeiger anschliessend ja auf eine andere Speicheradresse umgebogen wird ( Adresse der Stringvariable).
Der ursprünglich angeforderte Speicherbereich wird nie freigegeben.

[Gargamel]

Ah ok, vielen Dank.