ok so wie ichs versucht hab funktioniert es nicht
wie gesagt das is mein erstes "wirkliches" projekt mit delphi ... ich habs so versucht :
Delphi-Quellcode:
procedure TForm5.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
S: string;
CMD: string;
P: Integer;
cn : string;
begin
cn :=nickname;
S := Socket.ReceiveText;
P := Pos(' ', S);
CMD := Copy(S, 1, P - 1);
Delete(S, 1, P);
if CMD = 't' then
begin
Memo1.Lines.Add(S);
if cn = nickname then begin
ListBox2.items.Add(cn);
end;
end;
relevant in diesem code :
cn , if cn , listbox2.
------------------------------------------
Scheint völliger Blödsinn zu sein >.< bitte um Hilfe.