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:

zusammenfalten · markieren

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:

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**

markieren

Delphi-Quellcode:

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

  karten_beschrift := ...

oder

markieren

Delphi-Quellcode:

			if i in [5, 10, 15, 20, 25, 30, 35, 40, 45, 50] then

  karten_beschriftung := karten_beschriftung + sLineBreak;

chr(13) - Ein Zeilenumbruch ist in Windows typischer Weite #13#10 oder #10 (Linux), aber es gibt dafür eine Konstante Delphi-Referenz durchsuchen

sLineBreak, welche sich an das Zielsystem anpasst.

Zitat:

copy(cname,0,20)

String-Indize fangen bei 1 an.

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

**BBoy**

if i mod 5 = 0 then Das reicht mir. Und danke für den Hinweis mit slinebreak;

Geht das mit dieser If then abfrage einfacher?

Geht das mit dieser If then abfrage einfacher?

AW: Geht das mit dieser If then abfrage einfacher?

AW: Geht das mit dieser If then abfrage einfacher?

AW: Geht das mit dieser If then abfrage einfacher?

AW: Geht das mit dieser If then abfrage einfacher?

AW: Geht das mit dieser If then abfrage einfacher?

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#2 AW: Geht das mit dieser If then abfrage einfacher? 6. Jun 2011, 12:42 Du suchst MOD. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#3 AW: Geht das mit dieser If then abfrage einfacher? 6. Jun 2011, 12:43 Hallo, vielleicht so: if (i >=5) and (i <= 50) and (i mod 5 = 0) then Grüße Klaus Klaus
	Zitat

BBoy Registriert seit: 17. Jan 2007 418 Beiträge Delphi 10 Seattle Professional	#4 AW: Geht das mit dieser If then abfrage einfacher? 6. Jun 2011, 13:05 Wusste doch das es da was gibt. Danke, funktioniert prima
	Zitat

BBoy Registriert seit: 17. Jan 2007 418 Beiträge Delphi 10 Seattle Professional	#6 AW: Geht das mit dieser If then abfrage einfacher? 6. Jun 2011, 13:27 if i mod 5 = 0 then Das reicht mir. Und danke für den Hinweis mit slinebreak;
	Zitat