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

← →
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)?

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

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