Listbox ... Farbe von Zeile ermitteln

[shmia]

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;