Q&A

  • Progressbar의 증가 폭
이유를 모르겠습니다.
모든 작업(?)이 완료되기 전에 Progressbar가 먼저 완료 상태에 도달 합니다.
어떤 부분이 잘 못 되었는지..점 봐주세요!!!



procedure TMainForm.N6Click(Sender: TObject);
begin
FUser.Showmodal;
end;

procedure TMainForm.Linereject;
var
  Temp1, Temp2 : String;
  I, npos, num  : Integer;
  cnt : real;
begin
  Temp1 := '';
  Temp2 := '';
  num := Memo.Lines.Count;

  ProgressBar1.Visible := True;
  ProgressBar1.Position := 0 ;

  ProgressBar1.Max:= num;
  for I := 0 to num do Begin
    temp1 := memo.Lines[i];
    nPos := Pos(temp1, memo.text);
    Temp1 := Copy(Memo.text, nPos, 80) ;

    temp2 := temp2 + temp1;
    ProgressBar1.Position := ProgressBar1.Position + i;
  end;

  memo.Clear;
  memo.text := temp2;
  ProgressBar1.Position := 0 ;
  progressbar1.Visible := False;
end;
2  COMMENTS
  • Profile
    장덕곤 2003.03.29 18:24
    자세한거는 msn 으로..
    변수  i 가 1씩증가하기땜시...


  • Profile
    KDDG_RNStone 2003.03.29 03:37
    헉, ^^;

    Position + i 가 아니라 Position + 1이 되어야 합니다.

    i로 증가시키면

    Position := Position + 0
    Position := Position + 1
    Position := Position + 2

    이런식으로 되겠죠. 그러니 당연히 라인이 많으면 많을 수록 훨씬 먼저 끝날겁니다.