![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() здравствуйте, Уважаемые форумчане!
такая вот беда. задание по словам препода простое. но, как сами понимаете, для меня нелегкое. :-) нужно при нажатии на BUTTON что бы в списке COMBOBOX выводились последние 2-4 буквы слов, которые находятся в списке LISTBOX. пожалуйста, помогите. на уроке давали 30 минут на ее решение. я уже безрезультатно второй день бьюсь ![]() |
#2
|
|||
|
|||
![]() Вот тебе готовый код:
Код:
procedure TForm1.Button1Click(Sender: TObject); Var S : String; I : Integer; begin ComboBox1.Clear; For I:=0 To (ListBox1.Items.Count-1) Do begin S:=ListBox1.Items.Strings[i]; If (Length(S)>4) Then Delete(S,1,Length(S)-4); ComboBox1.Items.Add(S); end; end; Изменяя цифру 4 будешь менять количество последних букв, которые надо отображать в ComboBox |
#3
|
|||
|
|||
![]() AIMor, большушее спасибо.
![]() я про length понимал, что где-то надо использовать, но тяму не фватило как правильно код составить. с марта месяца занимаюсь. практики маловато. ![]() |
#4
|
|||
|
|||
![]() как сделать так, что бы при копировании выделенного текста из
RICHEDIT (несколько выделенных строк) в LISTBOX копирование происходило не просто всех выделенных символов, а еще учитывался #13 Enter. то есть что б в лист боксе так же вставлялись несколько строк. Код:
procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:=richedit1.SelText; listbox1.Items.Add(s); end; |
#5
|
|||
|
|||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); var s: string; Pos13: Integer; begin s := RichEdit1.SelText; Pos13 := Pos(#13#10, s); while Pos13 <> 0 do begin ListBox1.Items.Add(Copy(s, 1, Pos13 - 1)); Delete(s, 1, Pos13 + 1); Pos13 := Pos(#13#10, s); end; if (s <> #13#10) and (s <> '') then ListBox1.Items.Add(s); end; |
#6
|
||||
|
||||
![]() Господа, ну не создавайте себе лишних проблем, зачем усложнять код???
Задача 1 Код:
uses StrUtils; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin ComboBox1.Clear; for i:=0 to ListBox1.Items.Count-1 do ComboBox1.Items.Append(RightStr(ListBox1.Items[i],4)); end; Задача 2 Код:
ListBox1.Text:=ListBox1.Text+RichEdit1.SelText; Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#7
|
|||
|
|||
![]() Aristarh Dark, а что это:
Цитата:
Наверное, так? Код:
ListBox1.Items.SetText(PChar(ListBox1.Items.GetText+RichEdit1.SelText)); |
#8
|
||||
|
||||
![]() Опечатался, надо:
Код:
ListBox1.Items.Text:=... Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#9
|
|||
|
|||
![]() ну надо же.
прям как в 3дс максе - одна задача имеет несколько вариантов решений. спасибо всем пренаиогроменнейшее!!! ![]() |