Get(anyPointer) Verständnisfrage

[Neutral General]

Hallo,

Deine Erklärung ist etwas verwirrend aber folgendes funktioniert gleich:

Delphi-Quellcode:

procedure Irgendwas1(var S: String);
begin
  S := FString;
end;

procedure Irgendwas2(S: PString); // oder statt PString einfach ^String
begin
  S^ := FString;
end;

procedure TForm1.Button1Click(Sender: TObject);
var test: String;
begin
  Irgendwas1(test);
  Caption := test;
  Irgendwas2(@test);
  Caption := test;
end;

[uligerhardt]

Zitat von Neutral General:

Deine Erklärung ist etwas verwirrend

Ja, etwas.

Zitat von Neutral General:

procedure Irgendwas2(S: PString); // oder statt PString einfach ^String

Bei S: ^String nörgelt der Compiler. Man braucht schon einen benannten Typen.

[DeddyH]

Und man sollte IIRC auch sicherstellen, dass der reservierte Speicherplatz, auf den der übergebene Pointer zeigt, ausreichend dimensioniert wurde, bevor man hineinschreibt.