Eigenschaft 'Left' von Integer in Extended???

[DelphiUser7]

Hallo;
kann man die Eigenschaft 'Left' von TPanel von Integer in Extended 'umwandeln'??
Hoffe, dass es möglich ist;

Gruss
DelphiUser7

[toms]

Hi!

Meinst du so?

Delphi-Quellcode:

var
  e: Extended;
begin
 e := Panel1.Left;
end;

[DelphiUser7]

 d := 440 div (TrackLaenge + TrackHelp); //d ist als Extended deklariert, TrackLaenge und TrackHelp sind als Integer Deklariert und sollen nachher einem Panel zugewiesen werden; Das ist mein Codeschnipsel, das ich euch zur besseren Verständnis meines Problems zur Verfügung stellen kann, denn mehr (davon) hab ich und brauch ich auch nicht;

[toms]

Delphi-Quellcode:

d := 440 div (TrackLaenge + TrackHelp); 
Panel1.Left := Trunc(d);

[himitsu]

Zitat:

TrackLaenge und TrackHelp sind als Integer Deklariert

Warum deklarierts du denn d nicht auch als Integer?
Bei deiner Rechnung kommt doch im Grunde genommen ein Interger raus.

[DelphiUser7]

Das im Grunde genau nicht, weil TrackLaenge und TrackHelp vollkommen variabel sein können, und ich bei dieser Division das Haargenaue Ergebnis (mindestens 3-4 Stellen hinter dem Komma), benötige;

[Luckie]

Schön. Und wie willst du es auf 3,56987 Pixel ausrichten? Den Bruchteil eines Pixels gibt es schon aus physikalischen Gründen nicht.

[sakura]

Zitat von DelphiUser7:

Das im Grunde genau nicht...

Das im Grunde genau doch, da div eine Integerdivision durchführt, d.h. die Nachkommastellen werden vom Prozessor unter den Teppich gekehrt.

......

[DelphiUser7]

@ sakura
ok, ihr habt gewonnen, natürlich, wie konnte ich das vergessen:
Extended Divisionen werden immer mit '/' durchgeführt ;
Trotzdem danke;

@ luckie
Pass mal auf: Mein Ziel ist es, genauso wie es in WinAmp der Fall ist, mit einem Panel
(ich weiß nicht, was die bei WinAmp sonst verwendet haben) den Fortschritt des aktuellen Songs anzuzeigen, und da brauche ich halt Panel1.Left, da dies in Panel2 'eingebettet' ist;
d.h. Panel1.Parent := Panel2 oder wie das noch mal hieß;

DelphiUser7

[DelphiUser7]

Wem noch was dazu einfällt:
Neuer Thread => Umwandlung: Integer in Extended;
Denn das Problem hat sich leider noch nicht gelöst ;

Gruss
DelphiUser7