Логические ошибки в программе

[hydrogen]

Программа разбивает текст из текстового файла на куски определённого размера и сохраняет каждый кусок в отдельном файле.
Код:

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:widestring;
  filename,i,k:string;
  f,t:textfile;
  l:integer;
begin
  s:='';
  assignfile(t,'c:\0.txt');
  reset(t);
  while not eof(t) do
  begin
  readln(t,s1);
  s:=s+s1;
  end;
  closefile(t);
  l:=2000;           
  filename:='c:\1.txt';
  i:='1';
  k:='';
  repeat
  begin
  s2:=copy(s,1,l);
  delete(s,1,l);
  assignfile(f,'filename');
  rewrite(f);
  write(f,s2);
  closefile(f);
  insert(i, filename, 4);      
  end;
  until s=k
end;

Файлы не появляются. Я думаю, что виноват либо repeat либо insert. Помогите.

[Alex Cones]

1)

 assignfile(f,'filename');

Без кавычек
2)Зачем Вам f и t? Используйте одну переменную, экономьте память.
3)Если в отдельном файле, то используйте счетчик, для смены имени файла:

filename:='C:/'+IntToStr(Count)+'.txt';

4)Зачем Вам k?

until s=''

5)Вы уверены, что у Вас в файле кол-во символов кратно 2000? С Delete, Copy и вылететь не долго.

[hydrogen]

Спасибо. Ошибка глупая.
Можно по подробнее, со счетчиком файлов?

filename:='C:/'+IntToStr(Count)+'.txt';

я так понимаю, что 'C:/' и '.txt' остаются неизменными, а вот IntToStr(Count) как работает?

[Alex Cones]

Представьте, что у вас есть переменная I:Integer.
Она числового типа.
Если Вы вставите её напрямую в

filename:='C:/'+I+'.txt';

То компилятор выдаст ошибку: "несовместимые типы: Integer и String"
Для того, чтобы вставить Integer в String необходимо преобразовать значение:

IntToStr(I)

Обратно перевести тоже легко, к примеру у вас есть такая конструкция:

S:String;
S:='123';

Возникает вопрос, как присвоить это значение переменной типа Integer? Да очень просто:

I:=StrToInt(S);

Таких функций для преобразования типов достаточно много.

[hydrogen]

да точно? вспомнил.
Я вместо I поставил 1 и он у меня сохраняет только один файл с именем 1.

[hydrogen]

Программа должна разбивать текст из файла 0.txt на куски размером в интервале от l1 до l2 и сохранять их в файлах. Тут логическая ошибка: он сохраняет не в этом интервале, а как то вылезает из интервала. Помогите.

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:widestring;
  p,st:string;
  f,t:textfile;
  l,l1,l2,y,x,d,v,k:integer;
begin
  l1:=strtoint(edit1.Text);
  l2:=strtoint(edit2.Text);
  d:=l2-l1;
  s:='';
  assignfile(t,'c:\0.txt');
  reset(t);
  while not eof(t) do
  begin
  readln(t,s1);
  s:=s+s1;
  end;
  closefile(t);
  x:=0;
  repeat
  begin
  v:=random(d);
  k:=l1+v;
  x:=x+1;
  p:=copy(s,k,1000);
  y:=pos('.',p);
  l:=k+y;
  s2:=copy(s,1,l);
  delete(s,1,l);
  assignfile(f,'c:\'+IntToStr(x)+'.txt');
  rewrite(f);
  write(f,s2);
  closefile(f);
  end;
  until s=''
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;

[hydrogen]

Я понял проблему! Это все кодировка виновата. У меня текст русский в кодировки utf8. Надо, чтобы он правильно считал.

[hydrogen]

Всё разобрался . Надо сохранять в кодировки ANSI 1251, тогда все пашет.
Всем спасибо.