Ungültige Gleitkommaoperation

[DataNess]

Hallo,

ich steh grad auf dem Schlauch...
wenn ich versuche

Code:

x:= round(panel1.Width*v);

oder

Code:

x:= round(panel1.Width*1.2);

wobei x: Integer und v: Real ist
bekomme ich immer einen Runtime-Error "Ungültige Gleitkommaoperation".

Was mach ich falsch ?

[Mathematiker]

Hallo,

Zitat:

Zitat von DataNess (Beitrag 1208554)

wenn ich versuche

Code:

x:= round(panel1.Width*v);

...
bekomme ich immer einen Runtime-Error "Ungültige Gleitkommaoperation".

Einen Runtime-Fehler liefert round i.A. nur, wenn die Zahl die Int64-Grenze überschreitet.
Da Dein Panel1 kaum so breit ist, vermute ich, dass der Fehler eher vor dem Befehl entsteht oder panel1.width in diesem Moment unbestimmt ist. Ich kann mir das zwar nicht vorstellen, aber wer weiß.
Evtl. wäre mehr veröffentlichter Quelltext für eine Fehlersuche hilfreich.

Beste Grüße
Mathematiker

[DataNess]

Achso,

kann es sein das es Auftritt, weil ich es im "FormCreate" aufrufe ?
Das Panel hab ich aber nicht selbst erstellt, und hat die Breite von 240...

[Mathematiker]

Zitat:

Zitat von DataNess (Beitrag 1208557)

kann es sein das es Auftritt, weil ich es im "FormCreate" aufrufe ?

Nimm die Anweisung einmal in die FormActivate. Dann müsste es gehen.

Beste Grüße
Mathematiker

[DataNess]

Hab's jetzt mit FormActivate und FormShow probiert aber es ändert nix...
Hier mal mehr Code

Code:

procedure TMain.FormShow(Sender: TObject);
var x,y:integer;
    vf,vs,v:real;
    s:string;
begin
  vs:= Screen.width / screen.height;
  vf:=main.Width / main.Height;
  x:=round((main.Width / vf)*vs);
  v:= ((main.Width / vf)*vs) / main.Width;
  main.Width:=x;
  x:= round(panel1.Width*1.2);
  panel1.Width:=x;
...

was ich erreichen will damit:
Ich hab später 4 Panels, die aber an das Bildschirmformat (4/3 oder 16/10) angepasst werden sollen...
Vieleicht ist es auch einfacher 'ClientWidth div 4' ?
Hab mich nur gewundert...

Danke Trozdem

[Bjoerk]

Nach Umstellen und Kürzen ergibt sich einfach:

Delphi-Quellcode:

  Main.Width := Round(Main.Height * Screen.Width / Screen.Height);
  Panel1.Width := Round(Panel1.Width * 1.2);

Gruß
Thomas

[Furtbichler]

Ich kann das Problem mit dem Originalcode nicht nachvollziehen.