Вывод memo за пределы цикла

@subzero86 · Регистрация: 10.11.2018

Студворк — интернет-сервис помощи студентам

Суть вопроса в следующем: Возможно ли, в данном коде, вывести Memo за пределы while not Eof(f)

Проще говоря, вывести за пределы цикла, что бы код работал быстрее. Понимаю что вопрос банальный но спрашиваю за своей неопытности.

Delphi
1
2
3
4
5
6
7
8
9
10
11
while not Eof(f) do
      begin
 
// Цикл 
if i = Memo1.Lines.Count - 1 then
  i := 0
     else
        Inc(i);
      s := s + Memo1.Lines[i];
     Writeln(f, s);
end;

Verevkin · 08.12.2018, 17:39

Сообщение от subzero86

Безупречная работа, СПАСИБО!!!

Мне можно не продолжать?

@subzero86 · 08.12.2018, 17:45 **[ТС]**

Verevkin, Почему же, опубликуйте и свой вариант. Я думаю он тоже не помешает... Не зря же старались.

Verevkin · 08.12.2018, 22:36

Сорри, ко мне тут комп приносили. Пока разобрал, пока собрал, пока настроил...
Ща всё будет.

@subzero86 · 08.12.2018, 22:53 **[ТС]**

Verevkin, Выражаю благодарность.

Verevkin · 08.12.2018, 23:36

Ссылка на проект.
----

Если чо не так - пишите снизу.

@subzero86 · 09.12.2018, 00:17 **[ТС]**

Verevkin, С удовольствием посмотрел видео, спасибо. Теперь придется разбираться в исходнике, но все же интересно было... Особенно эксперименты с буфером...

Добавлено через 5 минут
Verevkin, Кстати и подписался на ваш канал на youtube. Могу сказать вещь, особенно видео про то как уберечь детей...

)).

Verevkin · 09.12.2018, 00:21

Сообщение от subzero86

Теперь придется разбираться в исходнике

Зачем? Тебя предыдущее решение не удовлетворило, штоли?
А шоп в исходнике не копаться особо, возьми только модуль uMyClasses.pas и напиши вокруг него новую программу: так быстрее будет. Если интересно, конечно.

Если чо непонятно - спрашивай. Тока у меня чот сайт сбоит/глючит немного; если отвалюсь, ты знаешь, как меня найти.

Добавлено через 2 минуты

Не по теме:

Сообщение от subzero86

Кстати и подписался на ваш канал на youtube.

Зачем? Там по программированию всего несколько роликов и все они одноразовые. Я их скоро удалять начну, они никому не нужны. Причём в открытом доступе их меньшинство.

@subzero86 · 09.12.2018, 00:22 **[ТС]**

Verevkin, Ну я имел в виду что: Для общего развития, а так вариант отличный, спасибо!. В любом случае отпишу, ок!

Verevkin · 09.12.2018, 00:26

Сообщение от subzero86

Ну я имел в виду что: Для общего развития, а так вариант отличный, спасибо!. В любом случае отпишу, ок!

Да мне всё равно.
Ну ОК...

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@subzero86 4 / 4 / 0 Регистрация: 10.11.2018 Сообщений: 73
	08.12.2018, 17:45 [ТС]
	Verevkin, Почему же, опубликуйте и свой вариант. Я думаю он тоже не помешает... Не зря же старались. 0

Verevkin Злостный нарушитель 10878 / 5817 / 1288 Регистрация: 12.03.2015 Сообщений: 26,855
	08.12.2018, 22:36
	Сорри, ко мне тут комп приносили. Пока разобрал, пока собрал, пока настроил... Ща всё будет. 1

@subzero86 4 / 4 / 0 Регистрация: 10.11.2018 Сообщений: 73
	08.12.2018, 22:53 [ТС]
	Verevkin, Выражаю благодарность. 0

Verevkin Злостный нарушитель 10878 / 5817 / 1288 Регистрация: 12.03.2015 Сообщений: 26,855
	08.12.2018, 23:36
	Сообщение было отмечено subzero86 как решение Решение Ссылка на проект. ---- Если чо не так - пишите снизу. 1

@subzero86 4 / 4 / 0 Регистрация: 10.11.2018 Сообщений: 73
	09.12.2018, 00:17 [ТС]
	Verevkin, С удовольствием посмотрел видео, спасибо. Теперь придется разбираться в исходнике, но все же интересно было... Особенно эксперименты с буфером... Добавлено через 5 минут Verevkin, Кстати и подписался на ваш канал на youtube. Могу сказать вещь, особенно видео про то как уберечь детей... )). 0

@subzero86 4 / 4 / 0 Регистрация: 10.11.2018 Сообщений: 73
	09.12.2018, 00:22 [ТС]
	Verevkin, Ну я имел в виду что: Для общего развития, а так вариант отличный, спасибо!. В любом случае отпишу, ок! 0

Вывод memo за пределы цикла

Решение