Geht das mit dieser If then abfrage einfacher?

[BBoy]

In meinem Programm wird ein String erstellt bei dem alle 5 hinzugekommenen Elementen ein Zeilenumbruch stattfinden soll.
Derzeit löse ich das so:

Delphi-Quellcode:

    karten_beschriftung := karten_beschriftung + leftstr('('+inttostr(i)+')'+copy(cname,0,20),26);
    if i = 5 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 10 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 15 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 20 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 25 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 30 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 35 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 40 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 45 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 50 then
      karten_beschriftung := karten_beschriftung + chr(13);

Geht das nicht einfacher mit einer formel oder so?

[DeddyH]

Du suchst MOD.

[Klaus01]

Hallo,

vielleicht so:

Delphi-Quellcode:

if (i >=5) and (i <= 50) and (i mod 5 = 0) then

Grüße
Klaus

[BBoy]

Wusste doch das es da was gibt. Danke, funktioniert prima :)

[himitsu]

Delphi-Quellcode:

if (i = 5) or (i = 10) or ... or (i = 50) then
  karten_beschrift := ...

:stupid:


oder

Delphi-Quellcode:

if i in [5, 10, 15, 20, 25, 30, 35, 40, 45, 50] then
  karten_beschriftung := karten_beschriftung + sLineBreak;

Delphi-Quellcode:

chr(13)

- Ein Zeilenumbruch ist in Windows typischer Weite #13#10 oder #10 (Linux), aber es gibt dafür eine Konstante sLineBreak, welche sich an das Zielsystem anpasst.

Zitat:

copy(cname,0,20)

String-Indize fangen bei 1 an. :warn:

PS: Ist i ein Sekunden/Minuten-Wert?
Und sicher, daß du die 0 und 55 auslassen willst?
Wenn ja und nein, dann einfach nur

Delphi-Quellcode:

if i mod 5 = 0 then

.

[BBoy]

Delphi-Quellcode:

if i mod 5 = 0 then

Das reicht mir. Und danke für den Hinweis mit slinebreak;