Zitat von
DerMike:
Könntest du mir einen kleinen Tip geben, wie die Funktionen heißen mit denen ich die Werte getrennt (Value,Color) auslesen kann.
Die Funktion muss man natürlich selber schreiben.
Delphi-Quellcode:
function ExtractTextAndColor(const s:string; var text:string):TColor;
var
p : Integer;
begin
p := Pos('|',s);
if p = 0 then // kein Delimter gefunden
begin
text := s;
Result := clGrayText; // default Farbe
end
else
begin
text := copy(s,1, p-1); // Nutztext
Result := TColor(StrToInt(copy(s, p+1, 999))); // Farbe
end;
end;