Mam TImer'a z takim kodem:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not IdTCPClient2.Connected then IdTCPClient2.connect;
IdTCPClient2.SendCmd('GET');
if IdTCPClient2.LastCmdResult.TextCode = '300' then memo1.Lines.add('rozmówca: ' + IdTCPClient2.LastCmdResult.text.Text);
end;
Jednak po wyświetleniu tekstu dodaje się samoczynnie kolejna pusta linia. Dlaczego?
przykład memo:
rozmówca: jakiś tam tekst
rozmówca: kolejny tekst
rozmówca: coś jeszcze