Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Memo 


PanDron   (2002-03-29 11:51) [0]

Можно ли в Memo2 добавить все строки из Memo1 без операторов for i:=0 to ...?



gek   (2002-03-29 12:00) [1]

Memo1.Text:=Memo2.Text



Andrews   (2002-03-29 12:01) [2]

Не знаю как у Memo, а ListBox`ами проходит такая операция ListBox1.Items := ListBox2.Items;



Кулюкин Олег   (2002-03-29 12:03) [3]

Memo2.Lines.AddStrings(Memo1.Lines)

Только внутри метода AddStrings все сведется к for i:=0 to ...



arhelon   (2002-03-29 12:15) [4]

memo1.lines:=memo2.lines



Song   (2002-03-29 12:28) [5]

arhelon © (29.03.02 12:15)
Однако при таком присваивании, если memo2 будет уничтожен либо его Lines изменится, такие же изменения произойдут и в Memo1, потому что так мы только ссылаемся на динамическую область памяти. Поэтому, для безопасности лучше использовать Assign



Alx2   (2002-03-29 12:35) [6]

>Song © (29.03.02 12:28)
Неправда ваша :)
Как раз Assign в этом случае и срабатывает (см. property Lines: TStrings read FLines write SetLines;
<.....>
procedure TCustomMemo.SetLines(Value: TStrings);
begin
FLines.Assign(Value);
end;
)



arhelon   (2002-03-29 13:20) [7]

>Song © (29.03.02 12:28)
А Ты не когда не пробовал писать что-то типа
...
var q.TQuery;
begin
q:=Tq..Create(self);
q.sql:=memo1.lines;
...

И что после того как я поменяю memo1 в q у мня чё бордак будет???

А ежли наоборот хочю проверить
Memo1.Lines:=q.sql;
q.Free;
Что у мня в Memo1 ничё не останется ???
Или могет Ты не прав ???



Song   (2002-03-29 17:21) [8]

arhelon © (29.03.02 13:20)
Что у мня в Memo1 ничё не останется ???

Именно так.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.034 c
4-33007           Death                 2002-02-09 23:19  2002.04.11  
Помогите вызвать форму на передний план.


1-32870           QWest                 2002-03-29 09:45  2002.04.11  
Помогите други!!!!!!!!!1


1-32841           LiNkS                 2002-03-28 15:30  2002.04.11  
Что-нибудь типа ReadOnly.


1-32857           Avgurin               2002-03-29 02:38  2002.04.11  
Handle


1-32836           Goblinus              2002-03-27 21:18  2002.04.11  
Опять эмулирование клавиш...