| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите с Memo!

DoktorX ©   (2006-11-17 00:35:00) 

Помогите с Memo!
как сделать ето в одну строку или лучше edit
if  Image1.Canvas.Pixels[x,y]=clblack
then
   Memo1.Lines.Add('1')
   else
      Memo1.Lines.Add('0')
 end;

---

DoktorX   (2006-11-17 01:21:00) [1]

Спасибо

---

RASkov   (2006-11-17 01:08:00) [2]

> [5] Германн ©   (17.11.06 01:04)

Хорошо:) Вот в одну строку
if Image1.Canvas.Pixels[x,y]=clblack then Memo.Text:=Memo.Text+'0' else Memo.Text:=Memo.Text+'1'
Моргать будет, если меры не принять:)

---

Германн   (2006-11-17 01:04:00) [3]

> RASkov   (17.11.06 00:50) [2]

Дык, имхо автору нужно в "одну строку". Так что Memo.Text:=Memo.Text+'0'; ('1')

---

RASkov   (2006-11-17 00:53:00) [4]

В самом деле.... поспешил.

---

Джо   (2006-11-17 00:51:00) [5]

> [2] RASkov   (17.11.06 00:50)

А зачем лишняя переменная?

---

RASkov   (2006-11-17 00:50:00) [6]

var S: String;
S:='';
........
if Image1.Canvas.Pixels[x,y]=clblack then S:=S+'1' else S:=S+'0';
....
Memo1.Text:=S;

---

Германн   (2006-11-17 00:39:00) [7]

Пользуй свойство Text.

---

Наверх