Копирование строк из файла в файл TStringList

[FleXik]

AssignFile(f, Form1.sDirectoryEdit1.Text + '\' + UpperCase(sPass) + '.txt');
ReWrite(f);
WriteLn(f, sl.Strings[i-1]);
CloseFile(f);
end;

перед этим есть еще кусок кода но не суть, выкладываю главное, вобщем я указываю .txt файл и с него копирует 1 строку и вставляет в новосозданные .txt файлы (т.е сам указываю сколько файлов будет создано и столько же строк из указанного файла копируеться), но мне нужно чтобы я сам указывал количество строк которое копировать из указанного .txt файла и вставлять в новосозданные файлы, нужно через Form1.sSpinEdit3.Value, спасибо.

[Аватар]

А с какого места входящего файла копируются строки (с начала, конца, указанной строки)?
В какое место исходящих файлов вставка идет (аналогичные варианты)?
Итого 9 возможных комбинаций.

[FleXik]

Сообщение от Аватар

А с какого места входящего файла копируются строки (с начала, конца, указанной строки)?
В какое место исходящих файлов вставка идет (аналогичные варианты)?
Итого 9 возможных комбинаций.

строки копируються от начала до конца, тупо береться строка из указанного файла копируеться в новосозданный файл и всё, причем количество строк которые будут копироваться я должен сам, через Form1.sSpinEdit3.Value

[Аватар]

Кто-то должен еще проверить, чтобы Form1.sSpinEdit3.Value было не больше sl.Strings.Count

for i:=0 to Form1.sSpinEdit3.Value-1 do WriteLn(f, sl.Strings[i]);

[FleXik]

Сообщение от Аватар

Кто-то должен еще проверить, чтобы Form1.sSpinEdit3.Value было не больше sl.Strings.Count

Всё верно, спасибо за код сейчас посмотрю и отпишусь, еще раз спасибо за помощь.

[FleXik]

так... извиняюсь это я не посмотрел и прописал так:

for j:=0 to Form1.sSpinEdit3.Value-1 do WriteLn(f, sl.Strings[j]);
ReWrite(f);

вместо так:

ReWrite(f);
for j:=0 to Form1.sSpinEdit3.Value-1 do WriteLn(f, sl.Strings[j]);

[FleXik]

вобщем всё работает но копирует только первые указанные строки а мне надо чтобы переходило к следующим, т.е в файле который указываеться 5 строк (1-2-3-4-5), создаю 2 файла в них копирует 1-2 и 1-2 вместо 1-2 и 3-4, пробовал inc(j); что-то не пашет

[FleXik]

ответьте на вопрос выше пожалуйста, перепробовал уже много разного, inc(j) не помагает хотя должно помагать. всё ровно копирует одни и те же две первых строки (если указываю копировать две), а должно переходить к двух следующим т.е 1-2 следующий файл 3-4, следующий 5-6, и т.д

[Аватар]

А как ответить, если всего кода нет? Там должен быть в каком-то виде цикл по исходящим файлам и во внутреннем цикле по строкам j должно начинаться не с 0, а в зависимости от значения счетчика внешнего цикла и Form1.sSpinEdit3.Value

[FleXik]

так это и есть главный кусок кода который отвечает за эту функцию, в остальном куске кода функции вообще другие которые отлично работают, я описал проблему выше что в созданные файлы копирует две одинаковых строки вместо чтобы переходить к двум следующим (1-2 и 3-4), уж подробнее обьяснить не могу (имеется в виду то что итак максимально подробно описал трабл), извиняйте.

AssignFile(f, Form1.sDirectoryEdit1.Text + '\' + UpperCase(sPass) + '.txt');
ReWrite(f);
for j:=0 to Form1.sSpinEdit3.Value-1 do
WriteLn(f, sl.Strings[j]);
CloseFile(f);
sl.Free;
end;
MessageDlg('Готово', mtInformation, [mbOK], 0);
end;