Guten Tag Delphianer,
in meiner Android App habe ich ein Frame hinzugefügt.Als ich das Programm unter
Win32 compelliert habe lief alles wunderbar. Jetzt habe ich das Programm unter Android compelliert und es gab 1044 Fehler. Es gab auch keine konkrete Fehlermeldung, an der ich mich orientieren könnte.
Delphi-Quellcode:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
FMX.Edit;
type
TFrameTicket =
class(TFrame)
SpinBox1: TSpinBox;
lblName: TLabel;
lblCategory: TLabel;
lblPreis: TLabel;
private
FAnzahl: integer;
FID: integer;
FName:
string;
FCategory:
string;
FPreis: Currency;
procedure SetName(
const Value:
string);
procedure SetPreis(
const Value: Currency);
procedure SetCategory(
const Value:
string);
function GetAnzahl: integer;
function getGesamtpreis: Currency;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
property TicketName :
string read FName
write SetName;
property Preis : Currency
read FPreis
write SetPreis;
property Category :
string read FCategory
write SetCategory;
property ID : integer
read FID
write FID;
property Anzahl : integer
read GetAnzahl;
property Gesamtpreis : Currency
read getGesamtpreis;
end;
implementation
{$R *.fmx}
{ TFrame1 }
function TFrameTicket.GetAnzahl: integer;
begin
result := trunc(SpinBox1.Value);
end;
function TFrameTicket.getGesamtpreis: Currency;
var
gesamtpreis: currency;
begin
result := Preis * Anzahl;
gesamtpreis := gesamtpreis + result;
end;
procedure TFrameTicket.SetCategory(
const Value:
string);
begin
FCategory := Value;
lblCategory.Text := FCategory;
end;
procedure TFrameTicket.SetName(
const Value:
string);
begin
FName := Value;
lblName.Text := FName;
end;
procedure TFrameTicket.SetPreis(
const Value: Currency);
begin
FPreis := Value;
lblPreis.Text := Format('
%1.2f', [FPreis]);
end;
end.
Dies ist mein Quelltext von meinem Frame.
Falls ihr weitere Informationen braucht schicke ich diese mit.
Vielen Dank im Voraus für eure Hilfe.
Mit freundlichen Grüßen