Funktion für proportionales Seitenverhältnis

[Matze]

Div würde ich nicht nehmen, das wird sonst viel zu unganau!
1024 div 800 =1
800 div 1024 =0
Das kannst du echt vergessen! :wink:

[BorlanDelphiUser]

ich hab ein Bild geladen in den Editfeldern steht die Größe. Beim onchange weise ich die aktuelle größe zu z.B. will ich die höhe auf 300 setzen sodaß aus 800x600 dann 400x300 wird. Aber so wie ich einen Wert eingeben will kommt diese Fehlermeldung

-[ invalid floating point operation ]-

hat da jemand eine Ahnung woran das liegen könnte

[Matze]

Bei mir geht das:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Faktor, neue_Breite: extended;
begin
Faktor:=400/800;
neue_Breite:=Faktor*600;

Edit2.Text:=FloatToStr(neue_Breite);
end;

Gruß Matze

[Alexander]

Wenn es immer ncoh nicht geht, poste mal ein Teil der Procedure...

[Matze]

Übrigens, so ist der Code besser:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Faktor: extended;
    neue_Breite: integer;
begin
  Faktor:=400/800;
  neue_Breite:=round(Faktor*600);

  Edit2.Text:=IntToStr(neue_Breite);
end;

[BorlanDelphiUser]

Hat sich erledigt die eine Variable mit der ich gerechnet habe war leer, also division duch 0 :).

[Matze]

Na, dann ist ja gut. Im Notfall, falls du falsche zahlen angibst, dann kannst du ja mit

Code:

try
...
except
...
end

die Fehlermeldung verhindern.

Gruß Matze

PS: Nette HP.

[BorlanDelphiUser]

jo das hatte ich gemacht dabei ist mir aufgefallen das die variable für die neue höhe noch leer war und keinen wert zugewiesen bekommen hat.

bis jetzt funktioniert es so wie ich es mir vorgestellt habe, danke an alle!