AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Firemonkey Frame Fehler (Android)

Ein Thema von ChristianG · begonnen am 14. Jul 2014 · letzter Beitrag vom 14. Jul 2014
 
ChristianG

Registriert seit: 8. Jul 2014
97 Beiträge
 
Delphi XE6 Starter
 
#1

Firemonkey Frame Fehler (Android)

  Alt 14. Jul 2014, 12:10
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
Christian
  Mit Zitat antworten Zitat
 

 
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz