Discussion :

[wiski08000]

bonjours a tous
mon problème c'est que j'ai un memo qui affiche la différence entre deux dates
(affichage en jours)

exemple
memo affiche = 18/11/2013
19/11/2013
20/11/2013
21/11/2013

ma question c'est comment indexer mon memo a partir de la première ligne
jusqu’à la dernière.
insérer chaque date de memo vers ma table
qui a un champ date évidement par une boucle (insert, post,next)
merci pour votre aide

[BuzzLeclaire]

Bonsoir,

Je me demande si tu as relu ce que tu as écris , çela n'a pas vraiment de sens...
Bref, si c'est pour parcourir les lignes d'un TMemo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Var 
 i: integer;
 MaLigne : String;
begin
  if Memo.text = '' then exit;
  For i = 0 to Memo.Lines.Count-1 do
  begin
    MaLigne :=  Memo.Lines.Strings[i]; // <-- lecture des lignes
  end;
 
end;

[e-ric]

Salut

C'est pas clair tout ça!!
Quand tu parles de différence entre 2 dates, tu sembles exprimer la liste des jours entre 2 dates.
Ensuite quel est l'intérêt de passer par un mémo pour alimenter une table ?
Ne pourrais-tu pas alimenter directement la table ?

C'est un truc comme ce qui suit que tu veux ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Pour alimenter le mémo
procedure TForm1.InsertDate(d1,d2: TDateTime);
var
  d:  TDateTime;
begin
  d1 := trunc(d1);
  d2 := Trunc(d2);
  Memo1.Items.Clear;
  d := d1;
  while d <= d2 do
  begin
    Memo1.Items.Add(FormatDateTime('dd/mm/yyy', d));
    d :=  d + 1; // jour suivant
  end;
End;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
// Pour alimenter la table
  For i := 0 to Memo1.Items.Count-1 do
  begin
    Table1.Insert;
    Table1.FieldByName('ChampDate').AsDateTime := StrToDateTime(Memo1.Items[i]);
    Table1.Post;
  end;

J'ai mis en oeuvre un composant TTable mais cela se réécrit facilement sous forme d'une requête.

Je conçois assez mal l'intérêt de passer par un Memo.

Cdlt

[wiski08000]

merci les gars
c'est gentil