Parameteroverførsel til anden unit.

hvis vi snakker units (som i goe gamle pascal dage) skal du lave funktioner i div units interfaces som get\'er og set\'er data til/fra dine units implementation data.

Følgende henter en TDateTime fra unit1 til unit2:

unit 1

interface
  function getDate : TDateTime

implementation

var
  unit1LocalTime : TDateTime;

function getDate : TDateTime;
begin
  result := unit1LocalTime;
end;


unit 2

interface
uses
  unit1

implementation
var
  unit2LocalTime : TDateTime;

procedure main;
begin
  unit2LovalTime := getTime;
end;

Hej TKnudsen.

Først tak for svaret, men hvad nu hvis jeg ikke ønsker at bruge en function. Kan det gøres på anden vis? Jeg mener, hvad nu hvis jeg bare har en integer eller en boolean, som jeg skal bruge i en anden unit. Er jeg så nødt til at oprette en function, der kan kaldes fra den anden unit?

Hvis du ikke ønsker at overføre dine data via en funktion, så skal du ha\' direkte adgang til varaiblen - og dermed har du i praksis en global variable.

I ovenstående eksempel vil en variabel der er erklæret i en VAR del i unit 1\'s interface del således kunne ses og bruges af rutinerne i unit 2.  MEN nu er der jo nærmest tale om en \"global\" variabel - ikke helt global, idet den scope er begrænset til unit 1 og alle de units der benytter unit 1.

Delphi