1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TTreeListRecord = record
    ColValue0: string;
    ColValue1: string;
  end;

  ...
  private
    fTreeListRecord: ^TTreeListRecord;
    fTreeList: TList;

  ...
  SetData(fTreeList, fTreeListRecord); // Aufruf in der anderen Unit (siehe unten..)					

1:
2:
3:
4:
5:
6:

  function TChecklistePrintProcessMgr.SetData(aTreeList: TList;
    aTreeListRecord: TTreeListRecord): boolean;
  begin
    fTreeList := aTreeList;
    fTreeListRecord := aTreeListRecord;
  ...					

1:
2:
3:
4:
5:
6:

 function TChecklistePrintProcessMgr.SetData(aTreeList: TList;   
    aTreeListRecord: TTreeListRecord): boolean;   
  begin   
    fTreeList := aTreeList;   
    fTreeListRecord := aTreeListRecord;   
  ...					

1:

SetData(fTreeList, fTreeListRecord^);					

1:

Inkompatible Typen: 'Unit1.TTreeListRecord' und 'Unit2.TTreeListRecord'					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit Unit1;

interface

uses
  Unit2,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnCopyRecord: TButton;
    procedure btnCopyRecordClick(Sender: TObject);
  private
    fMyRec: TMyRec;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnCopyRecordClick(Sender: TObject);
var
  lMyClass: TMyClass;
begin
  lMyClass := TMyClass.Create;
    fMyRec.Test := 'TEST';
  lMyClass.SetData( fMyRec );
  lMyClass.SetData( @fMyRec );
  FreeAndNil( lMyClass );
end;


end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

unit Unit2;

interface

type
  PMyRec = ^TMyRec;
  TMyRec = record
    Test: string;
  end;

  TMyClass = class
  public
    procedure SetData(aMyRec: TMyRec); overload;
    procedure SetData(aMyRec: PMyRec); overload;
  end;

implementation

uses
  Dialogs;

{ TMyClass }

procedure TMyClass.SetData(aMyRec: TMyRec);
begin
  MessageDlg( aMyRec.Test, mtInformation, [mbOK], 0 );
end;

procedure TMyClass.SetData(aMyRec: PMyRec);
begin
  MessageDlg( aMyRec.Test, mtInformation, [mbOK], 0 );
end;

end.					

1:
2:
3:
4:

procedure TMyClass.SetData(aMyRec: PMyRec);
begin
  MessageDlg( aMyRec^.Test, mtInformation, [mbOK], 0 );
end;					

1:
2:
3:
4:
5:

type
  TTreeListRecord = record
    Value: String;
    IsChild: Boolean;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  procedure TChecklistePrintProcessMgr.SetData(tv: TTreeView);
  var
    i: Integer;
    ptlr: ^TTreeListRecord;
  begin
    for i:=0 to tv.Items.Count-1 do
    begin
      new(ptlr);
      ptlr^.Value:=tv.Items[i].Text;
      ptlr^.IsChild:=tv.Items[i].Parent<>nil;
      fTreeList.Items.Add(ptlr);  
        // fTreeList muss in TChecklistePrintProcessMgr.Create
        // erzeugt worden sein 
    end;
    // [...] 
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

#include <iostream>

struct foo
{
    char foo;
};

int main()
{
    foo *p;
    foo f;
    p = (foo *)malloc( sizeof(foo) );
    p->foo = 'a';
  std::cout << p->foo << std::endl;
  f = *p;
  std::cout << f.foo << std::endl;
  std::cout << ((foo)*p).foo << std::endl;
  std::cout << (*p).foo << std::endl;
  return 0;
}