Discussion :

[abbesmor]

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
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
i:=0;
repeat
if   ff(memo1.Lines[i],edit1.Text)=false then
 i:=i+1
 else
edit1.Text:= edit1.Text +memo2.Lines[i] ;
memo1.Lines.Delete(i);
memo2.Lines.Delete(i);
until ff(edit2.Text,edit1.Text) or   memo1.Lines.Count=i
       or  memo1.Lines.Count=0;
       end;
end.

until n marche pas pourquoi svp
le message d'ereur
[Error] Unit1.pas(66): Operator not applicable to this operand type

[Paul TOTH]

il manque des parenthèses

(edit2.Text,edit1.Text) or (memo1.Lines.Count=i)
or (memo1.Lines.Count=0)