задача с обновлением Memo и сразу последующим его заполнением инфой по сети

[NiKiToZZ-]

В общем есть на форме мемо. Заполняется посредством прихода информации от сервера. Но если не поставить очистку Memo перед получением следующего пучка информации, то они просто будут друг к другу "приплюсовываться", т.е инфо2 будет добавляться в мемо после инфо1. Так вот подскажите как сделать, чтобы при получение новой информации, мемо затирало прежнюю? Но без потерь! А то я сварганил такой код, но при получении новой инфы часть ее тоже пропадает.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket); 
var Received: string;
begin
  Received:=Socket.ReceiveText;
  Memo2.Clear;
  Memo2.Lines.Add(Received);
end;

P.S я не совсем новичок, но все же вы пожалуйста, если вам не сложно скидывайте готовый код. Объяснения приветствуются!

Почему все молчат( Неужели так сложно исправить код? Кому то вы целые задачи решаете а комуто несколько строчек исправить не можете

[Stilet]

Почему все молчат( Неужели так сложно исправить код?

Торопыжка был голодный. Его проктолог это оценил.

чтобы при получение новой информации, мемо затирало прежнюю

Memo2.Clear; это и делает.

Но без потерь!

Ты уж определись, чего тебе надо. Затер значит затер.

Кому то вы целые задачи решаете а комуто несколько строчек исправить не можете

Раз ты такой обидчивый без причины, то рекомендую заглянуть вот сюда:
http://www.delphiworld.narod.ru/_all_articles_.html
В раздел Сокеты - [27]. Там сказано что делать со склейками и потерями пакетов, оттуда и начни свое изучение.

[NiKiToZZ-]

Уважаемый Stilet, дело не в том что теряются пакеты. Проблема в том что в один момент времени функция Memo2.Clear начинает свою работу по очищению содержания Memo2. И следующим действием идет добавление в Memo2 новой, только что пришедшей информации. Но в моей программе ее приходит много, около сотни строчек. Так вот инфо пришло, но Memo2.Clear стирает еще и половину новой информации. Я незнаю почему. Потери пакетов и инфы исключены. Если удалить строчку Memo2.Clear то вся информация приходит. Если вы знаете какую нибудь команду ожидания для Delphi может вы мне подскажете? Или подскажите чем несущественным можно заполнить время в период между выполнением Memo2.Clear и Memo2.Lines.Add(Socket.ReceiveText) ?

[evg_m]

Memo2.Clear + Memo2.Lines.Add(s) = Memo2.Text:=s;

Информация приходит блоками, НО не такими которыми думает(ожидает) программист, а такими как удобно серверу, клиенту и всем тем кто находится на пути и участвует в передаче.
И уж задача программиста определить начало НУЖНОГО ему блока.

if .... then memo2..clear;

[NiKiToZZ-]

В общем код мне никто не подправит. Жаль. Придется дальше самому мучаться. Спасибо за помощь

[Stilet]

NiKiToZZ-

В таком случае стирать инфу необходимо в другом событии, скажем в OnClientConnect, если ты конечно после посылки разрываешь связь.
Я бы делал так:
1) Открыл коннетк - у приемщика сработал OnClientConnect, где началась очистка мемо, причем для скорости можно отключить отрисовку:

 with Memo1 do begin
  Lines.BeginUpdate;Clear;Lines.EndUpdate;
 end;

А уж потом принимать данные, и писать их в Мемо.

Придется дальше самому мучаться.

В таком случае тема закрыта, всего доброго