Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

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! На самом деле этот пример нужно пересмотреть...


 
Anatoly Podgoretsky ©   (2006-10-30 18:37) [19]

> MikePetrichenko  (30.10.2006 17:02)  [15]

> Бред.

Одназначно


 
umbra ©   (2006-10-30 18:52) [20]

MikePetrichenko ©   (30.10.06 17:33) [17]


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

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


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


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

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


 
MikePetrichenko ©   (2006-10-30 21:46) [22]

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

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.

Еще вопросы?


 
MetalFan ©   (2006-10-30 23:13) [23]

[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-31 00:08) [24]


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

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

> lStrs := TStringList.create;

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


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

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


 
MetalFan ©   (2006-10-31 07:44) [26]


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



Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.032 c
11-1138876248
Dodfr
2006-02-02 13:30
2006.11.19
Problem ListBox.OnDrawItem


2-1162488318
funky
2006-11-02 20:25
2006.11.19
Сколько макс. файлов можно загрузить в OpenDialog?


3-1158518226
PHPDeveloper
2006-09-17 22:37
2006.11.19
paradox без BDE


15-1161986483
Ne-Ld
2006-10-28 02:01
2006.11.19
Видна не распознает USB накопители., Что делать?


9-1139220188
Nic
2006-02-06 13:03
2006.11.19
Артефакт?