Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Подскажите с сохранение строк

Автор: Serhik_z 8.4.2005, 14:09

Подскажите.
Есть файл 8000 строк (00.txt)
Сохраняем по 200 строк в файл
Почему в перывй файл сохраниятся 201 строка, а в остальные как положено по 200 и
последний файл остаток (-1 строка) от первого файла.

Код


procedure TForm2.Button1Click(Sender: TObject);
var
 m: integer;
begin
 m:= StrToInt(Edit1.Text);// вводим 200 строк в Edit
 SaveStringsToFiles(Form1.Memo1.Lines, m);
 Form2.Close;
end;

function TForm2.SaveStringsToFiles(const AList: TStrings;
  ACountLines: Integer): Boolean;
var
i, x: integer;
List: TStrings;
begin
List:= TStringList.Create;
x:= 0;// прибавка к файлу 00000.txt как 000000.txt
for i:= 0 to Alist.Count-1 do
  begin
  List.Add(AList.Strings[i]);
  if (i mod ACountLines = 0)and(i<>0)
  then
    begin
    List.SaveToFile('00000'+IntToStr(x)+'.txt');
    x:= x+1;// счетчик файлов
    List.Clear;
    end;
  end;
List.SaveToFile('00000'+IntToStr(x)+'.txt');
List.Free;
Result:= True;
end;

Автор: Александра 8.4.2005, 14:34

Код


 if ((i+1) mod ACountLines = 0) then ...

Автор: Serhik_z 8.4.2005, 14:39

Александра Спасибо!!!

Код


if ((i+1) mod ACountLines = 0)and(i<>0)