несколько вопросов

[fitc]

Спасибо Lime и goblinyara!!!

Сообщение от RNT

3) как применить компонент progressbar к функции?

Возможно , вам нужно применить его к циклу ?

Нет именно к функции у меня идет считывание информации из базы некоей программы и запись нужной мне части в текстовый файл и мне надо бы прилепить к этому прогресс бар
П.С. Извините исходника в данный момент у меня не имеется.

[psycho-coder]

Немного не в тему, но все же. (так на будущее)
Что бы русские символы отображались на форуме нормально, нужно:
Открыть файл с исходным кодом (по умолчанию это Unit1.pas) через блокнот и скопировать из него.

[evg_m]

Нет именно к функции у меня идет считывание информации из базы некоей программы и запись нужной мне части в текстовый файл и мне надо бы прилепить к этому прогресс бар

принципиальная схема использования прогрессбара

progressbar.min:=0;
progressbar.max:=nn;
progrssbar.pos:=0;
for j:=0 to nn do
begin
//код для обработки 1/nn-ой части 
progressbar.pos:=j; // можно progressbar.pos:=progressbar.pos+d;
end;

[fitc]

Сообщение от evg_m

принципиальная схема использования прогрессбара

progressbar.min:=0;
progressbar.max:=nn;
progrssbar.pos:=0;
for j:=0 to nn do
begin
//код для обработки 1/nn-ой части 
progressbar.pos:=j; // можно progressbar.pos:=progressbar.pos+d;
end;

Ясно) а можете написать как прогресс бар связать с временем, чтобы, например, за 3мин. он дошел до 99% ?

[psycho-coder]

в проресс бар укажи

Min := 0;
Max := 180000;// это 3 мин

Таймер

Interval := 1000;

в таймере пиши

  if Timer1.Interval = 180000 then Timer1.Enabled := false;
 ProgressBar1.Position := ProgressBar1.Position + Timer1.Interval;

[fitc]

странно, но почему то очень быстро пробегается

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Min,Max, interval:integer;
begin
Min:=0;
Max:=180000;
interval:=1000;
if Timer1.Interval = 180000 then Timer1.Enabled := false;
ProgressBar1.Position := ProgressBar1.Position + Timer1.Interval;
end;

end.

[Вавел из ГМТУ]

Улыбнуло

У объекта Timer есть параметр Interval. Это так сказать период через который он будет выполнять действие. Например:

Timer1.Interval := 1000; //Срабатывание таймера с периодом 1 сек.

Значение Interval не меняется самопроизвольно. Только принудительно:
Timer1.Interval := .....

Щёлкните на Timer(на форме его значёк) два раза вызвав его событие (не вспомню щас какое имено, но вроде называется Timer). И там запишите:

ProgressBar1.Position := ProgressBar1.Position + 10;


адд:
Позволю себе небольшую лекцию по работе с объектами:
Кинте(двойной щелчок) на форму ProgressBar (вкладка Win32). Он появился на форме. Сделайте по появившемуся ProgressBar'у щелчок мышкой. Он выделиться и в левой части экрана будут доступны его свойства. Это окно Object Inspectors у которого есть две вкладки Properties и Events.

На вкладке Properties находяться все свойства компонента которые доступны для редактирования. На вкладке Events доступны все события с которым этот объект связан.

Выбери ProgressBar и зайди на вкладку Properties. Там найди свойства и установи их в нужные значения:

Min := 0;
Max := 180000;// это 3 мин

Это ты установил "обьём" прогресбара. Тоесть если ProgressBar1.Position будет равен 180000, то прогресбар будет выглядить полным.
Вродебы с прогресбаром всё.

Теперь тоже самое с Таймером. Кинь его на форму и установи свойство Interval = 1000. Это будет соответсвовать периоду 1 сек.
Сделай двойной щелчок на Таймере чтоб вызвать его событие, а Delphi добавит код процедуры:

procedure TForm1.Timer1Timer(Sender: TObject);

Где между Begin и End нужно написать:

ProgressBar1.Position := ProgressBar1.Position + 100;
If ProgressBar1.Position = 180000 Then Timer1.Enabled := False;

Enabled - вкл.(True) или выкл.(False) таймер.

//Эт так всё на вскидку.. Для 3 мин сам допишешь...

адд:
Правильнее написать:

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If ProgressBar1.Position > ProgressBar1.Max Then Timer1.Enabled := False;
ProgressBar1.Position := ProgressBar1.Position + 100;
End;

Где изменяя значение приращения (в данном случае 100) и Interval таймера можно получить то что хочеться.

[psycho-coder]

Я думал додумается ))

[fitc]

Хмм, учусь что поделать
Спасибо psycho-coder и Вавел из ГМТУ

[Stilet]

Что бы русские символы отображались на форуме нормально, нужно:
Открыть файл с исходным кодом (по умолчанию это Unit1.pas) через блокнот и скопировать из него.

Неверный ответ. Нужно просто перед копированием включить русскую раскладку