VPF::RichEdit - Форум программистов

Kirgston

Дата 11.6.2008, 21:21 (ссылка)

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

Загрузка ...

Опытный

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

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

Ребята. Надо вашу помощ. Как мне заставить чтоб Рич создавал файлик по особому. Тоисть мой текст + текст из файла. Сижу блин и никак немогу придумать.

mr.Anderson

Дата 12.6.2008, 08:37 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Пиши в файл вручную. Открываем через AssignFile-Rewrite, пишем свое что-то, потом дописываем текст из файла.

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

THandle

Дата 12.6.2008, 09:55 (ссылка)

(голосов:2)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(mr.Anderson @ 12.6.2008, 09:37

)

Открываем через AssignFile-Rewrite

Ну зачем такие древности использовать?

Можно так:

Сохраняем по нажатию кнопки текст в RichEdit, а после него текст из какого-то файла 1.txt. Сохраняется все в файл 2.txt.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do
    begin
      LoadFromFile('D:\1.txt');
      Insert(0, RichEdit1.Text);
      SaveToFile('D:\2.txt');
      Free;
    end;
end;

Данкинг

Дата 12.6.2008, 10:26 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(THandle @ 12.6.2008, 10:55

)

Ну зачем такие древности использовать?

Такие древности зачастую весьма удобны бывают! smile

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

There's nothing left but silent epitaphs.

pseud

Дата 12.6.2008, 10:33 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(Данкинг @ 12.6.2008, 10:26

)

Такие древности зачастую весьма удобны бывают!

раздел: Delphi: Для новичков
поэтому чем понятнее - тем лучше.
а что быстрее / надежнее / и пр. - не по адресу

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Данкинг

Дата 12.6.2008, 10:54 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(pseud @ 12.6.2008, 11:33

)

поэтому чем понятнее - тем лучше.

А что непонятного в выводе/вводе в текстовый файл? smile

По-моему, такие темы как раз в начале любого учебника по Дельфи публикуют. smile

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

There's nothing left but silent epitaphs.

mr.Anderson

Дата 12.6.2008, 10:55 (ссылка)

(голосов:2)

Загрузка ...

iOS Lead Developer

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

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

THandle, это не древности, а чистый паскалевский код. Оба варианта вполне работоспособны и равнозначны, а вариант через AssignFile-Rewrite еще и быстрее. Оба одинаково просты, первый, я бы даже сказал, проще, т.к. опять-таки это практически чистый паскаль, в отличие от дельфовой оболочки.

Добавлено через 29 секунд
ЗЫ На вкус и цвет, конечно.

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

pseud

Дата 12.6.2008, 12:16 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(mr.Anderson @ 12.6.2008, 10:55

)

т.к. опять-таки это практически чистый паскаль

данкингу я говорил
Delphi: Для новичков

тебе скажу инче
Delphi: Для новичков

smile

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Kirgston

Дата 12.6.2008, 12:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Хммм

с AssignFile-Rewrite smile

Данкинг

Дата 12.6.2008, 12:44 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Ну, пожалуйста: если новичкам проще изучать язык (среду) программирования дедуктивным методом, то это их право. smile

И всё же, чтение из файла:

Код


var txt:string;
fff: TextFile;
begin
   assignfile(fff,'c:\aaa.txt');
   reset(fff);
   readln(fff,txt);
   Closefile(fff);
end;

Таким образом, первая строчка файла оказывается в переменной TXT, а указатель позиции в файле смещается на следующую строчку.

Это сообщение отредактировал(а) Данкинг - 12.6.2008, 12:48

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

There's nothing left but silent epitaphs.

pseud

Дата 12.6.2008, 13:31 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Данкинг, а можно весь код по сабжу:

Цитата(Kirgston @ 11.6.2008, 21:21

)

для сравнения с размерами кода написанного THandle.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Данкинг

Дата 12.6.2008, 13:43 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(pseud @ 12.6.2008, 14:31

)

для сравнения с размерами кода написанного THandle.

4 строчки VS 4 строчки. smile

Плюс ещё with. smile

Добавлено @ 13:44

Цитата(pseud @ 12.6.2008, 14:31

)

Данкинг, а можно весь код по сабжу:

Весь код чего? Код считывания я привёл, а больше ничего и не требовалось! smile

Впрочем, для считывания файла целиком цикл нужен, согласен. Но если считываемый файл большой, то можно кинуть прогрессбар для отображения процесса считывания... Чего нельзя сделать при .loadfromfile !

Это сообщение отредактировал(а) Данкинг - 12.6.2008, 13:49

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

There's nothing left but silent epitaphs.

THandle

Дата 12.6.2008, 14:01 (ссылка)

(голосов:2)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Мое мнение: в Делфийском коде не должно быть чисто паскалевского кода если того не требует задача. Я для работы с файлами использую TFileStream, TStringList.

К тому же, сам RichEdit, его Lines реализованы через TStrings, наследником которого и является TStringList.

Цитата(Данкинг @ 12.6.2008, 13:44

)

var txt:string;

Код


fff: TextFile;
begin
   assignfile(fff,'c:\aaa.txt');
   reset(fff);
   readln(fff,txt);
   Closefile(fff);

end;

Это ни капли не аналог моего кода.
У меня эти строки сохраняют в файл и то что находится в TStringList, который загрузил файл, и то что находится в RichEdit.

Паскалевский код который это реализует будет раза в два длиннее, и будет менее красиво выглядеть.
Какие то там процедурки...
Delphi - это прежде всего ООП. И в данном случае намного использовать класс TStringList.

pseud

Дата 12.6.2008, 14:06 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(Данкинг @ 12.6.2008, 13:43

)

Впрочем, для считывания файла целиком цикл нужен, согласен

THandle, поддерживаю.

Данкинг, я имел ввиду весь код, приведенный THandle. а он у тебя получится в разы длиннее.

скорость, прогресс бар и прочее - это уже гаджеты.

код THandle короток и ясен.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Данкинг

Дата 12.6.2008, 14:19 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(pseud @ 12.6.2008, 15:06

)

код THandle короток и ясен.

Но пользоваться уметь надо и тем, и тем! smile

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

There's nothing left but silent epitaphs.

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