Пробелы между цифрами

[duny99]

Нашел в этой ветке такой код. Подскажите пожалуйста как присвоить это значение Label1. Заранее спасибо за ответ.

procedure TForm1.Button1Click(Sender: TObject);
var d,r: String; i,v: integer;
begin
d:='123456789';
v:=length(d);
for i := 1 to v do
Edit2.Text := Edit2.Text + d[i] + ' ';
Label1.Caption:= ???

end;

[_SERGEYX_]

Label1.Caption:= Edit2.Text;

Не?

[duny99]

Извините, но мне нужно сразу Label1 присвоить Caption без Edit2

[mss]

> мне нужно сразу Label1 присвоить Caption без Edit2

За каким же лешим ты привел сюда этот код ?
СВОЕЙ головой будем думать ? Или как ?)

[duny99]

Мне просто нужно вместо 123456789 присвоить Labelу 1 2 3 4 5 6 7 8 9

[a9N2k]

procedure TForm1.Button1Click(Sender: TObject);
var d,s: String; 
    i,n: integer;
begin
d:='123456789';
n:=length(d);
for i:=1 to n do
    begin
	   s:=s+d[i]+char(#32);
	  end;
Label1.Caption:=s;
end;

[duny99]

Большое спасибо !!!

[veniside]

char(#32)

ну ладно #32 вместо ' ', но char() то зачем?

[a9N2k]

Сообщение от veniside

char(#32)

ну ладно #32 вместо ' ', но char() то зачем?

Привычка после Паскаля осталась(Pascal Abc, Pascal Abc.Net)

[Serge_Bliznykov]

Привычка после Паскаля осталась(Pascal Abc, Pascal Abc.Net)

не надо песен...
хоть в Turbo Pascal, хоть в Pascal ABC, хоть в Delphi - #32 - это и есть CHAR и приводить его к типу CHAR - бессмысленно!
Так что, мой Вам совет - избавляйтесь от бессмысленных привычек...


А вот не иницилизировать переменные перед их использованием - это привычка крайне вредна и рано или поздно себя проявит в баге!

procedure TForm1.Button1Click(Sender: TObject);
var d, s: String; 
      i : integer;
begin
  d := '123456789';
  s := '';
  for i:=1 to length(d) do s:=s+d[i]+' ';
  Label1.Caption:=s;
end;