Einzelnen Beitrag anzeigen

generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.415 Beiträge
 
Delphi XE5 Professional
 
#21

Re: Versions abfrage Problem!

  Alt 3. Mär 2010, 08:24
Zitat von danu1104:
Delphi-Quellcode:
     if i < 10 then
     begin
      Label2.Caption:=RemoteVer+'/0.00'+IntToStr(i);
      download(H+'/'+D+'/'+vers+'/'+'0.00'+IntToStr(i)) end else
     if i > 9 then
     begin
      Label2.Caption:=RemoteVer+'/0.0'+IntToStr(i);
      download(H+'/'+D+'/'+vers+'/'+'0.0'+IntToStr(i)) end else
     if i > 99 then
     begin
      Label2.Caption:=RemoteVer+'/0.'+IntToStr(i);
      download(H+'/'+D+'/'+vers+'/'+'0.'+IntToStr(i)) end
Das nennt man Code Duplizierung und ist schlecht.
Kennt ihr den Format Befehl nicht?
Damit können die 3 Ifs auf 0 zusammen kürzen.
Coding BOTT - Video Tutorials rund um das Programmieren - https://www.youtube.com/@codingbott
  Mit Zitat antworten Zitat