VPF::Строки в Memo - Форум программистов

Denwer

Дата 20.1.2008, 03:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

В Memo в столбик выстроены слова.
Как сделать чтобы все эти слова были
выстроены в одну строку через запятую.
Можно в Memo2, а можно и в txt. файл.

VICTAR

Дата 20.1.2008, 03:04 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


Memo2.Text:=Memo1.Lines.CommaText;

Denwer

Дата 20.1.2008, 13:26 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всё получилось, но есть одно но...
Слова в конце строки обрываются, пол слова в конце и пол слова
уже в начале следующей.
Можно ли сделать так, чтобы в конце каждой строки после запятой
сделать эфект кнопки enter, типа перенос.

tommy256

Дата 20.1.2008, 14:13 (ссылка)

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

Загрузка ...

Новичок

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

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

+#13 эффект Enter'a

Denwer

Дата 20.1.2008, 18:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

промучался, ничего не выходит.
Как это реализовать в коде?
Тоесть идём по строке с конца, как только встречается запятая то 'enter' . И так далее.

ivan219

Дата 20.1.2008, 18:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Denwer, тебе нужно из столбика в строку через запятую???

Код


var
  S: String;
  I: Integer;
begin
 S := '';
 for I := 0 to Memo1.Lines.Count - 1 do
  S := S + Memo1.Lines.Strings[I] + ',';
end;

Это сообщение отредактировал(а) ivan219 - 20.1.2008, 18:51

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

Мой первый сайт и моя первая программа!!!!!

Denwer

Дата 20.1.2008, 20:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

Да всё, всё правильно. Ты меня понял. Но ещё хотелось бы вот так.

Cейчас вот так - http://totaloverdoses.narod.ru/begin.jpg
А хотелось бы вот так http://totaloverdoses.narod.ru/end.jpg

Тоесть переносос после запятой...

ivan219

Дата 20.1.2008, 22:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

У тебя вся строка считается как неразрывная вот и проблема.
Не очень хорошее но всёже решение:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  I, AWidth: Integer;
  S, S1: String;
begin
 S := '';
 AWidth := Memo2.Width - 10; // Отступ от правого края
 for I := 0 to Memo1.Lines.Count - 1 do
  begin
   S1 := Memo1.Lines.Strings[I] + ',';
   if Canvas.TextWidth(S + S1) > AWidth  then
    begin
     Memo2.Lines.Add(S);
     S := '';
    end;
   S := S + S1;
  end;
end;

Это сообщение отредактировал(а) ivan219 - 20.1.2008, 22:53

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

Мой первый сайт и моя первая программа!!!!!

Denwer

Дата 22.1.2008, 10:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Работает, то что надо... спасибо

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