Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Memo1.Lines, var str: TStrings [D7, XP]

Страницы: 1 2 >
Alral © (2006-10-30 15:55:00)
Est' Memo1, ja hochu k dannim v Memo1 pribavit' dannie iz peremennoi tipa TStrings. Kak eto oshushestvit'?

MetalFan (2006-10-31 07:44:00) [1]

> MikePetrichenko © (31.10.06 00:08) [24]
>
>
> > MetalFan © (30.10.06 23:13) [23]
>
> Покажи мне в [1]
> вот такую строку
>
> > lStrs := TStringList.create;
>
> Нету? Нету....

а где в [1]

> str:=Memo1.Lines;

[1]:

> Сергей М. © (30.10.06 15:58) [1]
>
> Append()

MikePetrichenko (2006-10-31 00:08:00) [2]
Т.е. в [10] очепятался.

MikePetrichenko (2006-10-31 00:08:00) [3]

> MetalFan © (30.10.06 23:13) [23]

Покажи мне в [1]
вот такую строку

> lStrs := TStringList.create;

Нету? Нету....

MetalFan (2006-10-30 23:13:00) [4]
[22] бредовый пример...
var lStrs: TStrings; begin lStrs := TStringList.create; try Memo1.Lines.Clear; lStrs.LoadFromFile(...); ...какие-нибудь операции над lStrs Memo1.Lines.AddStrings(lStrs); finally lStrs.Free; end; end;

MikePetrichenko (2006-10-30 21:46:00) [5]
Разжую. Для тех кто в танке.

var str: TStrings;

Переменная типа Tstrings по идее будет хранить указатель на экземпляр.

str:=Memo1.Lines;

Идея пожтвердилась. Засовываем туда указатель на Tstrings из Memo1.Lines.
Важный момент! Теперь на один и тот же объект у нас имеется два указателя!

Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile('msg.txt');

Тут все просто.

Memo1.Lines.AddStrings(str);

Добавили самого себя, так как str указывает на Memo1.Lines.

Еще вопросы?

MikePetrichenko (2006-10-30 21:31:00) [6]

> что именно вам не понравилось в моем ответе на этот вопрос?
> Объсните подробнее, пожалуста.

Я же выделил строки которые не понравились.
Бред.

umbra (2006-10-30 18:52:00) [7]
MikePetrichenko © (30.10.06 17:33) [17]

> Est' Memo1, ja hochu k dannim v Memo1 pribavit' dannie iz
> peremennoi tipa TStrings. Kak eto oshushestvit'?
>

что именно вам не понравилось в моем ответе на этот вопрос? Объсните подробнее, пожалуста.

Anatoly Podgoretsky (2006-10-30 18:37:00) [8]
> MikePetrichenko (30.10.2006 17:02) [15]

> Бред.

Одназначно

RASkov (2006-10-30 18:21:00) [9]
Еще плюс полкапейки
> procedure TForm1.Button5Click(Sender: TObject);
> var str: TStrings;
> begin
> str:=TStringList.Create;
> str.Assign(Memo1.Lines);
> Memo1.Lines.Clear;
> Memo1.Lines.LoadFromFile('msg.txt');
> Memo1.Lines.AddStrings(str);
> Str.Free;
> end;

Интересно, что в мемо такое находится, что сначало его очищаем, потом загружаем из файла и добавляем начальное содержимое мемо? Это только пример как в мемо добавить данные типа !TStrings! На самом деле этот пример нужно пересмотреть...

MikePetrichenko (2006-10-30 17:33:00) [10]

> str:=Memo1.Lines;

следовательно

> Memo1.Lines.Text := Memo1.Lines.Text + str.Text

тоде в "Сад."

umbra (2006-10-30 17:07:00) [11]
5 копеек:

Memo1.Lines.Text := Memo1.Lines.Text + str.Text;

MikePetrichenko (2006-10-30 17:02:00) [12]

> ПРямо-таки откровение)
>
> Ты лучше автору объясни сие.

На кой черт? Оно ему надо?

> str:=Memo1.Lines;

Ну а я про что говорил.

> Memo1.Lines.AddStrings(str);

Бред.

> Возможно, но автор явно указал TStrings.
> Естественно должен использоваться наследник, а судя по последнему
> сообщению - видимо это не так.

Судя по последнему автор не ведает что творит.

Следовательно - "В сад. Все в сад."

KilkennyCat (2006-10-30 16:40:00) [13]
... ветка для начинающих...
можно и телепатор включить, и под стул не падать.

Anatoly Podgoretsky (2006-10-30 16:29:00) [14]
Автор, воспользуйся этим, не надо плевать на форум http://ourworld.compuserve.com/homepages/PaulGor/screen_r.htm#f

Сергей М. (2006-10-30 16:29:00) [15]

> Alral © (30.10.06 16:27) [10]

"Упалпацтул" (С)

Ты справку-то читал ?

Anatoly Podgoretsky (2006-10-30 16:28:00) [16]

> Возможно, что переменной, объявленной как TStrings присваивается
> экземпляр класса TStringList

Возможно, но автор явно указал TStrings.
Естественно должен использоваться наследник, а судя по последнему сообщению - видимо это не так.

Alral (2006-10-30 16:27:00) [17]
procedure TForm1.Button5Click(Sender: TObject);
var str: TStrings;
begin
str:=Memo1.Lines;
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile('msg.txt');
Memo1.Lines.AddStrings(str);
end;

Kak chasi(rabotaet).

Сергей М. (2006-10-30 16:27:00) [18]

> MikePetrichenko © (30.10.06 16:25) [8]

ПРямо-таки откровение)

Ты лучше автору объясни сие.

MikePetrichenko (2006-10-30 16:25:00) [19]

> TStrings не имеет средств хранения строк, у тебя должна
> была появиться ошибка Abstract Error

Возможно, что переменной, объявленной как TStrings присваивается экземпляр класса TStringList (или еще какой). Тогда не будет ошибки.

Alral (2006-10-30 16:18:00) [20]
No ne pojavilas'

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »