یه سوال در مورد While

[nasr]

سلام
آقا مشکل این دستوری که نوشته ام چیه
من می خوام Edit1 را Select کنه تا وقتی که برسه به علامت / یا علامت ٪

var
i:integer;
begin
i := 0;
Edit1.SetFocus;
while copy(Edit1.Text,i,1) <> '/' or '%' do inc(i);

مشکل من این OR وسط کار است
ممنون

[Mashatan]

بهتره اینجوری استفاده کنی ! :wink:



var
i:integer;
st:String
begin
Edit1.SetFocus;
st:=Edit1.Text;
For i:=1 to Length(st) do begin
if (st[i]='/') or (st[i]='%') then
Break;
End;
ارادتمند
مشاطان

[nasr]

مرسی :)