Code:
procedure TForm1.Button1Click(Sender: TObject);
var
originalxx :integer;
originalyy :integer;
koordinatexx:integer;
koordinateyy:integer;
zielxx:integer;
zielyy:integer;
begin
originalxx := StrToInt(originalx.text);
originalyy := StrToInt(originaly.text);
koordinatexx := StrToInt(koordinatex.text);
koordinateyy := StrToInt(koordinatey.text);
zielxx := StrToInt(zielx.text);
zielyy := StrToInt(ziely.text);
[B]zielkoordinatex.caption := koordinatexx / originalxx * zielxx;[/B]
end;
end.
wie kann ich in dem label "zielkoordinatex.caption" das ergebnis der rechnung anzeigen lassen? InttoStr funktioniert hier nicht :X