Records per Prozedur übergeben

[K-Asche]

Hi @ all,

wie übergeb ich denn ein Record über eine Prozedur?

Gruß

Karsten

[Schaedel]

Schreib mal mehr dazu :wiejetzt:

[K-Asche]

Ich habe eine Prozedur in einem Frame und einrecord in einer Form, die diesen Frame aufruft.
In der Form wird das Record mit Werten gefüllt und bei Aufruf des Frames soll der Record per Prozedur an das Frame übergeben werden.

z. B.
procedure Frame.execute(value : Record);

In Form der Aufruf
execute(FRecord);

[Schaedel]

Versuchs doch mit einem Property ...

[turboPASCAL]

Delphi-Quellcode:

type TMyRecord = Record
       VarStr: String;
       VarByt: Byte;
       //...
     end;

var
  MyRec: TMyRec;

procedure Foo(ValueRec: TMyRec);
var aString : String;
begin
  aString := ValueRec.VarStr;
  //...
end;

function Bla: TMyRec;
begin
  Result.VarStr := 'Hello';
end;

procedure Init...
begin
  MyRec.VarStr := 'Hallo';
  //...
   
  Foo(MyRec);
  //...
  ShowMessage( PChar(Bla.VarStr) );
end;

[K-Asche]

Bei Beiden , Procedure und Property, bekomm ich bei der Übergabe des Records die Meldung, Inkompatiple Typen Form.Record und Frame.Record.
Hab aber den Record in beiden angelegt. Sind beide genau Identisch.

[tomsel]

Zitat:

Sind beide genau Identisch

Nee, eben nicht!

[Ferber]

Ich ahne was du willst.
Mach dir am besten eine separate Unit in der du die benötigten Type (Records, etc) definierst.

[K-Asche]

@Tomsel

Warum nicht?

[Schaedel]

Wie wärs mal mit ein wenig Quelltext? :?: :dance: