Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - String To Color ????


csigg - Fr 01.04.05 14:26
Titel: String To Color ????
Kann mir jemand sagen wie ich ein String aus einer Datenbank in eine Color komponente schreiben kann??

Die Farbe steht so:

$003E9EFF

in der DB


WeBsPaCe - Fr 01.04.05 14:27

Was ist das denn für ein String?? Vllt. so:

Quelltext
1:
Dunkelgrün                    

:lol: ;)


csigg - Fr 01.04.05 14:27

habs grad verbessert, Sorry


WeBsPaCe - Fr 01.04.05 14:30

kP. ;)

Das ist eigentlich kein String sonder ein hexadezmales Integer. ;)
Du kannst das z.B. so lösen:

Delphi-Quelltext
1:
Form1.Color := StrToInt('$003E9EFF');                    


csigg - Fr 01.04.05 14:32

So gings auch: :D

Delphi-Quelltext
1:
lvAlleMitarbeiter.Color := TColor(temp);                    


csigg - Fr 01.04.05 14:34

Aber das ist irgendwie ne andere Farbe wie ich wollte...


WeBsPaCe - Fr 01.04.05 14:36

user profile iconcsigg hat folgendes geschrieben:
Aber das ist irgendwie ne andere Farbe wie ich wollte...

Wie jetzt?? :lol:


csigg - Fr 01.04.05 14:40

ich habe Orange gewählt, $000080FF, aber er stellt es mr manchmal ROT und manchmal SCHWARZ dar.


WeBsPaCe - Fr 01.04.05 14:41

Also wenn ich mir nen Button auf ein Formular setze und dem folgenden Code gebe, dann macht er mir das Form IMMER orange... ;)


Delphi-Quelltext
1:
Form1.Color := $000080FF;                    


csigg - Fr 01.04.05 14:42

OK, mit deiner Version geht es wirklich, mit der richtigen Farbe *g*


WeBsPaCe - Fr 01.04.05 14:45

Na also... Dann liest du deine Farbe einfach aus der DB aus und speicherst sie in ner Variablen.

Wenn's eine String-Variable ist dann änderst du die Farbe so:

Delphi-Quelltext
1:
Form1.Color := StrToInt(FarbeAusDatenbank);                    

Bei Integer brauchst du keine weitere Funktion:

Delphi-Quelltext
1:
Form1.Color := FarbeAusDatenbank;                    


;)


retnyg - Fr 01.04.05 14:49

user profile iconcsigg hat folgendes geschrieben:
ich habe Orange gewählt, $000080FF, aber er stellt es mr manchmal ROT und manchmal SCHWARZ dar.

hier [http://www.delphi-forum.de/topic_1337+mp3++der+kleinste+mp3player+der+welt_35945,64.html] steht warum (ziemlich unten beim obersten beitrag)


csigg - Fr 01.04.05 14:50

habs jetzt so geschrieben:


Delphi-Quelltext
1:
2:
 itemp := FieldByName('ABWESEND').asInteger;
  lvAlleMitarbeiter.Color := TColor(itemp);


csigg - Fr 01.04.05 14:52

@retnyg vielen Dank