Mehrere Parameter übergeben (?)

[zobien123]

Hi :)

ich bin ziemlich neu in Delphi und hänge grad an einen doofem, wahrscheinlich einfachen, Problem.

Ich habe eine case Anweisung wo entschieden wird, welche Farbe und Formatierung der Text hat, welchen ich später ausgebe:

Code:

ShowLog(s: string; code: TLogCodes);
begin
  case code of
    SubPoint: s := '  - ' + s ;
    Standard: mem_Text.SelAttributes.Color := clWindowText;
    lcError: mem_Text.SelAttributes.Color := clRed;
  end;
end;

Code:

ShowLog('Achtung!', lcError);  //so übergebe ich

Das klappt auch soweit, also zb ich übergebe den Text und er soll Rot sein soll. Aber nicht, wenn der text rot und eingerückt (SubPoint) sein soll. Sprich wenn ich mehrere Argumente über den gleichen Parameter übergeben möchte.
Gibt es irgendwie eine Möglichkeit, dass ich mehrere Sachen über den Parameter übergeben kann?

Ich hoffe ich konnte es einigermaßen erklären und habe nicht zu viel Müll erzählt.:oops:

[Sherlock]

Mach Dir halt noch einen Parameter für die Farbe.

Sherlock

[Der schöne Günther]

Dazu gibt es in Delphi "Mengen"-Typen. Fast so wie Mengenlehre aus dem Mathe-Unterricht.

Schau mal hier:

http://delphi.programmieren.vias.org/dkk_sets.html

https://de.wikibooks.org/wiki/Progra...:_Pascal:_Sets

[zobien123]

Zitat:

Mach Dir halt noch einen Parameter für die Farbe.

Klingt nach einem guten Plan B, danke :thumb:

@Der schöne Günther les ich mir mal durch, danke :)