Guten Tag Frühlingsrolle und vielen Dank,
Du hast meine Frage exakt erkannt und Deine Antwort ist genau das was ich suchte.
zu Deiner Frage:
"Zu sagen, der Hermann ist ein Apfel und der Müller eine Birne, ergibt keinen Sinn."
Hermann und Müller sind Lieferanten wobei Hermann Äpfel und Müller Birnen usw. liefern.
Also wenn die Birnen alle sind möchte ich einen Hinweis belommen:
- Birnen bei Müller bestellen -
Ich habe daraus folgenden Code gemacht
(leider erschließt sich mir als Neuling nicht, wie das Codefenster angelegt wird); deshalb so:
type
_____TObst = (Apfel, Birne, Pflaume);
_____TObstS = set of TObst;
const kLieferanten: array[TObst] of string = ('Hermann', 'Müller', 'Klaus');
var__xDriveText: TObstS;
___s0 := '';
___x1 := length(kLieferanten)-1;
___for x0 := 0 to x1 do if TObst(x0) in xDriveText then break;
___if x0<=x1 then s0:= kLieferanten[x0];
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| type TObst = (Apfel, Birne, Pflaume); TObstS = set of TObst; const kLieferanten: array[TObst] of string = ('Hermann', 'Müller', 'Klaus'); var xDriveText: TObstS;
s0 := ''; x1 := length(kLieferanten)-1; for x0 := 0 to x1 do if TObst(x0) in xDriveText then break; if x0<=x1 then s0:= kLieferanten[x0]; |
in s0 steht der jeweilige Lieferant für das Obst
der Code funktioniert immer nur für 1 Obst-Angabe in xDriveText
im Code-Bereich funktioniert die Formatierung mittels Tab nicht - ich habe sie wieder durch Leerzeichen ersetzt!
Im Textbereich müssen die <Tags> zwingend in richtiger Reihenfolge gesetzt werden. mein Beispiel wird nicht fett.
<color=red><b> xxx </color></b>