"нарезчик" в консольном приложении

[Panika]

почему то ничего не изменяется(((

[Alex_FF]

Сообщение от Panika

почему то ничего не изменяется(((

а что должно меняться?
Пример, который я привёл считывает строки из файла input.txt и записывает их в файлы, которые носят имена id, записанного в строке.

[Panika]

т.е. они кидаются по файлам 1, 2 и т.д.?

[Panika]

ой!!! все все все!!! нашла их!!! сорри!!!
а можно сделать так, чтобы эти файлы были текстовые?

[Panika]

ох, и снова я...он разбирает только по одной строчке, первой ему попавшейся, а остальные игнорирует(((

[Alex_FF]

так остальные строки записываются в другие файлы.
или могут быть строки с одинаковыми id?

[Panika]

могут и их много)))
сорри, я наверно не сказала...

[Alex_FF]

тогда попробуйте вот так:

program Project2;

{$APPTYPE CONSOLE}
{$S+}

uses
  SysUtils;

const
  Source = 'input.txt';

var
  S, Target: String;
  I, Index, IOCode: Integer;
  FI, FT: Text;
begin
  Reset(FI, Source);
  while not EOF(FI) do
  begin
    ReadLn(FI, S);
    Index := Pos('|', S);
    Target := '';
    for I := 1 to Index - 1 do  // получам id - будем его использовать как имя файла
      Target := Target + S[i];
    Target := Target + '.txt';
    Assign(FT, Target);
    {$I-}
    Append(FT);
    {$I+}
    IOCode := IOResult;
    if IOCode = 2 then
    begin
      {$I-}
      Rewrite(FT);
      {$I+}
      IOCode := IOResult;
    end;
    if IOCode = 0 then
    begin
      Delete(S, 1, Index - 1);
      WriteLn(FT, S);
      Close(FT);
    end;
  end;
end.

НО, чтобы правильно работало, НЕ ДОЛЖНО быть файлов, с таким же именем, что и создает программа, а то она просто допишет в них результат... Следовательно, несколько раз подряд программу запускать не следует - нужно вначале удалить файлы, которые она создала, а потом запускать.

[Panika]

Вау!!! Спасибо огромное приогромное!!! Просто великолепно!!! Вы гений!!! Можно я буду к Вам обращаться, если что???

[Panika]

НО, чтобы правильно работало, НЕ ДОЛЖНО быть файлов, с таким же именем, что и создает программа, а то она просто допишет в них результат... Следовательно, несколько раз подряд программу запускать не следует - нужно вначале удалить файлы, которые она создала, а потом запускать.

Ребята!!! Помогите!!! пробовала сама исправить эту ошибку но все никак не получается...а препод это требует...я уже и не знаю что и делать... помогите, очень Вас прошу...