Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа со строками в Tmemo

Автор: Borland_Delphi_6 3.1.2005, 14:26

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

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

Например:

String1
String2
String3

String1,String2,String3

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

Автор: Alex 3.1.2005, 15:03

Код


Memo1.Lines.CommaText

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

Автор: Borland_Delphi_6 4.1.2005, 11:56

Цитата(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;