Réponse acceptée !
Salut,
J'ai fais un truc vite fais mais j'ai du mal a voir les cas possible et les gestion d'erreur que tu decide.
Edit1.Clear;
Edit2.Clear;
for iIndice := 0 to Memo1.Lines.Count-1 do
begin
if iIndice <= Memo1.Lines.Count-1 then
begin
if
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then
Edit1.Text := 'CAPT CAR=123456';
if
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and not
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then
Edit1.Text := 'CAPT';
if not
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then
Edit1.Text := 'CAPT' ;
if not
AnsiContainsText(Memo1.Lines[iIndice],'CAPT') and not
AnsiContainsText(Memo1.Lines[iIndice+1],'CAR=123456') then
Edit2.Text := Memo1.Lines[iIndice];
end;
end;
Bonne Prog
