Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Daten aus Komponente heraus, in einer Funktion schreiben (https://www.delphipraxis.net/55759-daten-aus-komponente-heraus-einer-funktion-schreiben.html)

Net7 26. Okt 2005 13:52


Daten aus Komponente heraus, in einer Funktion schreiben
 
Hi Leute,

Ich habe ein Komponente weiterentwickelt und bin dabei auf ein Problem gestossen.

da zu mal etwas Code..

Die Funktion habe ich im public Teil deklariert.

Komponentencode

Delphi-Quellcode:
private
exrest:integer;

.
.
.
public
function Export(ExportDatentyp:Integer):boolean; virtual;
.
.
.

function Export(ExportDatentyp:Integer):boolean;
begin
       Exportdatentyp:=exrest;
       
end;
Hauptprogramm:

Delphi-Quellcode:

var
 Datentyp:integer;
.
.
.
function Export(Datentyp);

Mein Problem obwohl der Inhalt der Variable "exrest" zb. 25 an Exportdatentyp weitergegeben wurde, bleibt im Hauptprogramm Datenyp weiterhin 0.


Kann ich das irgendwie umgehen?? Muss ich in der Komponente was dazuschreiben??


weil zb. bei den Socketkomponenten der Befehl receivebuf(...);

Auch der angegebenen Datentyp aus einer Komponente herraus füllt.

Wie funktioniert das??

leddl 26. Okt 2005 13:56

Re: Daten aus Komponente heraus, in einer Funktion schreiben
 
Also wenn du einen Rückgabewert in einem Parameter brauchst, dann solltest du den schon als Var-Parameter deklarieren, sonst bleibt das alles innerhalb der Funktion.
Delphi-Quellcode:
function Export(Var ExportDatentyp:Integer):boolean;

Net7 26. Okt 2005 14:05

Re: Daten aus Komponente heraus, in einer Funktion schreiben
 
Ich glaub ich bin überarbeitet... :wall:

Naklardoch... :idea:

Vielen Dank.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz