Hallo Khabarakh
Wenn du mit ganzzahlige ohne komma meinst dann ja .
mit div kommt aber nur 100 und 0 als wert raus.
Der code sieht jetzt so aus:
Delphi-Quellcode:
procedure TForm4.Button2Click(Sender: TObject);
var
TonLi, TonRe, VolLi, VolRe: Word;
begin
GetVolume(VolLi,VolRe);
TonLi:= Volli div 65535 * 100;
TonRe:= VolRe div 65535 * 100;
Label1.Caption:=IntToStr(TonLi);
Label2.Caption:=IntToStr(TonRe);
end;