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

Ну скажите мне пожалуйста!!! что я делаю не так?   Найти похожие ветки 

← →
Pitay   (2003-08-17 20:25) [0]

Хочу чтобы слово находящееся в Label1, вывелось в edit1, так что бы через каждую букву стоял пробел :(((

for i:=1 to edit1.MaxLength do begin
s:=label1.Caption;
edit1.Text:=edit1.Text+s[i]+" ";
end;

HELP PLZ

---

← →
wicked ©   (2003-08-17 20:30) [1]

типа так (на правильность не проверял):

SetLength(s, Length(edit1.Text) * 2);
for i := 0 to Length(edit1.Text) - 1 do begin
s[(i * 2) + 1] := edit1.Text[i];
s[(i * 2) + 2] := " ";
end;
label1.Caption := s;

ЗЫ перенесут веточку то...

---

← →
Pitay   (2003-08-17 20:35) [2]

да нее)) мне надо, что бы типа слово по буквам разбилось :)
даже поставлю вопрос так...
как можно мне... прочитать из label1 вторую букву, и поместить её в edit1

---

← →
НЛОшник   (2003-08-17 21:14) [3]

edit1.text:=label1.caption[2];

---

← →
Palladin ©   (2003-08-17 21:36) [4]

SetLength(s, Length(label1.caption) * 2);
for i := 1 to Length(label1.caption) do begin
s[(i * 2) - 1] := label1.caption[i];
s[(i * 2)] := " ";
end;
Edit1.Text := s;

---

← →
SergP ©   (2003-08-17 21:59) [5]

> Pitay (17.08.03 20:25)
> Хочу чтобы слово находящееся в Label1, вывелось в edit1,
> так что бы через каждую букву стоял пробел :(((
>
> for i:=1 to edit1.MaxLength do begin
> s:=label1.Caption;
> edit1.Text:=edit1.Text+s[i]+" ";
> end;
>
> HELP PLZ


А это разве не будет работать?

Только вот почему цикл от 1 до edit1.MaxLength , а не до length(label1.caption)?

---

← →
Palladin ©   (2003-08-17 22:36) [6]

> SergP © (17.08.03 21:59) [5]

именно по этому и не работает
а еще интересное присваивание внутри цикла

---

← →
Ketmar ©   (2003-08-18 00:26) [7]

советую сначала похотеть выучить матчасть. настолько примитивные ошибки делать непозволительно.

---

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

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



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