Скачать: CL | DM;

Помогите с Memo!   Найти похожие ветки 

← →
DoktorX   (2006-11-17 00:35) [0]

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

---

← →
Германн ©   (2006-11-17 00:39) [1]

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

---

← →
RASkov   (2006-11-17 00:50) [2]

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:51) [3]

> [2] RASkov   (17.11.06 00:50)

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

---

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

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

---

← →
Германн ©   (2006-11-17 01:04) [5]

> RASkov   (17.11.06 00:50) [2]

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

---

← →
RASkov   (2006-11-17 01:08) [6]

> [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"
Моргать будет, если меры не принять:)

---

← →
DoktorX   (2006-11-17 01:21) [7]

Спасибо

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.04 c