Hallo,
ich experimentiere grad mit der Übergabe von Zeigern anstele von VAR Parametern und frage mich, wie ich das folgende erreichen kann:
Delphi-Quellcode:
procedure GetThis(pp: Pointer);
begin
pp := value;
end;
Wenn ich die Prozedur selber definieren kann, könnte ich auch das hier schreiben:
Delphi-Quellcode:
procedure GetThis(var pp: Pointer);
begin
pp := value;
end;
Wenn ich aber ein Interface nutze, sieht die Sache schon anders aus.
Wie erreiche ich dann, das auch die obere Funktion den Wert übergibt.
Gibt es da vielleicht eine Compiler-Option? Wenn ja, welche?
Hier ist noch ein Testbeispiel zur Verdeutlichung, was ich meine:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
lblShowString: TLabel;
lblShowPChar: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
FPChar: PChar;
FString:
String;
public
{ Public-Deklarationen }
procedure GetPChar(this: PChar);
procedure GetString(this:
String);
procedure GetStringByReference(
var this:
String);
procedure GetPCharByReference(
var this: PChar);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var PCh: PChar; Str:
String;
begin
FString := Edit1.Text;
FPChar := PChar(FString);
GetStringByReference(Str);
lblShowString.Caption := Str;
GetPCharByReference(PCh);
lblShowPChar.Caption := StrPas(PCh);
end;
procedure TForm1.GetPChar(this: PChar);
begin
this := FPChar;
end;
procedure TForm1.GetPCharByReference(
var this: PChar);
begin
this := FPChar;
end;
procedure TForm1.GetString(this:
String);
begin
this := FString;
end;
procedure TForm1.GetStringByReference(
var this:
String);
begin
this := FString;
end;
end.
Wenn ich hier GetStringByReference und GetPCharByReference aufrufe, dann klappt die Parameterübergabe.
Wenn ich jedoch die anderen beiden Prozeduren verwende, dann gibt
GetString() gar nichts aus, Wert bleibt komplett unverändert, wie ich das auch bei CallByValue erwarte.
GetPChar() gibt Datenmüll aus.
Wie kann ich nun Pointer in der Form wie in GetPChar() erhalten?
Wie gesagt, wenn ich ein Interface verwenden will/muss, dann kann ich die Deklaration nicht für mich passend ändern, das geht nur bei komplett eigener Defintion.