ajout de temps

Bonsoir

petite question,soit un chronometrage avec:
jj:mm:aaaa  hh:mm  +  un commentaire...
cette liste est susceptible d'etre longue
(+/- une cinquantaine de ligne les unes
en dessous des autres),comment faire
pour ajouter en une seule fois avec
un TButton les sec a la suite des min?
(jj:mm:aaaa  hh:mm:ss)
sec qui seraient par defaut sur :00
merci a vous

Salut...
   Essayez de préciser mieux votre question
Merci

voila,j'ai une liste de temps (chrono) dans
un fichier txt
23:11:2006  09:54
23:11:2006  10:40
etc....
les secondes dans cette liste ne sont pas
la,comment faire avec un prog pour les
afficher dans toute la liste?
23:11:2006  09:54:00
etc...
j'ai cherché dans des faq (date/heure etc) mais
rien trouvé pour mon cas.merci

salut, bin si ton format et fixe, c'est simple: Il suffit de lire ton fichier ligne par ligne et d'ajouter ":00" à la position 17 de ta ligne. cherche de la doc sur la manipulation de fichier/stream texte. sinon DateTimeToString peu peut-être t'aider. bon code,

Salut,

Ouais, 50 lignes...
Soit tu fais à la main : 5 minutes (avec le copier-coller)
Soit tu fais un bout de code : 2 minutes.
Soit tu demandes le code sur le forum : 10 secondes... (je plaisante)

Donc :

procedure AddStrToLine(const FileName, S: string);
var
  StringList: TStringList;
  i: Integer;
begin
  StringList := TStringList.Create;
  with StringList do
  try
    LoadFromFile(FileName);
    for i := 0 to Count -1 do
      Strings[i] := Strings[i] + S;
    SaveToFile(FileName);
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddStrToLine('TonFichier.txt', ':00');
end;

Bons débuts en Delphi !

japee

Salut Loda,

Je n'avais pas vu ta réponse...
Problème de rafraîchissement et d'upload en ce moment.

A +

japee

Ben l'autre solution est qu'il fasse mieux son fichier texte au départ en y ajoutant les secondes : TimeToStr(Now). PS : Ce genre de question est en général synonyme d'un sujet mal pensé. Toujours faire les trucs au brouillon avant de coder

Salut,

il faudrait peut être créer le fichier en question avec les bonnes méthodes :

procedure TForm1.Button1Click(Sender: TObject);
var aStr : String;
begin
  DateTimeToString(aStr,'dddd d  mmmm yyyy:hh-mm-ss',now);
  label1.Caption := aStr;
  DateTimeToString(aStr,'dddd d  mmmm yyyy : hh-mm-ss',Now);
  label1.Caption := aStr;
  DateTimeToString(aStr, 'hh-mm-ss, mm',Now);
  label2.Caption := aStr;
end;


 
@+
Cirec

---

Oups désolé pour le doublé



procedure TForm1.Button1Click(Sender: TObject);
var aStr : String;
begin
  DateTimeToString(aStr,'dddd d  mmmm yyyy : hh-mm-ss',Now);
  label1.Caption := aStr;
  DateTimeToString(aStr, 'hh-mm-ss, mm',Now);
  label2.Caption := aStr;
end;

@Japee : si j'ai bien compris le problème de lordi12 la structure de son fichier est :
jj:mm:aaaa  hh:mm  +  un commentaire

il sera donc difficile d'ajouter ':00' avec ta Procedure.
En effet dans son état actuel ta procedure ajoute ':00' en fin de ligne ce qui donnerait ceci :
jj:mm:aaaa  hh:mm  +  un commentaire+ :00


 
@+
Cirec

---

Salut Japee, bin c'est "tant mieux", vu que t'es plus motivé que moi et que tu lui a filer un beau code tout fait... reste juste a ajouter un eventuel pos(..) ou leftStr/RightStr pour son commentaire. @Francky: Il n'as jamais dit que le fichier était fait par son applic. Au boulot, j'ai souvent du faire des trucs con comme ça, parce que je devais modifier le format de donnée avant de les traiter. D'ailleurs n'est-ce pas la définition première de l'informatique : "modifier et traiter des données"? A+