String To Color ????

csigg · Verfasst: Fr 01.04.05 14:26

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 · Verfasst: Fr 01.04.05 14:27

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

markieren

Quelltext

1:	Dunkelgrün

csigg · Verfasst: Fr 01.04.05 14:27

habs grad verbessert, Sorry

WeBsPaCe · Verfasst: Fr 01.04.05 14:30

kP.

Das ist eigentlich kein String sonder ein hexadezmales Integer.

Du kannst das z.B. so lösen:

markieren

Delphi-Quelltext

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

csigg · Verfasst: Fr 01.04.05 14:32

So gings auch:

markieren

Delphi-Quelltext

1:	lvAlleMitarbeiter.Color := TColor(temp);

csigg · Verfasst: Fr 01.04.05 14:34

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

WeBsPaCe · Verfasst: Fr 01.04.05 14:36

csigg hat folgendes geschrieben:

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

Wie jetzt?? :lol:

csigg · Verfasst: Fr 01.04.05 14:40

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

WeBsPaCe · Verfasst: 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...

markieren

Delphi-Quelltext

1:	Form1.Color := $000080FF;

csigg · Verfasst: Fr 01.04.05 14:42

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

WeBsPaCe · Verfasst: 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:

markieren

Delphi-Quelltext

1:	Form1.Color := StrToInt(FarbeAusDatenbank);

Bei Integer brauchst du keine weitere Funktion:

markieren

Delphi-Quelltext

1:	Form1.Color := FarbeAusDatenbank;

retnyg · Verfasst: Fr 01.04.05 14:49

csigg hat folgendes geschrieben:

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

hier steht warum (ziemlich unten beim obersten beitrag)

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

csigg · Verfasst: Fr 01.04.05 14:50

habs jetzt so geschrieben:

markieren

Delphi-Quelltext

1:
2:

 itemp := FieldByName('ABWESEND').asInteger;
  lvAlleMitarbeiter.Color := TColor(itemp);

csigg · Verfasst: Fr 01.04.05 14:52

@retnyg vielen Dank

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme