Fehler: IF: Kein Teil eienr Menge (Bedingung)

[SvenLittkowski]

sx2008 und alle anderen: vielen Dank, Ihr habt mir ein sehr großes Stück weitergeholfen!

Es gibt nun noch ein anderes Problem, welches ich lösen muß. Beim Schließen des Programmes werden in der INI-Datei die vom user festgesetzten Farben gespeichert. Mir fällt aber auf, daß einige Farben nicht als beispielsweise "$00FFDDAA" gespeichert werden, sondern beispielsweise als "clBlue". Dies gibt Probleme. Wie kann ich den Farbwert von cl-definierten Farben als $-Werte speichern?

[Bummi]

wenn Du meinen Vorschlag auf #13 verwendest
(StringToColor) hast Du die Farbe in einer TColor Variablen diese kannst Du dann per
'$'+IntToHex(c,8) ausgeben.

[SvenLittkowski]

Ein letztes Problem in Sachen Farbe und Farbverarbeitung vorerst:

Code:

var
 TheColor1, TheColor2: String;
 TColor1, TColor2:      TColor;

(1723) TheColor1:=ColorToString(Label1.Font.Color);
(1724) TheColor2:=ColorToString(Label1.Color);
(1725) IdentToColor(TheColor1,TColor1);
(1726) IdentToColor(TheColor2,TColor2);

gibt mir diesen Fehler:

Zitat von Delphi 7:

[Error] Box1.pas(1725): Types of actual and formal var parameters must be identical
[Error] Box1.pas(1726): Types of actual and formal var parameters must be identical

Hmmm... Woran liegt's?

[Jakunar]

Das Problem dabei ist, dass die Funktion als folgende deklariert ist:

Code:

function IdentToColor(const Ident: string; var Color: Longint): Boolean;

Ich weiss gerade nicht was fuer Typ TColor explizit ist, ist aber auch egal, denn die Funktion verlangt ausdruecklich den Referenztyp Longintund erlaubt nicht den Typ TColor!

Hab's eben schnell mit TColor getestet und bekam den gleichen Fehler, aber mit LongInt hats funktioniert!

Code:

var
  TColor1: LongInt;
  TheColor1: String;
begin
  IdentToColor(TheColor1, TColor1)

Gruss Jakunar

[Bummi]

Ich weiß nicht ob D7 hier noch ein Problem hat, aber:

Zitat:

Anmerkung: Falls der String-Bezeichner einer Farbe sowohl einen Hexadezimalwert als auch eine Farbkonstante darstellen kann, verwenden Sie die Funktion StringToColor.

ansonsten geht auch
IdentToColor(TheColor1, Integer(TColor1));

[SvenLittkowski]

Ahhh, DAS hat schon mal weitergeholfen. Vielen Dank an Euch.

Ich muß nun zusehen, wie ich TColor in LongInt umwandle. Wenn ich dafür eine Lösung finde, alleine oder zusammen), dann sollte dies endlich alles funktionieren. Ich schaue moch mal im Internet nach einer Lösung um. Aber wenn hier jemand eine Idee hat, dann würde ich mich sehr freuen.

[Bummi]

Du musst nicht nicht umwandeln nur zuweisen
Longword, LongInt, Int32, TColor, Integer, Cardinal
Int32 , alles 4 Byte im Speicher ....

[SvenLittkowski]

Danke für Deine schnelle Antwort. Zuweisen... Ich arbeite zwar schon seit Jahren mit Delphi (7), aber mit Speicherzuweisungen habe ich noch nie gearbeitet. Ich weiß ehrlich gesagt nicht, wie ich dies bewerkstelligen soll. Ich hatte gerade folgendes probiert: "ThisColor1:=ColorToString(GlowLabel1.Font.Color); "

Wobei ThisColor1 vom Typ LONGINT ist. Delphi sagt: "[Error] Box1.pas(1726): Incompatible types: 'Integer' and 'String'"

Aber ich habe mir inzwischen natürlich auch eigene Gedanken gemacht: die letzten sechs Ziffern des "$"-Wertes sind ja Hexadezimalziffern, in drei Blöcken. Außerdem weiß ich, daß jede Farbe auch durch eine sehr große Zahl (LongInt?) repräsentiert wird. Es gibt da bestimmt Wege, dieses Dreierpaket an Hex-Werten in so einen Wert umzuwandeln.