VPF::Строки в listbox - Форум программистов

Yanis

Дата 11.5.2006, 22:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

Sunvas

Цитата(Albinos_x @ 11.5.2006, 20:45

)

при 0 цикл будет от 0 до -1 и не выполнится...

Всё верно

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

*щёлк*

Sunvas

Дата 12.5.2006, 07:27 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Yanis @ 11.5.2006, 22:41

)

Всё верно

Yanis, а ты пробовал убрать ту строку и запустить? Как ни странно цикл работает! Мне это кажется тоже станным, просто вы немного недосмотрели мой код:

Цитата(Sunvas @ 9.5.2006, 00:43

)

var i:word;

так что i не может быть меньше 0.. smile

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Dynamic

Дата 12.5.2006, 07:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Sunvas @ 12.5.2006, 07:27

)

так что i не может быть меньше 0

в таком случае тебя ждут проблемы в будущем. Проведи простой тестик с двумя пустыми листбоксами:

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:word;
begin
     for i := 0 to ListBox1.Count-1 do
      ListBox2.Items.Add(inttostr(i))
      ;
end;

приятно удивишься

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

Было бы о чем молчать, а уж что сказать – всегда найдется...

Sunvas

Дата 12.5.2006, 19:01 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Dynamic @ 12.5.2006, 07:45

)

в таком случае тебя ждут проблемы в будущем.

Да ничего страшного меня не ждет. Можешь не сомневаться!!!

Цитата(Dynamic @ 12.5.2006, 07:45

)

Проведи простой тестик с двумя пустыми листбоксами:

Нужно внимательно читать конференцию - прочти мой код в предыдущем сообщении http://forum.vingrad.ru/index.php?showtopi...st&p=725327 . smile

В моем варианте все работает! smile

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

bagira

Дата 13.5.2006, 20:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

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

Цитата(Poseidon @ 8.5.2006, 02:02

)

От нуля, до этой величины минус один. Это так потому, что нумерация строк начинается с нуля. Т.е. если в ЛистБоксе 3 строки, то именоваться они будут так: 0, 1, 2.

Да. Это я перепутала. Конечно же, с нуля smile

И организовать проверку, есть вообще строки в ЛистБоксе или нет.

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

Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour

Dynamic

Дата 15.5.2006, 05:48 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Sunvas @ 12.5.2006, 19:01

)

Да ничего страшного меня не ждет. Можешь не сомневаться!!!

дай-то Бог!

Цитата(Sunvas @ 12.5.2006, 19:01

)

В моем варианте все работает

А тестик все же прогони.....

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

Было бы о чем молчать, а уж что сказать – всегда найдется...

Демо

Дата 15.5.2006, 12:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Цитата(Dynamic @ 12.5.2006, 07:45

)

в таком случае тебя ждут проблемы в будущем.

Не в будущем, а прямо сейчас. Цикл будет работать не менее 65536 раз.

Вот такой цикл будет работать нормально:

Код


var
  i: Integer;
begin
//далее по тексту

А вот такой, как и в примере, не будет:

Код


var
  i: Cardinal;
begin
//далее по тексту

Нельзя использовать беззнаковые типы в циклах, где переменная цикла может принимать отрицательное значение.

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

temanli

Дата 15.5.2006, 22:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ помогите. Как правильно это все написать...

Код


var
i, n: integer;
begin
n:=8;
for i:=0 to n do
begin
if ListBox1.Selected[i] then
RichEdit1.Lines.LoadFromFile('c:\ля-ля-ля\', i,'.txt');
end;
end;

Думаю смысл программы понятен...

Это сообщение отредактировал(а) temanli - 15.5.2006, 22:08

Yanis

Дата 15.5.2006, 22:19 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(temanli @ 15.5.2006, 23:07

)

Народ помогите. Как правильно это все написать...

Может всё таки не надо? Думаю смысл ясен...

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

*щёлк*

temanli

Дата 15.5.2006, 22:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Yanis @ 15.5.2006, 22:19)

Цитата(temanli @ 15.5.2006, 23:07

)

Народ помогите. Как правильно это все написать...

Может всё таки не надо? Думаю смысл ясен...

юмора не понял...8)
при запуске пишет "To many actual parameters" и выделяет RichEdit1.Lines.LoadFromFile('c:\ewropa\',i,'.txt');

Yanis

Дата 15.5.2006, 23:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(temanli @ 15.5.2006, 23:24

)

юмора не понял...8)

Весь смех в том, что прежде чем прибегать к помощи чего либо нужно почитать правила пользования. Понятно? Могу ещё подробнее...

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

*щёлк*

Dynamic

Дата 16.5.2006, 05:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure LoadFromFile(const FileName: string);

а у тебя откуда столько параметров?

Цитата(temanli @ 15.5.2006, 22:07

)

if ListBox1.Selected[i] then
RichEdit1.Lines.LoadFromFile('c:\ля-ля-ля\', i,'.txt');

ты хорошо представляешь себе, как это будет выглядеть? Если в ListBox1 у тебя будет 100 выделенных строк - они все по-очереди будут загружаться в один и тот же ричэдит ???

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

Было бы о чем молчать, а уж что сказать – всегда найдется...

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