VPF::Подскажите с сохранение строк

Serhik_z

Дата 8.4.2005, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Подскажите.
Есть файл 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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 20.2.2005
Где: Москва

Репутация: 7
Всего: 12

Код


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

--------------------

Serhik_z

Дата 8.4.2005, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

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

Код


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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »