TListView

Question

Bonjours 


Ce ci est un bout de code de mon programme

procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
    userResponse:integer;
  S,t: String;
  TotalTime: TDateTime;
//  RemainingTime: TDateTime;
  H, M, Sec, MS: Word;
  DLTime: Double;
begin
  TotalTime :=  Now - STime;
  DecodeTime(TotalTime, H, M, Sec, MS);
  Sec := Sec + M * 60 + H * 3600;
  DLTime := Sec + MS / 1000;
  if DLTime > 0 then
    AverageSpeed := {(AverageSpeed + }(AWorkCount / 1024) / DLTime{) / 2};

  if AverageSpeed > 0 then begin
    Sec := Trunc(((ProgressBar1.Max - AWorkCount) / 1024) / AverageSpeed);

    S := Format('%2d:%2d:%2d', [Sec div 3600, (Sec div 60) mod 60, Sec mod 60]);


  end
  else S := '';

  t := FormatFloat('0.00 KB/s', AverageSpeed);
  case AWorkMode of
    wmRead: begin

               Label8.Caption  := savedialog1.Files.Text; //ExtractFileName(sr.Name);
               Label9.Caption  := BytesToStr(AWorkcount);
               ListView1.items.Add.Caption:= 'Downloading';

 
Et bien la liste view ahjoute a chaque fois une nouvel ligne

Comment faire pour quelle reste fix et en ajoutant d'autre colone dans ma 1ére ligne
 en y inluant des chiffres qui défile

Je debute dans les listview

Cordialement

cs_cantador · Answer

Bonjour,

question confuse ->>> pas de réponse...

cantador

TListView

1 réponse

Votre réponse

Discussions similaires