VPF::Как вставить в начало каждого сохраненного файла

Serhik_z

Дата 18.6.2005, 04:26 (ссылка)

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

Загрузка ...

Шустрый

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

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

Poseidon - Спасибо, Все получилось.

Код


function TForm2.SaveStringsToFiles(const AList: TStrings;
  ACountLines: Integer): Boolean;
var
i, x: integer;
List: TStrings;
FileName: string;// для добавления строк
begin
List:= TStringList.Create;
x:= 1;// Счетчик с 1го
FileName:= 'L'+IntToStr(x);
List.Add(FileName);
for i:= 0 to Alist.Count-1 do
  begin
  List.Add(AList.Strings[i]);
  if ((i+1) mod ACountLines = 0)and(i<>0)
  then
    begin
    List.Add('M20');// вот это добавили
    List.SaveToFile(FileName+'.iso');
    x:= x+1;
    FileName:= 'L'+IntToStr(x);
    List.Clear;
    List.Add(FileName+'');//Убрали +'iso' для L1 L2 ...
    end;
  end;
  List.Add('M20');// вот это добавили для последнего файла
List.SaveToFile(FileName+'.iso');
List.Free;
Result:= True;
end;

Poseidon

Дата 18.6.2005, 09:15 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Рад, что нашими общеми усилиями все получилось. Обращайся еще smile

Это сообщение отредактировал(а) Poseidon - 18.6.2005, 09:16

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Dynamic

Дата 19.6.2005, 06:12 (ссылка)

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

Загрузка ...

Опытный

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

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

Это не правильно было?

Код


procedure TForm1.Button1Click(Sender: TObject);
var cnt, i, idx, j: integer;
   fn: string;
begin
    cnt := StrToIntDef(Edit1.Text, 1);  // строк в куске
    idx := 1;     // счетчик файлов
    j := 0;       // позиция в Мемо
    with TStringList.Create do
    try
     while j <= Memo1.Lines.Count do
     begin
      Clear;
      fn := 'L' + IntToStr(idx); // имя файла
      inc(idx);
      Add(fn);   // добавляем имя файла в начало
      for i := j to j + cnt-1 do
       if i >= Memo1.Lines.Count then break else
         Add(Memo1.Lines[i]);
      inc(j, cnt);    // смещаем позицию в Мемо
      Add(fn);        // добавляем имя файла в конец
      SaveToFile(fn + '.iso');  // сохраняем
     end;
    finally
      Free;
    end;
end;

Это сообщение отредактировал(а) Dynamic - 19.6.2005, 06:16

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

Было бы о чем молчать, а уж что сказать – всегда найдется...

Serhik_z

Дата 19.6.2005, 09:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

А можно сделать так, чтоб последняя строка пронумеровывалась.
Как №123 текст последней стоки.

Poseidon

Дата 19.6.2005, 15:37 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(Serhik_z @ 19.6.2005, 09:18)

А можно сделать так

Можно все! smile

Только скажи, что значит "пронумеровалась"? Т.е. должен быть именно №123 или № строки?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Quadr0

Дата 19.6.2005, 16:55 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:20

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