так, сделал чтобы отчищалось.
И начал побывать с сохранением логов.
Нашел в книжке код (не могу написать, оставил на работе, напишу завтра).
он создает файл
Сохраняет в него все из Мемо окна,
Но при следующем сохранении, он не дописывает, а удаляет и создает этот файл заново.
Я так понимаю что я на правильном пути, но что то не так ( создавать заново файл файл не должен, а должен дописывать вновь поступившее).
Как можно сделать так, чтобы в окне что внизу выскакивало только последнее полученное сообщение?
По-моему надо как-то связать
Цитата:
// ОБРАБОТКА ВХОДЯЩИХ СООБЩЕНИЙ //
procedure TForm1.Timer1Timer(Sender: TObject);
var
buf : array [0..255] of Char;
recv : integer;
IP : PChar;
Port : integer;
begin
//NET_Update не вызывается, т.к. APL пакеты не посылаем...
// Цикл до тех пор, пока в очереди входящих есть пакеты
while NET_Recv(@buf, 255, IP, Port, recv) > 0 do
Memo1.Lines.Add(Copy(buf, 1, recv));
end;
|
и
Цитата:
procedure TForm1.Button3Click(Sender: TObject);
var
str : string;
begin
str := Memo1.Text; // составляем сообщение
Edit1.Text := '';
Form1.fShowHint(str);
end;
|
только как.... могу ли я как то вместо Memo1.Text указать входящее сообщение?
Прердыдущие вопросы в силе