Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Последняя строка в Memo, Удалить последнюю строку 
:(
    Опции темы
Romero
Дата 21.8.2005, 06:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
TMemo при создании на форме добавляет к своим строкам в конец одну пустую. Как этого избежать?
PM   Вверх
Pakshin A. S.
Дата 21.8.2005, 09:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Вот...

Код

function DelLastEnter(s: string):string;
begin
 if s[Length(s)] = #10
  then
   Delete(s, Length(s)-1, 2);
 Result:=s;
end;


Когда понадобится, то делай так:
Код

Memo1.Text:=DelLastEnter(Memo1.Text);
PM   Вверх
s-mike
Дата 21.8.2005, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Смысл? Так работают все редакторы. Чтобы этого нормально избежать нужно переписывать код компонента и использующегося в нем класса-наследника от TStrings.


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
Pakshin A. S.
Дата 21.8.2005, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Цитата(s @ 21.8.2005, 10:05)
Чтобы этого нормально избежать нужно переписывать код компонента и использующегося в нем класса-наследника от TStrings.


Код

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 Memo1.Lines.Add('asdf');
 Memo1.Text:=DelLastEnter(Memo1.Text);
end;


Сколько бы раз ни тыкал на кнопочку, а все нормально работает... smile
PM   Вверх
Romero
Дата 21.8.2005, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Спасибо! Все гениальное - просто... smile
PM   Вверх
s-mike
Дата 21.8.2005, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата(Pakshin @ 21.8.2005, 09:10)
Сколько бы раз ни тыкал на кнопочку, а все нормально работает... smile

Да это понятно, что можно так сделать, но эта последняя строка будет все время появляться. Чтобы избежать ее появления наиболее корректным и надежным способом, нужно переписывать код, как сказал выше. Но имхо в этом нет никакого смысла.


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
Romero
Дата 21.8.2005, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Цитата(s @ 21.8.2005, 09:37)
Цитата(Pakshin @ 21.8.2005, )
Сколько бы раз ни тыкал на кнопочку, а все нормально работает... smile

Да это понятно, что можно так сделать, но эта последняя строка будет все время появляться. Чтобы избежать ее появления наиболее корректным и надежным способом, нужно переписывать код, как сказал выше. Но имхо в этом нет никакого смысла.

Мне необходимо, чтобы в Мемо (и затем в файле, куда я текст сгружаю) не было лишней строки. Так что мне полностью подходит этот код (вернее одна из его строк - Delete(s, Length(s)-1, 2);).
А с чего вдруг она будет все время появляться?

Это сообщение отредактировал(а) Romero - 21.8.2005, 10:37
PM   Вверх
Poseidon
Дата 21.8.2005, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
А мне вот интересно, какого она вообще там появляется? Это что, соглашение такое?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
s-mike
Дата 21.8.2005, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата(Romero @ 21.8.2005, 10:35)
А с чего вдруг она будет все время появляться?


Цитата(Poseidon @ 21.8.2005, 12:01)
А мне вот интересно, какого она вообще там появляется? Это что, соглашение такое?

Это особенность TStrings и подобных ему структур данных. Разделителем там служит знак перевода строки. При загрузке текста из файла он делится на строки и заносится в массив. В Memo данные заносятся в виде "строка из массива"+разделитель. Вот тут и возникает дополнительный перевод строки. И тут даже виноват не дельфийский класс TStrings, а встроенные API-функции работы с Memo. Но в них по-видимому принцип заложен тот же.

Это сообщение отредактировал(а) s-mike - 21.8.2005, 12:58


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
Pakshin A. S.
Дата 22.8.2005, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
s-mike smile

Никакой дополнительно строчки в Memo:
Код

procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
 Memo1.Text:=DelLastEnter(Memo1.Text);
 for i:=1 to 10 do
  Memo1.Lines.Add(IntToStr(i))
end;

Добавлено @ 09:01
Так же сохраняется структура файла (т. е. если нет последнего Enter'а, то его и в Memo не будет):
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Text:=DelLastEnter(Memo1.Text);
 Memo1.Lines.LoadFromFile('C:\asdf.txt');
end;
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0910 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.