nabend @ all,
sitzt jetzt schon den ganzen tag vor meinem projekt und jetzt hab ich mal nen völligen blackout. irgendwie schein ich die variabeln falsch deklariert zu haben oder ist der fehler woanders? bitte um eure hilfe. folgende fehlermeldung kommt: [Fehler] PD.pas(159): Inkompatible Typen: 'Integer' und 'Extended' und zwar an der stelle: y := sqrt (x);
var pflaeche, pdicke, x, y : integer;
...
...
//Achsenangaben der Polsterung sowie die grafische Darstellung der Polster
pflaeche := StrToInt(E_Polsterf.Text);
pdicke := StrToInt (E_Polsterd.Text);
x := (pflaeche div 4);
y := sqrt (x);
Image1.Canvas.Pen.Color:=clInfoBk;
Image1.Canvas.Brush.Color:=clInfoBk;
Image1.Canvas.Rectangle (40,360,40+y,360-y);
Image1.Canvas.Rectangle (40+laenge,360,40+laenge-y,360-y);
Image1.Canvas.Rectangle (40,360-breite,40+y,360-breite+y);
Image1.Canvas.Rectangle (40+laenge,360-breite,40+laenge-y,360-breite+y);
Image1.Canvas.Pen.Color:=clBlack;
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.MoveTo(40+y-1,360); //X-Achse
Image1.Canvas.LineTo(40+y-1,365); //X-Achse
Image1.Canvas.MoveTo(35,360-y); //Y-Achse
Image1.Canvas.LineTo(40,360-y); //Y-Achse
Image1.Canvas.TextOut(15,355-y,E_Polsterd.Text);
Image1.Canvas.TextOut(30+y,370, IntToStr(y));
Image1.Canvas.TextOut((40+y) div 2,(350-y)+((y) div 2),'Polster');
mfg
björn
