Zitat von
dominikkv:
hi und Willkommen bei
DP
so hab ich das in meinem chat gelöst
Delphi-Quellcode:
ChatWnd.Lines.Add('('+TimeToStr(Now)+') '+copy(s, Pos('/',s)+1, Pos('\',s)-Pos('/',s)-1)+': '+ copy(s, Pos('|',s)+1, length(s)-Pos('|', s)));
ChatWnd.SelStart := Length(chatWnd.Text)-length(s)-length(TimeToStr(Now))+1;
ChatWnd.SelLength := Length(TimeToStr(now))+4+Pos('\', s)-Pos('/', s);
ChatWnd.SelAttributes.Color := clBlue;
Mit der Variable "s" in deinem Code kann ich leider nichts anfangen. Ich kann mir die Stelle nicht so richtig erklären:
Zitat:
ChatWnd.SelStart := Length(chatWnd.Text) - length(s) - length(TimeToStr(Now)) + 1;
[ChatWnd.SelLength := Length(TimeToStr(now)) + 4 + Pos('\', s) - Pos('/', s);
