Einzelnen Beitrag anzeigen

LoL
(Gast)

n/a Beiträge
 
#22

Re: Rückgabewert von Function freigeben

  Alt 28. Feb 2005, 10:35
also nochmal zurück ich habe das bisher immer noch nicht lösen könenen:
ich bräcuchte enventuell mal ne erklärung dazu:

Delphi-Quellcode:
var c1,c2 : TComponent;
    b : boolean;

function muh : TComponent;
begin
  result := nil;
  if b then
    result := c1
  else
    result := c2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var cur : TComponent;
begin
  b := true;

  cur := muh;

  if @c1 <> @cur then showmessage('ungleich');
end;
warum ist wenn ich den button drück c1 und cur ungleich?

soweit ich das verstanden habe ist c1 doch auch nichts anderes als ein zeiger auf eine adresse oder? und cur bekommt dann den zeiger zugewiesen. warum sind die addressen dann unterschiedlich?
  Mit Zitat antworten Zitat