AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

hilfe beim verkürzen meines codes

Ein Thema von almanciyabanci · begonnen am 31. Mai 2014 · letzter Beitrag vom 31. Mai 2014
 
almanciyabanci

Registriert seit: 24. Mai 2014
2 Beiträge
 
#1

hilfe beim verkürzen meines codes

  Alt 31. Mai 2014, 02:36
hallo alle zusammen,

ich habe folgendes ein problem mit der if schleife, der Ablauf funktioniert zwar aber ich möchte den code verkürzen jedoch kriege ich es nicht hin.

Meine beiden variablen : kmneu und tacho sind Double, zu der variable tacho soll ab 15km immer im 10km tack ein 0,1km dazu addiert werden

NUr ein bruch teil meines langen codes..

Code:

if kmneu>= 1005 then
    begin
     tacho:= kmneu + (kmneu / 100 * 10)
    end
   else if kmneu>= 995 then
     begin
      tacho:= kmneu + (1 / 10 * 100)
     end
   else if kmneu>= 985 then
     begin
      tacho:= kmneu+(1 / 10 * 99)
      end
   else if kmneu>= 975 then
     begin
      tacho:= kmneu+ (1 / 10 * 98)
      end
   else if kmneu>= 965 then
     begin
      tacho:= kmneu+ (1 / 10 * 97)
      end
.
.
.
.
.
else if kmneu>= 35 then
     begin
      tacho:= kmneu+ (1 / 10 * 4)
      end
   else if kmneu>= 25 then
     begin
      tacho:= kmneu+ (1 / 10 * 3)
      end
   else if kmneu>= 15 then
     begin
      tacho:= kmneu+ (1 / 10 * 2)
      end
   else begin
      tacho:= kmneu
      end;
  Mit Zitat antworten Zitat
 


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 09:13 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-2025 by Thomas Breitkreuz