[egor1978]

здравствуйте, Уважаемые форумчане!

такая вот беда. задание по словам препода простое.
но, как сами понимаете, для меня нелегкое. :-)

нужно при нажатии на BUTTON что бы в списке COMBOBOX
выводились последние 2-4 буквы слов, которые находятся
в списке LISTBOX.

пожалуйста, помогите. на уроке давали 30 минут на ее решение.
я уже безрезультатно второй день бьюсь

[AIMor]

Вот тебе готовый код:

Код:

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

[egor1978]

AIMor, большушее спасибо.
я про length понимал, что где-то надо использовать,
но тяму не фватило как правильно код составить.
с марта месяца занимаюсь. практики маловато.

[egor1978]

как сделать так, что бы при копировании выделенного текста из
RICHEDIT (несколько выделенных строк) в LISTBOX копирование
происходило не просто всех выделенных символов, а еще учитывался
#13 Enter. то есть что б в лист боксе так же вставлялись несколько
строк.

Код:

procedure TForm1.Button1Click(Sender: TObject);

var s:string;

begin
s:=richedit1.SelText;
listbox1.Items.Add(s);

end;

[Nyctos Kasignete]

Код:

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;

[Aristarh Dark]

Господа, ну не создавайте себе лишних проблем, зачем усложнять код???

Задача 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;

[Nyctos Kasignete]

Aristarh Dark, а что это:

Код:

ListBox1.Text

O_o

Наверное, так?

Код:

ListBox1.Items.SetText(PChar(ListBox1.Items.GetText+RichEdit1.SelText));

[Aristarh Dark]

Опечатался, надо:

Код:

ListBox1.Items.Text:=...

[egor1978]

ну надо же.
прям как в 3дс максе - одна задача имеет несколько вариантов решений.
спасибо всем пренаиогроменнейшее!!!