|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Спасибо вам обоим большое, всё работает, там кстати ещё одна ошибочка была, надо было обнулять S:='' в массиве ещё. Вот полный код, может кому-нибудь понадобиться.
Код:
procedure TForm9.Button1Click(Sender: TObject); var i : Integer; s : String; e1, e2 : TEdit; begin S := ''; For i := 1 to 50 Do Begin S := ''; e1 := FindComponent('sid' + IntToStr(I)) As TEdit; e2 := FindComponent('sprice' + IntToStr(I)) As TEdit; If (e1 <> nil) and (e2 <> Nil) Then if (e1.text <> '') and (e2.text <> '') then S := S + e1.Text + ':' + e2.Text + ','; form1.Script.Text :=form1.script.Text + S; End; end; end. |
#17
|
|||
|
|||
Дабы не создавать новую тему, задам вопрос тут:
Мне вот надо ещё, что бы после последнего Tedit'а удалялась запятая: 1:1,2:2,3:3, вот последняя запятая мне не нужна. Знаю что есть функция delete, но там надо указать номер символ в строке, но номер узнать я не могу, как же мне сделать, что бы удалялся именно последний символ? Извините, что побеспокоил, решение довольно просто: Код:
s2:=form1.script.text; Delete (s2,length(s2),1); form1.script.text := s2; Последний раз редактировалось Мяфк, 21.08.2010 в 13:51. |
#18
|
||||
|
||||
Можно и так, а можно посмотреть как я эту проблему решил в самом начале темы. Смотрите код:
Код:
if Memo1.Text <> '' then Memo1.Text := Memo1.Text+','+TEdit(Form1.Componets[i]).Text else Memo1.Text := TEdit(Form1.Componets[i]).Text; Адаптируйте под свой код если есть желание. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 21.08.2010 в 14:20. |