Скопировать в новый файл

[мимо]

Здравствуйте, как осуществить?
есть файл - 'old.txt' с содержимым

Time 022557
Name Accessdb
Type txt
Size (bytes) 1 850

Time 030518
Name CometBird
Type txt
Size (bytes) 1 970

нужно создать файлы с именами 022557.txt и 030518.txt, т.е. брать имя из Time и с содержимым соот-но в
022557.txt

Time 022557
Name Accessdb
Type txt
Size (bytes) 1 850

а в
030518.txt

Time 030518
Name CometBird
Type txt
Size (bytes) 1 970

Желательно кодом. Заранее спасибо.

[ArtGrek]

TstringList.LoadFromFile(MyFileName );
я так понимаю у фаила есть определеная структура
значит можно будет обрашаца к конкретным строкам TStringList через шаг
если нет то читать строки(ReadString) по очереди проверять есть ли в них слово(Pos('Time', TstringList[x]), и копировать текст(Copy) после него

  var
    ft: TextFile;

  If not (FileExists('c:\022557.txt')) then                              
  begin                                                          
    AssignFile(FT,'c:\022557.txt');                                        
    Rewrite(FT);                                                 
    CloseFile(FT);

[kangreon]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
  Time, Name, Type_, Size: string;
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('c:\old.txt');
  s := sl.Text;
  i := 1;
  while PosEx('Time ',s,i) <> 0 do
  begin
    sl.Clear;
    i := PosEx('Time ', s, i) + 5;
    Time := Copy(s, i, PosEx(#13, s, i) - i);
    i := PosEx('Name ', s, i) + 5;
    Name := Copy(s, i, PosEx(#13, s, i) - i);
    i := PosEx('Type ', s, i) + 5;
    Type_ := Copy(s, i, PosEx(#13, s, i) - i);
    i := PosEx('Size ', s, i) + 5;
    Size := Copy(s, i, PosEx(#13, s, i) - i);
    sl.Add('Time '+ Time);
    sl.Add('Name '+ Name);
    sl.Add('Type '+ Type_);
    sl.Add('Size '+ Size);
    sl.SaveToFile('c:\'+ Time);
  end;
  sl.Free;
end;

[Человек_Борща]

Функции AnsiCopy,AnsiPos больше ничего и не надо.

[мимо]

использую AssignFile

var
temp: TStringList;
...
    while not eof(f) do
    begin
      readln(f,s);

      if (Pos('Time', s) <> 0) then
        begin
          repeat
            temp.Add(Copy(s, 1, Length(s)));
            readln(f,s);
          until (Pos('Time', s) <> 0);
            temp.SaveToFile(name+'.txt');
          end;
...
end;
closefile(f);

но проблемма
- until (Pos('Time', s) <> 0); - нашел следующую нужную строку
- затем идет readln(f,s); и уже if (Pos('Time', s) <> 0) then не срабатывает ( помогите исправить?

[ArtGrek]

зачем вам repeat ???

      if (Pos('Time', s) <> 0) then
        begin
          temp.Add(Copy(s, 1, Length(s)));
          readln(f,s);
          temp.SaveToFile(name+'.txt');
        end;

PS> зря вы не вдумались в мое первое сообшение

[мимо]

Нашел я 'Time' и надо скопировать все строки после него до следующего 'Time', т.е. пока не найдем 'Time'