amigos me veo en la obligacion de solicitar una luz
el problema es el sgte tengo la progressbar pero solo he logrado que avance de a uno
ProgressBar1.StepIt; pero necesito que avance gradualmente como podria hacerlo?
esto es lo que tengo
Código Delphi
[-]procedure TForm1.btintClick(Sender: TObject);
var
destino,dir : String;
archivo : Tstrings;
i : integer;
T0: TDateTime;
begin
T0 := Now;
progressbar1.Max :=2;
ProgressBar1.Step := 1;
ProgressBar1.Position := 0;
destino := ruta1.Text+'\App';
dir := ruta1.Text;
for i:= 0 to Opendialog1.Files.Count -1 do
XCopy(Handle, openDialog1.Files[i], destino);
ProgressBar1.StepIt;
if not DirectoryExists(dir) or not fileexists(dir+'archiv.ext') then
begin
ForceDirectories(dir);
archivo := TStringList.Create;
archivo.Add('CLS');
archivo.Add('@echo off');
archivo.Add('Exit');
archivo.SaveToFile(ruta);
if fileexists(ruta) then
begin
EditArchivo(ruta);
ProgressBar1.StepIt;
ListView2.Clear;
ListView1.Clear;
end else
showmessage('error al crear archivo');
end else
begin
EditArchivo(ruta);
ProgressBar1.StepIt;
ListView2.Clear;
ListView1.Clear;
ShowMessage(TimeToStr(Now - T0));
end;
end;
gracias saludos!