Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by klaus33,
11. Jan 2008
Beim Starten des Programmes bekomme ich eine Fehlermeldung: Inkombatible Typen 1.50 ist kein gültiger Gleitkommawert.
procedure TForm1.BeinzelerwClick(Sender: TObject);
begin
If Memo2.Lines.Strings='2301' then
begin
Memo2.Lines:='Bitte zahlen Sie '+FloatToStr(2.50)+' Euro';
LStatus.Caption:='2.50';
end else if Memo2.Lines.Strings='2501' then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by klaus33,
11. Jan 2008
Ja du hast mich richtig verstanden Danke dass du mir geholfen hast
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by klaus33,
11. Jan 2008
Es ist zwar eine blöde Frage aber wie kann ich LStatus.Caption:='2.50' mit in die Bedingung einbauen
In diesem Fall überspringt er diesen Befehl. :angel: Delphi6
If Memo2.Lines.Strings='2301' then
Memo2.Lines:='Bitte zahlen Sie '+FloatToStr(2.50)+' Euro';
LStatus.Caption:='2.50';
if Memo2.Lines.Strings='2501' then
Memo2.Lines:='Bitte zahlen Sie '+FloatToStr(3)+' Euro';...