Einzelnen Beitrag anzeigen

Jack Spades

Registriert seit: 7. Sep 2011
21 Beiträge
 
#6

AW: Gebühren in währungssrechner

  Alt 7. Sep 2011, 22:20
wenn ich das jetzt wie du machen möchte und die check box nutze
kann ich dann
Delphi-Quellcode:
Procedure MachWasMitGebuehrErheben;
begin
  if GebuehrErheben then
  begin
    result:=floattostr(strtofloat(eingabe)-5)
  end
  else
  begin
    result:=floattostr (strtofloat(eingabe))
  end;
schreiben? oder hab ich dann einen fehler?
nur mal neben bei, nutze die TEdit für meine eingaben
  Mit Zitat antworten Zitat