VPF::Вывод всех результатов - Форум программистов

Shokan

Дата 8.5.2007, 05:50 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет

имеется такой код:

Код


procedure TMainForm.Button1Click(Sender: TObject);
  var i, j: integer;
begin
for i:=1 to 10 do begin
  Memo1.Lines[i] := Memo1.Lines[i];
  Memo1.Text:= IntToStr(i) + ') Запись';
  end;
end;

но, результат не выходит как мне нужно.
в мемо отображается только последний результат вычислении.
10) Запись
как сделать что бы выходило?
1) Запись
2) Запись
3) Запись
...
10) Запись

Yanis

Дата 8.5.2007, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Shokan @ 8.5.2007, 06:50

)

for i:=1 to 10 do begin
  Memo1.Lines := Memo1.Lines[i];
  Memo1.Text:= IntToStr(i) + ') Запись';
  end;

Такое ощущение, что ты не понимаешь, что пишешь. Так от балды накатал…
Зачем присвавать строку в Memo.Lines самой себе? Объясни.
Но главная ошибка в том, что ты весь текст в memo стираешь заменяя его на [I]IntToStr(i) + ')Запись'. Поэтому и анамалия.

Добавлено через 1 минуту и 9 секунд

Цитата(Yanis @ 8.5.2007, 07:30

)

заменяя его на [I]IntToStr(i) + ')Запись'.

Здесь можно заметить как глючит форум smile

Это сообщение отредактировал(а) Yanis - 8.5.2007, 06:31

--------------------

*щёлк*

iddqd

Дата 8.5.2007, 07:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: 0
Всего: 2

Код


procedure TMainForm.Button1Click(Sender: TObject);
  var i: integer;
begin
for i:=1 to 10 do
  Memo1.Lines.Add(IntToStr(i) + ') Запись');
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »