[Assistant]

Сообщение от Harima Hario

Хорошо, начало есть 0, конец допустим 167 строк, а как прогрессбар будет знать какую строчку в данный момент я обрабатываю и вывожу в memo?

Код:

ProgressBar.Min := 1;
ProgressBar.Max := 167;

for i:=1 to 167 do // цикл заполнения Memo
begin
  Application.ProcessMessages; // шоб не зависало окно
  ProgressBar1.Position := i; // двигаем прогресс
end;

либо так:

Код:

ProgressBar.Min := 1;
ProgressBar.Max := 167;
ProgressBar1.Position := 0;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Add(Str);
  ProgressBar1.Position := ProgressBar1.Position + 1; // сдвигаем прогресс на +1 вперед
end;