Имитация ProgressBar-а в Label

@piratdan · Регистрация: 21.01.2013

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

Добрый день. Помогите пожалуйста сделать имитацию progress бара, хочу сделать так что-бы в компоненте label выводилась сначала первая точка, затем вторая точка с отступом от предыдущей позиции и затем третья с отступом.
Пытался сделать так

Delphi

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Label1.Caption := '.';
Form1.Label1.Caption := ' .';
Form1.Label1.Caption := '  .';
end;

Пока не получилось, потом нужно будет добавить цикл.

murderer · 04.06.2014, 14:04

Процедура

Delphi

type
  TProgress=0..19;
var
  ProgressTmp: array[0..19] of AnsiChar='...................'#0;
procedure SetProgress(_Label: TLabel; Progress: TProgress);
var
  tmp: AnsiChar;
begin
  tmp:=ProgressTmp[Progress];
  ProgressTmp[Progress]:=#0;
  _Label.Caption:=ProgressTmp;
  ProgressTmp[Progress]:=tmp;
end;

Пример вызова

Delphi

1	SetProgress(Label1,15);

@krapotkin · 04.06.2014, 23:31

если по автору, лучше использовать

Delphi

1	Form1.Label1.Caption := StringOfChar(' ', N) + '.' ;

или так

Delphi

1	Form1.Label1.Caption := StringOfChar('.', N);

	04.06.2014, 23:31