PSingle...

Rool · Beiträge: 211

Ich rufe eine Dll funktion auf und übergebe einen Zeiger (PSingle).
Jetzt kann ich danach den Wert partout nicht auslesen (habs immer mit Zeiger^) versucht! Was mache ich falsch?
Mein Code:

markieren

Quelltext

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

var l,r: Psingle;
begin
    l:=nil;
    r:=nil;
    if FSOUND_GetCurrentLevels(Song.Channel,l,r) then
       ProgressBar1.Position:=Round(l^);

_________________
MFG Rool

wulfskin · Verfasst: Di 11.03.03 22:07

Hallo Rool!

Versuch es mal so: ProgressBar1.Position:=Round(PSingle(l)^);Ich hoffe es klappt!

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Rool · Beiträge: 211

Ich habs! So gehts nur:

markieren

Quelltext

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

var l,r: Psingle; 
     Ls, Rs: SIngle;
begin 
    l:=@Ls; 
    r:=@Rs; 
    if FSOUND_GetCurrentLevels(Song.Channel,l,r) then 
       ProgressBar1.Position:=Round(Ls);

_________________
MFG Rool

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme