- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
...
then begin
sl.Add('['+tt+' '+inttostr(col)+'] '+Edit2.Text+' -> '+nic+edit1.Text);
ProgressBar1.Position:=30;
Re_SL(sl,true);ProgressBar1.Position:=40;
RichEdit2.Lines.Assign(sl);
Re_SL(sl,false);ProgressBar1.Position:=50;
sl.SaveToFile('.\data\chat.hkd');ProgressBar1.Position:=60;StatusBar1.Refresh;
reColor(richEdit2);ProgressBar1.Position:=70;
RichEdit2.Lines.SaveToFile('.\data\_.~tmp');ProgressBar1.Position:=75;StatusBar1.Refresh;
RichEdit1.Lines.LoadFromFile('.\data\_.~tmp');ProgressBar1.Position:=70;
sl.Free;ProgressBar1.Position:=80; StatusBar1.Refresh;
http://codingrus.ru/forum/viewthread.php?forum_id=33&thread_id=30
Комментарии (0) RSS
Добавить комментарий