Canvas zeichnet bei Integer, nicht bei Single

[turboPASCAL]

Zitat von ulhau:

Hi,

Divsion durch 0 könnte problematisch werden.

Tschüsss!

p/0 ist nicht 0/p

Zitat von koisa:

Ja danke schön nun geht es!

Eine kurze Frage noch: Kann man eine While Funktion in die Zeichenoperation einbinden??

Ja, warum nicht. Kommt darauf an wie und was...

[guidok]

Zitat:

p/0 ist nicht 0/p

p/0 ist unendlich und nicht möglich (Division durch Null)
0/p ist Null.

Oder was wolltest du damit sagen?

[koisa]

Delphi-Quellcode:

procedure TFormPalettierung.SpeedButtonZeichnenClick(Sender: TObject);
var Breite, Hoehe :   Integer;    c,v,p : Single;
begin

 Lv := StrToFloat (EditLaenge.Text);
 Bv := StrToFloat (EditBreite.Text);
 Hv := StrToFloat (EditHoehe.Text);




 repaint;


 if ComboBoxPalettenwahl.ItemIndex = 0 then Breite := 1200;
 if ComboBoxPalettenwahl.ItemIndex = 0 then Hoehe := 800;

 if ComboBoxPalettenwahl.ItemIndex = 1 then Breite := 1200;
 if ComboBoxPalettenwahl.Itemindex = 1 then Hoehe := 1000;


  imageDraufsicht.Canvas.rectangle(0,0, Breite div 5 , Hoehe div 5 );



  begin
  repeat c:=c+1 until
  c+1 * Bv > Breite;
  if c+1 * Bv > Breite then c:= c-1;

  repeat v:=v+1 until
  v+1 * Lv > Hoehe;
  if v+1 * Lv > Hoehe then v:= v-1;
  end;

  while
  p<=c do
  begin
  imagedraufsicht.Canvas.MoveTo(round(p*Bv),0);
  imagedraufsicht.Canvas.LineTo(round(p*BV),round(v * Lv));

  end;

So, bei dieser Programmierung hängt sich das Programm beim zeichnen auf....

[ulhau]

Hi,

In der while schleife müsste sich c oder p auch ändern.

Tschüsss!

[koisa]

anstatt der while eine repeat funktion??

repeat

imagedraufsicht.Canvas.MoveTo(round((p+1)*Bv),0);
imagedraufsicht.Canvas.LineTo(round((p+1)*BV),roun d(v * Lv));
until p+1=c ;

[ulhau]

Hi,

nein in der while schleife c+1 oder p-1 denn die Schleife wird so lange ausgeführt wie c<=p ist. Also so lange wie sich nichts ändert.

Tschüsss!