Incompatible types: 'Integer' and 'Extended' (??????)

[Tobias]

Ich muss für unseren Informatik-Unterricht ein Programm schreiben, und benutze darin eine "SpinEdit"-Komponente...
Für eine Berechnung muss ich den Wert der "spinEdit" durch 2 teilen, krieg das aber irgendwie partout nicht hin... :roll: :roll:

Delphi-Quellcode:

xspin:=spinEdit.Value/2;

Variable ist registriert...
spinEdit heißt wirklich spinEdit und nicht etwa spinEdit1
insofern müsste eigentlich alles klappen...
Aber wegen dem "/2" bringt er folgende Fehlermeldung:

Delphi-Quellcode:

Incompatible types: 'Integer' and 'Extended'

Ich hab jetzt ewig lang rumprobiert, bin aber zu keinem Ergebnis gekommen...

Was ist da falsch?????

[sakura]

Ändere bitte den Titel, so dass er das Problem anreißt. Danke.

...:cat:...

[bigg]

Hallo erstmal,

dein problem dabei ist, dass du einen Fließkommawert vermutlich in einen Integer schreiben möchtest.
Entweder teilst du deinen Wert mit "Wert div 2" oder rundest das Ergebnis mit Round(Wert / 2).

[Tobias]

klappt leider immernochnicht ganz....

weder mit

Delphi-Quellcode:

xspin:=round(spinEdit.Value/2);
yspin:=round(spinEdit.Value/2);
image1.Canvas.Rectangle(x,y,xspin+x,yspin+y);

noch mit

Delphi-Quellcode:

xspin:=spinEdit.Value div 2;
yspin:=spinEdit.Value div 2;
image1.Canvas.Rectangle(x,y,xspin+x,yspin+y);

erhalte ich ein rechteck der "richtigen" Größe...

folgendes Problem, weshalb ich den spinEdit-Wert durch 2 teilen will:
wenn ich ein rechteck der größe 10 (also 10x10 Pixel) gezeichnet haben will, dann krieg ich mit folgender Funktion ein Rechteck der Größe 20x20... Fragt mich aber nicht wieso... ^^

Delphi-Quellcode:

image1.Canvas.Rectangle(x,y,x+spinEdit.Value,y+spinEdit.Value);

wenn ichs jetzt mit den zwei Funktionen oben ausprobiere, dann ist das rechteck zumindest schonmal kleiner (ca. 14x14), aber nicht 10x10 Pixel groß...

[bigg]

Jetzt sollte dir was auffallen.

Code:

Image1.Canvas.Rectangle(3, 3, 13, 13);

[Tobias]

@bigg: was soll mir dardan jetzt auffallen? :roll:



hab gestern n och n kumpel gefragt, der konnt mir aber auch net unbedingt weiterhelfen...
hier mal auszugsweise unser gespräch:

Zitat:

[22:57] Marc: des rätsels lösung:
[22:57] Tobi: paint...
[22:57] Marc: xspin: double; anstatt deiem integer
[22:58] Marc: der fehler ist...du teilst eine zahl...z.b. 1 durch 2 als ergebnis kommt 0.5 raus...integer kann aber nur ganz zahlen speichern, daher kommt es an diser stelle zu einem konflikt
[22:58] Marc: kapiert? bzw. funzts?
[22:59] Tobi: ouh shit ^^
stimmt ja ;-)
[22:59] Tobi: There is no overloaded version of 'Rectangle' that can be called with these arguments
[22:59] Tobi: image1.Canvas.Rectangle(x,y,xspin+x,yspin+y);
[23:00] Tobi: hier brauch ichs halt wieder als integer
[23:00] Marc: hmm...runden?
[23:01] Tobi: bzw. mal zum ursprung des problems: warum zeichnets des rechteck überhaupt doppelt so groß?????
[23:03] Tobi: xspin:=spinEdit.Value/2;
yspin:=spinEdit.Value/2;

if BitBtnPunkt.Enabled=false then
begin
if spinEdit.Value=1 then begin
image1.Canvas.Pixels[x,y]:=ColorDialog2.Color;
end else
image1.Canvas.Brush.Color:=ColorDialog2.Color;
image1.Canvas.Rectangle(x,y,round(xspin)+x,round(y spin)+y);
end;
[23:03] Tobi: wenn spinEdit = 1 ist, dann macht er einfach einen ganz normalen 1-pixel großen punkt....
wenn spinEdit = 2 ist, dann soll er ein rechteck zeichnen, 2x2 Pixel...
bei sE=3 3x3 Pixel...
usw....
[23:05] Marc: sprich du willst einfach nen ausgefüllten, punkt in rechteckform machen?
[23:06] Tobi: genau
[23:07] Marc: k...*denkphase*
[23:07] Tobi: k ^^
[23:09] Marc: und dein spinedit soll die breite bzw. höhe angeben?
[23:12] Tobi: genau...

des nur nochmal als anregung... ;-)



mit round() klappt des ganze zwar einigermaßen, allerdings ist der punkt dann immernoch größer als er sein soll... ich weiß ja auch warums so ist (wegen der rundung... z.B. 3 wird eben auf 2 gerunden, und dann entsteht damit natürlich ein anderes rechteck als mit "1,5"), weiß aber keine lösung dafür....

vielleicht kann auch jemand mal beim ursprung des problems nachhelfen:

Zitat:

[23:01] Tobi: bzw. mal zum ursprung des problems: warum zeichnets des rechteck überhaupt doppelt so groß?????

[bigg]

Welchen Punkt meinst du denn ?
Es gibt viele Punkte im Rechteck.

Um dein Problem zu lösen, kann man die Verhältnisse ihren Umständen anpassen.
Einen halben punkt kannst du ja nicht zeichnen.

Stell dir vor du musst eine Karte einer Stadt zeichnen.
Ich welchem Maßstab würdest du sie zeichnen ? 1:1 ? 1:2?

Dein eigentliches Problem kenne ich trotzdem noch nicht?

[BenniKay]

Hi

Ich habe ein ähnliches Problem. Ich möchte eine Variable vom Typ Integer minus eine Zahl rechnen. Wenn ich den Quelltext eingegeben habe und kompiliere, dann kommt nur noch die Fehlermeldung, dass Integer und Extended inkompatible Typen sind. Kann mir jemand helfen?

[bigg]

@BenniKay:
Das ist normal, da Integer nur ganze Zahlen berechnen kann.
Extended berechnet auch Fließkomma-Werte bis zwanzig Stellen hinter dem Komma.

Schau dir mal das Beispiel an und ließ dir die Kommentare durch.
Hinzugefügt habe ich noch ein Tut über Datentypen im PDF-Format.

[Tobias]

@bigg:
ok, dann eben nochmal von ganz von vorne...

wenn spinEdit.Value = 1 ist, dann zeichnet meine funktion einfach einen ganz normalen pixel...

Delphi-Quellcode:

if spinEdit.Value=1 then begin 
image1.Canvas.Pixels[x,y]:=ColorDialog2.Color;

wenn spinEdit.Value aber größer als 1 ist, dann soll erin etwas anderes zeichnen, nämlich ein Viereck mit 4 gleich langen seiten mit der seitenlänge "spinEdit.Value"

Delphi-Quellcode:

end else 
image1.Canvas.Brush.Color:=ColorDialog2.Color; 
image1.Canvas.Rectangle(x1,y1,x2,y2); 
end;

x1,y1 sind in diesem fall die koordinaten des mauszeigers, also auch der linken oberen ecke des Vierecks...
wenn meine spinEdit-Komponente jetzt auf 2 steht, will ich, dass es ein Rechteck zeichnet, mit der seitenlänge 2pixel... also ein rechteck der größe 2x2 px....
das problem ist aber dass es das nicht macht, sondern dass es das rechteck immer doppelt so groß zeichnet...
und des problem will ich beheben...
mit den tipps die ich aber bisher bekommen habe, klappt das nicht...

[bigg]

x2 und y2 sind nicht Breite und Höhe des Quadrats. :idea:
Schau dir mein Beispiel dazu an.

[Tobias]

das weiß ich...
ich schreib gerade ein komplettes "Paint"-Programm....

nur das mit dem spinEdit klappt halt nicht...
statt deinem Edit3 hab ich ne spinEdit-Komponente, und mit der funktionierts bei mir nicht...
soll heißen wenn ich da 10 eingebe, dann bekomme ich kein rechteck mit der seitenlänge 10, sondern mit der doppelten seitenlänge...
und das mit der gleichen funktion die du auch hast....

Delphi-Quellcode:

image1.Canvas.Rectangle(x, y, x + spinEdit.Value, y + spinEdit.Value);

[bigg]

Scheinbar hast mein Beispiel nicht studiert :wink:

[Tobias]

so, jetzt hab ichs (fast) genauso wie du, und es funktioniert immer noch nicht...

Delphi-Quellcode:

 Q:=StrToInt(spinEdit.Text);

 if BitBtnPunkt.Enabled=false then
 begin
   if spinEdit.Value=1 then begin
     image1.Canvas.Pixels[x,y]:=ColorDialog2.Color;
   end else
      image1.Canvas.Brush.Color:=ColorDialog2.Color;
      image1.Canvas.Rectangle(x, y, Q + x, Q + y);
 end;

die entstehendes quadrate sind immernoch doppelt so groß wie sie sein sollten...

das einzigste was ich nicht übernommen habe ist dieses

Delphi-Quellcode:

with Canvas do
  begin

und an dem wirds wohl nicht liegen, oder?

[bigg]

am with .. do liegt es nicht :-D

[Tobias]

ja aber an was dann? ^^ :gruebel: :roll:

[Tobias]

*push*

kann mir denn keiner wieterhelfen??? ^^
was ist denn nun mein fehler? bzw. der unterschied zwischen meinem code und dem von bigg??

[Nikolas]

Sicher, dass du da falsche Seitenlängen bekommst? Ich hab's grad getestet und da siehts so aus, wie man's erwarten könnte.

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
q: integer;
begin
q:=spinedit1.Value;
image1.Canvas.Rectangle(x,y,x+q,y+q);
end;