Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alzaimar,
20. Jul 2009
:gruebel: Definiere "perfekt" :shock:
Das können die anderen -nach entsprechender Modifizierung- auch.
Bei mir wäre dies eine Zeile:
...
else Begin
rangeStart := ExtractString (pageDesc,'-');
If pageDesc='' Then pageDesc := IntToStr (TotalPageCount); // <<--- Die Erweiterung
...
End;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alzaimar,
20. Jul 2009
Hallo Alex,
Ein Alternativ-Vorschlag:
Folgende Routine liefert mir den ersten Teilstring bis zu einem Trenner, oder den ganzen String, wenn es kein Trenner mehr gibt. Gleichzeitig wird der String um den ersten Teilstring verkürzt.
Funtion ExtractString (Var aString : String; Const aDelimiter : String) : String;
Var
P : Integer;
Begin
P := Pos(aDelimiter, aString);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alzaimar,
19. Jul 2009
Deklariere eine 'Liste von Seitenzahlen'
Zerteile die Seitenzahlangabe in Teilstrings, die durch ';' getrennt sind.
Jeder Teilstring ist entweder eine Seitenzahl oder ein Bereich.
Eine Seitenzahl besteht nur aus Ziffern. Hänge die einzelne Seitenzahl in die Liste.
Ein Bereich ist eine Seitenzahl gefolgt von einem '-' gefolgt von einer Seitenzahl. Hänge alle Seitenzahlen zwischen der ersten...