Автоматическая построчная работа с ListBox в Delphi

07.12.2010, 23:39. **Показов** 1195. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Имеется автоматически генерируемый ListBox1 примерно на 150 строк (допустим это пути к файлам).
Требуется выполнить однотипные операции с каждой из строк, например автоматически поочередно отредактировать и добавить их в поле Memo1.
В голову приходит код на подобии:

Код

procedure MemoFiles(Line: double);
var
L:double;
begin
Form1.ListBox1.ItemIndex := Line;
if Form1.ListBox1.Items.Strings[(Form1.ListBox1.ItemIndex)] = '' then
Form1.Memo1.Lines.Add('Анализ завершен.')
else
Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items.Strings[(Form1.ListBox1.ItemIndex)]);
L := Line + 1;
MemoFiles (L);
end;

Проблема в том, что ListBox1.ItemIndex не может быть равен текстовому значению Line, а только любому цифровому.
Вопрос в том, как автоматически переводить строки для последующей обработки?

@n-forumer · 08.12.2010, 09:01

Во-первых, компилятор будет ругаться на этот код, так как свойство ItemIndex имеет тип Integer, а не double. Во-вторых, не проще ли просто перебрать все строки в цикле:

procedure MemoFiles;
var i : integer;
s : string;
begin
for i := 0 to Form1.ListBox1.Items.Count - 1 do
begin
s := Form1.ListBox1.Items[i] + 'Редактирование';
Form1.Memo1.Lines.Add('отредактированная строка из списка: ' + s);
end;
end;

GrafAtRuss
		1
	Автоматическая построчная работа с ListBox в Delphi 07.12.2010, 23:39. Показов 1195. Ответов 1 Метки нет (Все метки) Имеется автоматически генерируемый ListBox1 примерно на 150 строк (допустим это пути к файлам). Требуется выполнить однотипные операции с каждой из строк, например автоматически поочередно отредактировать и добавить их в поле Memo1. В голову приходит код на подобии: Код procedure MemoFiles(Line: double); var L:double; begin Form1.ListBox1.ItemIndex := Line; if Form1.ListBox1.Items.Strings[(Form1.ListBox1.ItemIndex)] = '' then Form1.Memo1.Lines.Add('Анализ завершен.') else Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items.Strings[(Form1.ListBox1.ItemIndex)]); L := Line + 1; MemoFiles (L); end; Проблема в том, что ListBox1.ItemIndex не может быть равен текстовому значению Line, а только любому цифровому. Вопрос в том, как автоматически переводить строки для последующей обработки?

@n-forumer 61 / 12 / 3 Регистрация: 29.08.2010 Сообщений: 23
	08.12.2010, 09:01	2
	Во-первых, компилятор будет ругаться на этот код, так как свойство ItemIndex имеет тип Integer, а не double. Во-вторых, не проще ли просто перебрать все строки в цикле: procedure MemoFiles; var i : integer; s : string; begin for i := 0 to Form1.ListBox1.Items.Count - 1 do begin s := Form1.ListBox1.Items[i] + 'Редактирование'; Form1.Memo1.Lines.Add('отредактированная строка из списка: ' + s); end; end; 0

Опции темы