Показать сообщение отдельно
  #2  
Старый 26.01.2010, 18:01
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

TStringList тебе поможет. А так же функции Pos и Copy.

Код:
var
  L : TStringList;
  S : String;
begin
  L := TStringList.Create;
  L.LoadFromFile('filename.txt');
  S := L[L.Count-1];
  S := Copy(S,Pos(' ',S)+1,Length(S) - Pos(' ',S) + 1);
  L.Clear;
  L.Add(S);
  L.SaveToFile('newfilename.txt');
  L.Free;
end;
Ответить с цитированием