Форум: "Потрепаться";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизНу скажите мне пожалуйста!!! что я делаю не так? Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c