VPF::Работа со строками в Tmemo - Форум программистов

Borland_Delphi_6

Дата 3.1.2005, 14:26 (ссылка)

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

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

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

Не подскажите ли, как сделать следущую фишку: в Tmemo пишем какие-либо глюки (по одной глюке на строку smile

), а эти глюки посли переносятся в TEdit, разделенные запятой smile

Например:

String1
String2
String3

String1,String2,String3

Извините, что так криво объясняю...

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

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

Alex

Дата 3.1.2005, 15:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Код


Memo1.Lines.CommaText

Если в строке содержится запятая, двоеточие или пробел то строка заключается в двойные кавычки.

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Borland_Delphi_6

Дата 4.1.2005, 11:56 (ссылка)

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

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

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

Цитата(Alex @ 3.1.2005, 16:03)

Memo1.Lines.CommaText

Не, это не то smile

Пока я сегодня спал, понял как сделать smile

Вот что получилось:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
I:=0;
while I <> Memo1.Lines.Count do begin
Edit1.Text:=Edit1.Text+'DSCN'+Memo1.Lines.Strings[I]+',';
I:=I+1;
end;
end;

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

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

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