Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Na, dann ist ja gut. Im Notfall, falls du falsche zahlen angibst, dann kannst du ja mit
try
...
except
...
end
die Fehlermeldung verhindern.
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Übrigens, so ist der Code besser:
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);
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Bei mir geht das:
procedure TForm1.Button1Click(Sender: TObject);
var Faktor, neue_Breite: extended;
begin
Faktor:=400/800;
neue_Breite:=Faktor*600;
Edit2.Text:=FloatToStr(neue_Breite);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
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:
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Was sind das für zahlen?
Also mit 800/1024 oder ungekehrt geht's.
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
@BorlanDelphiUser: Achso, du hast gemeint, was für ein Typ der Faktor sein soll, ich dachte du meinst die Bildgröße. :mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Wieso geht integer nicht??
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Deine Funktion oben ist aber etwas anders. :wink:
Da sind alt und neu irgendwie vertauscht.
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
19. Aug 2003
Hi!
Hier ein Beispiel:
800/1024 = 0.78125 (=Faktor)
==> Faktor = neue Breite(Höhe)/alte Breite(Höhe)
0.78125*768 = 600
==> Faktor * alte Breite(Höhe) = gewünschtes Ergebnis.