Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Подскажите, срочно  (Прочитано 7353 раз)
0 Пользователей и 1 Гость смотрят эту тему.
MS
Помогающий

ru
Offline Offline
Пол: Мужской

« : 12-07-2007 05:39 » 

Подскажите пожалуйста, может вопрос покажется бональным, но мне нужно перебрав все строки в listbox переименовать их. Вопрос вот в чем:
Как узнать сколько строк в listbox заполнено, чтобы цикл работал с 0-й строки по последнюю заполненую. Спасибо

Вот код. Изменяет имя только на последней заполненой строке.

Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,n:integer;
begin
n:=listbox1.Count;
for i:=0 to n do begin
listbox1.ItemIndex:=i;
put:=ExtractFileDir(listbox1.Items.text);
ex:=ExtractFileExt(listbox1.Items.text);
if checkbox1.Checked then
nname:=edit1.Text+edit2.Text else
nname:=edit2.Text;
listbox1.Items.Text:=put+'\'+nname+ex;
end;
end;
« Последнее редактирование: 12-07-2007 10:00 от MS » Записан

Ничто так не ограничивает полёт мысли программиста, как компилятор
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #1 : 12-07-2007 10:50 » 

Код:
for i := 0 to n - 1    // это во первых

listbox1.items [i].Text := '..' // это во-вторых
Записан

MS
Помогающий

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 12-07-2007 11:34 » 

Код:
listbox1.items [i].Text := '..' // это во-вторых
Выдает ошибку: Record, object or class type required
Записан

Ничто так не ограничивает полёт мысли программиста, как компилятор
zubr
Гость
« Ответ #3 : 12-07-2007 14:04 » 

Код:
for i:=0 to listbox1.Count-1 do
 begin
  put:=ExtractFileDir(listbox1.Items.Strings[i]);
  ex:=ExtractFileExt(listbox1.Items.Strings[i]);
  if checkbox1.Checked then
  nname:=edit1.Text+edit2.Text
  else
  nname:=edit2.Text;
  listbox1.Items.Strings[i]:=put+'\'+nname+ex;
 end;
Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #4 : 12-07-2007 15:49 » 

или вообще
Код:
Items [i] := '..'

Улыбаюсь
Записан

MS
Помогающий

ru
Offline Offline
Пол: Мужской

« Ответ #5 : 12-07-2007 18:48 » new

x77, zubr, спасибо все работает.
Записан

Ничто так не ограничивает полёт мысли программиста, как компилятор
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines