Помогите с 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]

Спасибо

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