Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
7. Dez 2005
FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsString;
In diesem Konstrukt, was für ein Typ ist FarbCodeText?
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
7. Dez 2005
function ColorToStr(AFarbe:String):String;
begin
case AFarbe of
'clRed':Result := 'Rot';
....
end;
end;
AFarbe ist kein Ordinaltyp also ein einfachh abzählbarer Typ sein muß.
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
7. Dez 2005
Hallo,
wie schaut es denn aus wenn Du anstatt
FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsVariant;
FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsString;
nimmst. Vorausgesetzt FarbCodeText ist ein String.