Показать сообщение отдельно
  #4  
Старый 30.06.2012, 20:05
PS11011010 PS11011010 вне форума
Новичок
 
Регистрация: 30.03.2012
Сообщения: 98
Репутация: 282
По умолчанию

Вот такая вот попытка...
Код:
mas: array [0..13] of char = ('0','1','2','3','4','5','6','7','8','9','.',':',' ');
ListBox1.Items.LoadFromFile('.txt');
For i:=0 to ListBox1.Count-1 do
Begin
 s:=ListBox1.Items[i];
 While s[1] in mas delete(s, 1, 1); //вот тут удаляем все служебные символы
 ListBox1.Items[i]:=s;
End;
Ответить с цитированием