Ganz einfaches Fußballgame

[alcaeus]

Sorry, das hab ich vergessen zu sagen :oops: Den musst du dir festlegen
Mit Hilfe von dem kannst du bestimmen, von welcher Position startend er die Distanz berechnen soll. Dies ist nützlich, wenn du z.B. bei diesem Spiel verschiedene Spielerfiguren in Images hast, welche den Fuß an einer anderen Position haben.

[Neuni]

Wahrscheinlich bin ich einfach zu dumm dazu...kann mir nicht jemand ein Beispiel schreiben?
Ich sitz hier nun schon seit stunden herum, aber ich raffs einfach nicht :duck:

BITTÄÄÄ :|

[Matze]

Wenn bei dir jeder SPieler ein Image ist, dann kannst du einen beliebigen Punkte nehmen, z.B. (0/0) als hotspot-offset.

[Neuni]

So, mein Quelltext sieht jetzt so aus:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  x1,x2,y1,y2,ox1,ox2,oy1,oy2:integer;
  dist:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x1 := Image1.Left;
y1 := Image1.Top;
x2 := Image2.Left;
y2 := Image2.Top;
dist := sqrt(sqr((x2+ox2)-(x1+ox1))+sqr((y2+oy2)-(y1+oy1)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ox1:=0;
ox2:=0;
oy1:=0;
oy2:=0;
end;

end.

Wenn ich nun auf F9 drücke kommt dieser Fehler:

Code:

[Fehler] Unit1.pas(37): Inkompatible Typen: 'Integer' und 'Extended'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Jemand ne Idee woran das liegen könnte???

[dizzy]

:wall: :wall: :wall: Du hast "dist" als Integer deklariert. Es muss ein Float-Typ sein, oder dur rundest. :zwinker:

[Neuni]

Sorry, aber was ist ein Float-Typ??? :duck:

[dizzy]

real, real48, single, double, extended.
(real=double (bei aktuellen CPUs); real48 nutzt keiner mehr)
Auf aktuellen FPUs empfiehlt sich double (64 Bit breit -> FPU-Register auch)
Halt Fließkommazahlen.

[Matze]

schreibe einfach anstatt

Delphi-Quellcode:

dist: integer;

das hier:

Delphi-Quellcode:

dist: real;

oder:

Delphi-Quellcode:

dist: extended;

...

[Neuni]

Ja, hab ich schon, trotzdem danke...

So, nun müsste es gehen...danke für die viele geduld mit mir nap :D