Свойство Text – текст индикатора

Contents

Синтаксис:

rw property Text: WideString;

Описание:

Свойство предоставляет доступ к значению текста индикатора. Текст отображается на форме индикатора процесса.

Пример:

// Записать в файл строки списка.

// List – список строк.

// FileName - Имя файла.

Progress = CreateProgress('Запись в файл'; List.Count; False)

Progress.Show

I = 0

while I <= List.Count - 1

Progress.Text = List.Values(I)

ФайлЗаписать(FileName; 'Д'; List.Values(I))

I = I + 1

Progress.Position = I

endwhile

Progress.Hide

Свойство Title