Hey wie kann ich beidisem Code erreichrn das der string nick fett erscheint...
Delphi-Quellcode:
var
s:
string;
nick:
string;
DataThread: TClientDataThread;
begin
// create thread
DataThread:= TClientDataThread.Create(true);
// set the TagetList to the gui list that you
// with to synch with.
DataThread.TargetList := memRecv.lines;
// Load the Threads ListBuffer
nick := ClientSocket.Receiveln;
s := ClientSocket.Receiveln;
while s <> '
'
do
begin
DataThread.ListBuffer.Add( nick + '
-' + TimeToStr(Time) +'
@' + ClientSocket.RemoteHost + '
> '+ s);
s := ClientSocket.Receiveln;
end;
// Call Resume which will execute and synch the
// ListBuffer with the TargetList
DataThread.Resume;
memrecv.Perform(EM_SCROLLCARET, 0, 0);
end;