Irgendwie hab cih gradn hänger was is heiran falsch?
Es wird nur ncihtsmehr zum memo1 geadded.
Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
Textrec : string;
begin
Textrec:= Socket.ReceiveText;
Form1.Show;
if not pos('192', Textrec) = 1 then
Memo1.Lines.Add(Textrec);
end;
Woran liegt das?
Lg La.Reunion