Вопрос по ListBox

[SeregaKo]

Компьютер рандомом загадывает 4-х значное число, пользователь вводит в Edit своё числою Вопрос: как вывести в ListBox совпавшие цифры (или число целиком) конкретно по позиции , а вместо несовпавших поставить знак * Или здесь лучше использовать другой компонент, не ListBox?

Например: компьютер загадал 1234 пользователь ввёл 5287, нужно чтобы в листбоксе вывелось *2**

Заранее спасибо.

[KORN]

в цикле перебираешь 1е число если pos(первый символ, во 2м числе)<>0 тогда выводишь и т.д.

[SeregaKo]

Сообщение от KORN

в цикле перебираешь 1е число если pos(первый символ, во 2м числе)<>0 тогда выводишь и т.д.

Так?

for i:=1 to 4 do
begin
If user_number[0]=secret_number[0] then
RezListBox.Items.Insert(0, user_number[0]) else
RezListBox.Items.Insert(0, '*');
If user_number[1]=secret_number[1] then
RezListBox.Items.Insert(1, user_number[1]) else
RezListBox.Items.Insert(1, '*');
If user_number[2]=secret_number[2] then
RezListBox.Items.Insert(2, user_number[2]) else
RezListBox.Items.Insert(2, '*');
If user_number[3]=secret_number[3] then
RezListBox.Items.Insert(3, user_number[3]) else
RezListBox.Items.Insert(3, '*');

[KORN]

var
  i: integer;
  s: string;
begin
for i:=1 do length(number2) do
begin
s:=copy(number1, i, 1);
  if pos(s, number2)<>0 do
  listbox1.items.add(s);
end;
end;

[SeregaKo]

А как сделать так, тобы в листбоксе число выводилось в одну строку:
например: 1234 ,
а то у меня он выводит так
1
2
3
4

[Jeni]

Просто "складывать" все символы в одну строку, а потом записывать эту строку в ListBox после цикла.

[KORN]

юзай не листбокс а едит и получится edit1.text:=edit1.text+s;