bonjour,
En cliquant sur le bouton, je charge un fichier dans le mémo de gauche. J'aimerais que chaque fois qu'il y a, dans une ligne "'08:00'", cette ligne (et uniquement cette ligne) soit copiée dans l'autre mémo. Mais il doit y avoir quelque chose qui ne va pas dans mon code car ça ne donne pas le résultat obtenu... .procedure Tfficheve.btnEnvoyerClick(Sender: TObject);
var
i : integer;
j: integer;
phrase : string;
begin
Memo4.Lines.LoadFromFile('test.txt');
phrase:='';
for i := 0 to memo4.Lines.Count-1 do
begin
if Memo4.Lines.Text ='08:00' then
phrase:= copy(memo4.Lines[i],27,75);
memo1.Lines[i]:=phrase;
Memo1.Lines.Add(IntToStr(j));
end;
end;
D'avance merci
Partager