pgffor: Maximaler auftretender Wert in einer foreach-Schleife

Wenn du überprüfen möchtest, wie breit etwas ist, bleibt dir nicht wirklich etwas anderes übrig, als TeX es setzen zu lassen. Man kann mit \savebox (LaTeX) oder \setbox (TeX) Inhalte in ein Boxregister speichern (fertig gesetzt). Anschließend kann man mit \wd die Breite, \ht die Höhe und \dp die Tiefe der Box untersuchen (Tiefe ist die Länge, die der Boxinhalt unter die Grundlinie heraus sticht, Höhe diejenige Länge, die der Boxinhalt oberhalb der Grundlinie bemisst).

Da \foreach die einzelnen Schleifendurchgänge in einer Gruppe durchführt, müssen wir alles, was über einen Durchgang hinaus bestand haben soll, global definieren. Umgekehrt müssen wir nicht aufpassen, dass lokale Änderungen lokal bleiben. Wir können also, ohne uns weitere Gedanken machen zu müssen, Boxregister 0 lokal verwenden.

Um die Breite von etwas zu bestimmen, benutzen wir \setbox<register>\hbox{<etwas>} (eine \vbox, was die Alternative wäre, lässt keine Aufschlüsse über die Breite mehr zu, da sie immer \hsize breit ist). Wir verwenden also \setbox0\hbox{\x}, um die Breite eines Elementes prüfen zu können. Anschließend können wir mit \wd0 auf die Breite zurückgreifen.

Um zu überprüfen, welche Länge größer ist, verwenden wir \ifdim. Schließlich brauchen wir noch eine eigene Größe, die wir global ändern können. Diese erzeugen wir uns mit \newlength\WidestWidth. Das reserviert uns eines von TeXs Skipregistern und gibt ihm den Namen \WidestWidth (genau genommen ist das ein Macro, das die Zahl des Skipregisters enthält, das expandiert dann zu sowas wie \skip<register>).

Schließlich schreiben wir uns noch ein schönes Macro, damit wir den Code nicht jedes Mal wiederholen müssen. Das Macro nimmt als Argument die Liste entgegen, als optionales Argument einen Macronamen, in dem der Inhalt des breitesten Eintrags gespeichert werden soll.

Komplett:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
\documentclass[]{article}
\usepackage{pgffor}
\newlength\WidestWidth
\newcommand\GetWidestEntry[2][]
  {%
    \WidestWidth0pt
    \foreach\x in {#2}
      {%
        \setbox0\hbox{\x}%
        \ifdim\wd0>\WidestWidth
          \global\WidestWidth\wd0
          \if\relax\detokenize{#1}\relax
          \else
            \xdef#1{\x}%
          \fi
        \fi
      }%
  }
\begin{document}
\GetWidestEntry[\widestentry]{0,1,11,-10,9}
\widestentry\ is \the\WidestWidth\ wide.
\end{document}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX