Memo1.Lines, var str: TStrings

← →
Alral © (2006-10-30 15:55) [0]

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

← →
Сергей М. © (2006-10-30 15:58) [1]

Append()

← →
KilkennyCat © (2006-10-30 15:59) [2]

Неверно.

Lines.AddStrings();

← →
Сергей М. © (2006-10-30 16:01) [3]

> KilkennyCat © (30.10.06 15:59) [2]

да тебе памятник надо ставить нерукотворный

← →
Alral © (2006-10-30 16:02) [4]

Spasibo, Lines.AddStrings() pomoglo.

← →
KilkennyCat © (2006-10-30 16:11) [5]

> [3] Сергей М. © (30.10.06 16:01)

Не нужно. Я уже воздвиг себе.

← →
Anatoly Podgoretsky © (2006-10-30 16:15) [6]

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

← →
Alral © (2006-10-30 16:18) [7]

No ne pojavilas"

← →
MikePetrichenko © (2006-10-30 16:25) [8]

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

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

← →
Сергей М. © (2006-10-30 16:27) [9]

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

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

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

← →
Alral © (2006-10-30 16:27) [10]

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).

← →
Anatoly Podgoretsky © (2006-10-30 16:28) [11]

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

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

← →
Сергей М. © (2006-10-30 16:29) [12]

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

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

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

← →
Anatoly Podgoretsky © (2006-10-30 16:29) [13]

Автор, воспользуйся этим, не надо плевать на форум http://ourworld.compuserve.com/homepages/PaulGor/screen_r.htm#f

← →
KilkennyCat © (2006-10-30 16:40) [14]

... ветка для начинающих...
можно и телепатор включить, и под стул не падать.

← →
MikePetrichenko © (2006-10-30 17:02) [15]

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

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

> str:=Memo1.Lines;

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

> Memo1.Lines.AddStrings(str);

Бред.

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

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

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

← →
umbra © (2006-10-30 17:07) [16]

5 копеек:

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

← →
MikePetrichenko © (2006-10-30 17:33) [17]

> str:=Memo1.Lines;

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

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

тоде в "Сад."

← →
RASkov (2006-10-30 18:21) [18]

Еще плюс полкапейки
> 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 (30.10.2006 17:02) [15]

> Бред.

Одназначно

MikePetrichenko © (30.10.06 17:33) [17]

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

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

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

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

Разжую. Для тех кто в танке.

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.

Еще вопросы?

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

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

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

> lStrs := TStringList.create;

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

Т.е. в [10] очепятался.

> 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()

Memo1.Lines, var str: TStrings Найти похожие ветки